0 'GLOBE.100 Neil Wick [71056,613] 5 CLS:CLEAR:DEFINTA-Z:DIMU(71):P=INP(186):PRINTCHR$(27)"V";:GOTO20 9 LINE(70,7)-(78,7) 10 READF,M:IFF<1THENRETURNELSEFORL=1TOM+M:OUT188,FMOD256:OUT189,((F/256)AND127)OR64:OUT184,195:OUT186,PAND219OR32:FORD=0TO120:NEXT 15 POKEE1,2:POKEST,64:CALLML,0,U(VI):POKEE1,64:POKEST,0:CALLML,0,U(VI+1):VI=VI+2:IFVI=48THENVI=0 16 NEXT:OUT186,P:GOTO10 20 DATA229,205,92,118,33,84,254,205,59,117,30,0,225,126,230,63,50,30,254,35,62,0,87,211,254,6,50,126,230,207,28,7,7,210,48,254,126,230,63,95,35,195,31,254,35,7,7 25 DATA79,126,35,230,207,129,211,255,29,202,70,254,5,205,72,117,195,57,254,5,194,31,254,126,254,34,200,122,198,64,195,26,254,31,0 30 ML=-508:ST=-487:WI=-482:E1=-428:E2=-427 40 FORX=-508TO-427:READA:POKEX,A:NEXT 50 POKEE1,128:POKEE2,0 60 GOSUB2000:U(0)=PEEK(U)+256*PEEK(U+1)-65536 65 DATA202,197,213,214,228,214,237,207,233,195,232,187,232,179,231,180,230,176,234,175,233,168,225,179,219,182,215,181,216,190,220,181,214,186,207,181,208,175,205,164,198,156,193,154,186,161,191,172 66 DATA85,99,156,202,85,14 67 FORX=1TO54:READOF:U(X)=U(X-1)+OF:NEXT 70 PRINT@95,"GLOBE.100":PRINT:PRINT," by",," Neil",," Wick";:POKEST,26:POKEE1,128:CALLML,0,U(52):LINE(92,29)-(140,61),1,B:LINE(91,62)-(141,62),0,B:LINE(90,27)-(142,63),1,B:FORX=1TO2500:IFINKEY$=""THENNEXT:POKEE1,255:CALLML,0,U(53) 80 POKEST,64:POKEE1,4:CALLML,0,U(48):POKEE1,8:CALLML,0,U(50):POKEST,0:POKEE1,128:POKEE2,0:CALLML,0,U(49):POKEE1,0:POKEE2,1:CALLML,0,U(51):POKEE2,0 100 VI=0:GOSUB9:FORX=1TO1500:NEXT:MENU 1000 DATA9952,1,9394,1,8368,2,4976,2,6269,2,5586,1,6269,1,6269,2,6642,2,6642,2,11172,1,9952,1,9394,2,5586,2,6642,2,6269,1,6642,1,7456,2,8368,2,8368,2,9952,1,9394,1,8368,2,6269,1,5586,1,4976,2,5586,1,6269,1,7456,2,5586,1,4976,1,4697,2,4976,1,5586,1 1010 DATA8368,2,4697,2,4976,2,5586,2,6269,5,6269,3,6269,1,4976,2,6269,2,5586,3,5586,1,5586,4,5586,3,5586,1,4697,2,5586,2,4976,3,4976,1,4976,4,4976,3,4976,1,4184,2,4976,2,4697,3,4697,1,4697,2,4976,1,5586,1,8368,4,6642,4,6269,5,0,1,-1, 2000 ONERRORGOTO2005:FI$="GLOBE ":OPENFI$FORINPUTAS1:IFINPUT$(4,1)="qE00"THENCLOSE:GOTO2010ELSEPRINT"Data file must begin qE00":STOP 2005 IFERR=52THENPRINT"You must have GLOBE.DAT in memory":PRINT"as GLOBE.DO":STOP 2010 A=VARPTR(FI$):A=PEEK(A+1)+256*PEEK(A+2)-65536:U=-1693 2030 X=U+1:Y=A-1:IFPEEK(U-1)<192THEN2070 2040 X=X+1:Y=Y+1:IFX=U+8THENRETURN 2060 IFPEEK(X)=PEEK(Y)THEN2040 2070 U=U+11:GOTO2030