5 REM*VICFRIENDLYALIEN 6 GOTO20 7 PRINT"TIME: ";MID$(TI$,3,2);":";RIGHT$(TI$,2) 8 IFTI$>TU$THENPRINT"TIME IS UP!!! ":FORI=1TO1500:NEXT:GOTO1300 9 RETURN 11 LO=LO-Q2:RETURN 12 LO=LO-Q1:RETURN 13 LO=LO+P1:RETURN 14 LO=LO+Q3:RETURN 15 LO=LO+Q2:RETURN 16 LO=LO+Q1:RETURN 17 LO=LO-P1:RETURN 18 LO=LO-Q3:RETURN 20 IFPEEK(44)<32THENPOKE56,28:POKE52,28:CLR 30 PRINT"[147][144]****FRIENDLY ALIEN****[146] 35 [153]"SETTING UP.... 40 NM=7168:FORI=NMTONM+511:POKEI,PEEK(I+25600):NEXT 50 FORI=NM+272TONM+311:READA:POKEI,A:NEXT 58 FORI=NM+344TONM+383:READA:POKEI,A:NEXT 62 FORI=0TO7:POKENM+8*59+I,PEEK(32768+81*8+I):NEXT:POKENM+8*59+3,255 64 FORI=0TO7:POKENM+8*61+I,PEEK(32768+8*77+I):NEXT:CK=0 68 FORI=0TO31:READA:CK=CK+A:POKENM+I,A:NEXT 69 FORI=0TO7:READA:CK=CK+A:POKENM+8*60+I,A:NEXT 94 FORI=832TO936:READA:CK=CK+A:POKEI,A:NEXT 95 IFCK=16964THEN100 96 PRINT"[144]*DATA STATEMENT ERROR** SEE LINES 8070-9040*":END 100 X=RND(-TI) 110 PRINT"[147]GUIDE THE LITTLE ALIENWITH A JOYSTICK AND PICK UP ALL THE CANDY. 135 [153]"STOPTHEN GUIDE HIM TO THE PHONE AND SPACESHIP. 160 PRINT"LOOK OUT FOR THE CANS OF COLA. IF HE DRINKS COLA,"; 161 PRINT" HE WILL HAVE AN ALLERGIC REACTION AND CAN'T BE GUIDED. 165 [153]"STOPIF HE TOUCHES A FLU BUG, OR IF YOU RUN OUTOF TIME,"; 167 [153]" HE WILL GET THE FLU AND CAN'T GO HOME. 169 PRINT"YOU'VE 1 MIN. 30 SEC. 500 [153]"CLRENTER SKILL LEVEL 1-5WAIT 502 GETA$:IFA$=""THEN502 503 A=VAL(A$):IFA<1ORA>5THEN500 505 SC=4*(PEEK(36866)AND128)+64*(PEEK(36869)AND112) 510 CM=37888+4*(PEEK(36866)AND128)-SC:PRINT"[147]" 515 POKE36869,PEEK(36869)AND240OR15 517 VL=36878:SL=36874:SH=36876:Q1=21:Q2=22:Q3=23:P1=1 519 REM**BUILD BORDER 520 FORB=SC+Q2TOSC+44:POKEB,35:POKECM+B,6:NEXT 525 FORB=SC+43TOSC+505STEPQ2:POKEB,35:POKECM+B,6:NEXT 530 FORB=SC+504TOSC+484STEP-1:POKEB,35:POKECM+B,6:NEXT 535 FORB=SC+484TOSC+Q2STEP-Q2:POKEB,35:POKECM+B,6:NEXT 600 REM**PLACE FLUBUGS 605 FORI=1TO9*A 610 GOSUB4000 612 IFPEEK(X)=35THEN610 620 POKEX,42:POKECM+X,3:IFI<=ATHENF(I)=X:POKEX+CM,7 622 NEXT 700 REM**PLACE COLA 705 FORI=1TO12*A 710 GOSUB4000 720 IFPEEK(X)=35ORPEEK(X)=42ORPEEK(X-Q2)=36ORPEEK(X+Q2)=36THEN710 725 POKEX,36:POKECM+X,2:NEXT 800 REM**PLACE CANDY 803 C=2:FORI=1TO20:C=C+1:IFC>7THENC=2 810 GOSUB4000 820 IFPEEK(X)<>32ORPEEK(X+1)<>32ORPEEK(X-1)<>32ORPEEK(X+Q2)<>32ORPEEK(X-Q2)<>32THEN810 825 POKEX,34:POKECM+X,C:NEXT 830 RP=20:LO=SC+460:TI$="000000":TU$="000129" 899 REM**MAIN LOOP 900 IFRP=0THEN3000 920 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 922 GOSUB7 930 POKEVL,10:POKESH,220:GOTO1500 935 POKEVL,0:POKESH,0 1000 SYS832:AA=PEEK(830) 1050 LT=LO:ONAAGOSUB11,12,13,14,15,16,17,18 1080 POKELT,32:POKELT+Q2,32 1099 REM**COLLISION CK 1100 TL=PEEK(LO):BL=PEEK(LO+Q2) 1102 IFTL=1ORTL=3ORTL=35ORBL=0ORBL=2ORBL=35THENLO=LT:GOTO900 1110 IFTL=42ORBL=42THEN1300 1115 IFTL=61ORBL=61THEN3500 1120 IFTL=36ORBL=36THEN1400 1130 IFTL=34ORBL=34THENRP=RP-1:GOTO1200 1135 IFTL=45ORTL=46ORTL=47ORBL=47THEN3100 1140 GOTO900 1199 REM**CANDY PICKUP 1200 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 1210 POKESH,150:POKEVL,15:FORL=1TO10:NEXT 1220 POKESH,200:FORL=1TO10:NEXT:POKESH,0:POKEVL,0:GOTO900 1299 REM**FLUBUG COLLISION 1300 POKELO,37:POKELO+Q2,38:POKELO+CM,3:POKELO+CM+Q2,3 1305 FORZ=1TO10 1310 POKESH,150:POKEVL,15:FORL=1TO50:NEXT 1320 POKESL,150:FORL=1TO50:NEXT 1325 POKESH,0:FORL=1TO50:NEXT:NEXT:POKEVL,0:POKESL,0:GOTO2000 1399 REM**COLA COLLISION (GLUG-GLUG) 1400 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 1410 POKESH,0:POKEVL,10:FORX=1TO3:POKESL,210:FORL=1TO10:NEXT:POKESL,250:FORL=1TO25:NEXT 1412 POKESL,0:FORL=1TO200:NEXT:NEXT 1415 POKELO,32:POKELO+Q2,32:POKELO+CM,1:POKELO+CM+Q2,1 1416 AA=INT(RND(1)*8)+1:GOTO1050 1499 REM**SELECT & MOVE FLUBUG 1500 D=INT(RND(1)*A)+1 1510 LT=LO:LO=F(D):X=INT(RND(1)*8)+1:FT=F(D) 1515 ONXGOSUB11,12,13,14,15,16,17,18 1635 F(D)=LO:LO=LT:IFPEEK(F(D))<>32ANDPEEK(F(D))<>37ANDPEEK(F(D))<>38THENF(D)=FT 1700 POKEFT,32 1702 IFF(D)=LOORF(D)=LO+Q2THENPOKELO+CM,3:POKELO+CM+Q2,3:GOTO1305 1710 POKEF(D),42:POKEF(D)+CM,7:GOTO935 2000 POKEVL,0:POKESH,0 2001 PRINT"[147][144]HE CAUGHT THE FLU FROMTHE FLU BUG AND CAN NOT GO HOME." 2002 GOTO2040 2025 PRINT"[147][144] YOU WON!!" 2030 PRINT" ";MID$(TT$,3,2);" MINUTE ";RIGHT$(TT$,2)" SECONDS 2035 [153]" SKILL LEVEL"A 2040 [153]" PLAY AGAIN?" 2045 [151]36869,[194](36869)[175]240[176]0 2050 [161]A$:[139]A$[178]""[167]2050 2055 [139]A$[178]"Y"[167][138]100 2060 [153]"LOAD":[128] 2999 [143]**BUILD SPACEPHONE 3000 Q[178]SC[170]44:R[178]SC[170]88:[141]6000:[141]7:[151]LO,32:[151]LO[170]Q2,32:LO[178]SC[170]460 3002 [153]"OPEN+, ":[153]"-.SYS/ ":RP[178]20:[137]900 3099 [143]**RING SPACEPHONE 3100 LO[178]SC[170]48:[151]LO,37:[151]LO[170]Q2,38:[151]LO[170]CM,4:[151]LO[170]CM[170]Q2,4 3110 [151]VL,15:[129]L[178]1[164]3:[129]M[178]1[164]50:[151]SH,230:[129]N[178]1[164]5:[130] 3120 [151]SH,0:[130]:[141]7:[129]M[178]1[164]1000:[130]:[141]7:[130]:[151]VL,0 3399 [143]**BUILD SPACESHIP 3400 Q[178]SC[170]110:R[178]SC[170]242:[141]6000:[141]7 3401 [153]" ":[153]" " 3402 LO[178]SC[170]460:[151]LO,37:[151]LO[170]Q2,38:[151]LO[170]CM,4:[151]LO[170]CM[170]Q2,4 3406 [141]7:[141]3600:[141]7 3408 [153]""[166]10)"OPEN; 3410 GOSUB3600:GOSUB7 3425 PRINT""SPC(9)"[159]@#B 3430 [153][166]7)"<<###<< 3435 PRINTSPC(9)"A#C 3440 [141]7:[141]3600:[141]7 3450 [153]""[166]8)"OPEN@###B 3452 PRINTSPC(8)"[159]##### 3460 [153][166]5)"OPEN########### 3462 PRINTSPC(8)"[159]##### 3470 [153][166]8)"OPENA###C 3480 GOSUB7:GOSUB3600:GOSUB7 3490 T=SC+189:FORB=1TO3:POKET,61:POKECM+T,3:T=T+Q3:NEXT:POKESC+215,32:POKESC+237,32 3495 POKEVL,0:POKESH,0:RP=20:GOTO900 3499 REM**PUT ALIEN ON RAMP 3500 TT$=TI$:LO=SC+214:POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 3505 FORL=1TO1500:NEXT 3510 POKESC+214,32:POKESC+236,32:POKESC+212,32:POKESC+189,32:POKESC+235,32 3520 FORL=1TO2000:NEXT:GOTO2025 3599 REM**SPACESHIP SOUND 3600 POKEVL,15:FORL=1TO5:FORM=220-LTO160-LSTEP-4:POKESH,M:NEXT 3640 FORM=160-LTO220-LSTEP4:POKESH,M:NEXT:GOSUB7:NEXT:RETURN 4000 X=INT(RND(1)*372)+SC+3*Q2:RETURN 5999 REM**RELOCATE FLUBUGS 6000 FORI=1TOA:IFF(I)>QANDF(I)