home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / froger.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  34 lines
  1. 0 'FROGER.BA V1 - BY Nigel Hackett         March27th 1985                          CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLEAR1000:Q=31:Z=32:E=147:SCO=0:TIM=180:LIV=4:POKE63038,175
  3. 2 CLS:PRINT:PRINT"Press prefered keys for movement or":PRINT"     <ENTER> for arrow keys":PRINT"","left  ";
  4. 3 AA$=INPUT$(1):IFAA$=CHR$(13) THEN GOTO300 ELSE PRINTAA$:PRINT"","right ";:AB$=INPUT$(1):PRINTAB$:PRINT"","up    ";
  5. 4 AC$=INPUT$(1):PRINTAC$:PRINT"","down  ";:AD$=INPUT$(1):PRINTAD$
  6. 5 CLS:FORX=120 TO 159:PRINT@X,"#";:NEXT
  7. 7 CAR$="   "+CHR$(132):FLY$="  "+CHR$(133)+" "
  8. 8 C$="":N$="": FORX=1 TO10:C$=C$+CAR$:N$=N$+FLY$:NEXT:E$=C$:O$=N$
  9. 12 G$="":PRINT@0,CHR$(239);CHR$(239);:F$="  "+STRING$(5,239):FORX=1TO5:G$=G$+F$:NEXT:PRINTG$;"  ";CHR$(239);
  10. 13 X=19:Y=6:A$="":GOTO60
  11. 15 H=0:V=0:A$=INKEY$
  12. 16 IFA$="" THEN34 ELSE E=(E XOR 7)
  13. 20 IF A$=AA$ THEN X=X-1:H=1 ELSE IFA$=AB$ THEN X=X+1:H=-1 ELSE IF A$=AC$ THEN Y=Y-1:V=1 ELSE IF A$=AD$ THEN Y=Y+1:V=-1
  14. 25 IF X>39 THEN X=39:H=0 ELSE IF X<0 THEN X=0:H=0
  15. 30 IF Y>6 THEN Y=6:V=0 ELSEIF Y<0 THENY=0
  16. 34 IFQ>5THENQ=0:GOTO35ELSEQ=Q+1:GOTO40
  17. 35 PRINT@40,C$;:D$=RIGHT$(C$,1):C$=D$+LEFT$(C$,39):PRINT@160,E$:D$=LEFT$(E$,1):E$=RIGHT$(E$,39)+D$
  18. 36 PRINT@80,N$;:D$=LEFT$(N$,1):N$=RIGHT$(N$,39)+D$:PRINT@200,O$:D$=RIGHT$(O$,1):O$=D$+LEFT$(O$,39)
  19. 40 IFA$="" THEN 50 ELSE PRINT@X+H+(Y+V)*40,CHR$(Z);:Z=PEEK(65024+X+40*Y):IFZ<>32AND Z<>35 THEN100ELSE60
  20. 50 T=PEEK(65024+X+40*Y):IFT<>147ANDT<>148ANDT<>32THEN100
  21. 60 PRINT@280,"SCORE=";SCO:PRINT@310,"TIME=";TIM;:PRINT@X+40*Y,CHR$(E);:IFY=0THEN80
  22. 61 IFLIV<>0THENPRINT@295,"";:FORB=0TOLIV-1:PRINTCHR$(147);:NEXT
  23. 65 W=VAL(RIGHT$(TIME$,2)):IFW=JTHEN70ELSEJ=W:TIM=TIM-1:IFTIM=0 THEN200
  24. 70 GOTO15
  25. 80 SCO=SCO+10:TIM=TIM+10:SOUND2793,12:SOUND2484,12:SOUND2348,12:PRINT@X-1,STRING$(3,239);:X=19:Y=6
  26. 85 IF SCO/60=INT(SCO/60)THENGOSUB150:GOTO12ELSE13
  27. 100 Z=32:SOUND11172,50:LIV=LIV-1:PRINT@295,"      ";:IFLIV=-1THEN200ELSE13
  28. 150 IF SCO/240=INT(SCO/240) THEN LIV=LIV+1
  29. 160 IFLIV>5 THEN LIV=5:SCO=SCO+120:TIM=TIM+30
  30. 170 RETURN
  31. 200 CLS:PRINT@50,"SCORE=";SCO:PRINT@130,"PLAY AGAIN <Y/N>?";
  32. 210 A$=INPUT$(1):IFA$<>"y"AND A$<>"Y"THEN MENUELSERUN
  33. 300 AA$=CHR$(29):AB$=CHR$(28):AC$=CHR$(30):AD$=CHR$(31):GOTO5
  34.