home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / FOLLOW-ME! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  55 lines
  1. 0 REM ****************************
  2. 1 REM *FOLLOW ME --BY-- GENE NASH*
  3. 2 REM *    DECEMBER  14, 1986    *
  4. 3 REM * UPDATED FEBRUARY 9, 1987 *
  5. 4 REM ****************************
  6. 5 REM
  7. 10 DIMMM(100):V=53248:S=54272:GOSUB320:PRINT"ô"SPC(15)"£FOLLOW ME!":PRINT
  8. 20 PRINT:PRINT:PRINT:PRINT
  9. 25 PRINTSPC(8)"Ü    ╬úúúúúúúúúúúúú═"
  10. 30 PRINTSPC(8)"   ╬    ñññññññ    ═"
  11. 35 PRINTSPC(8)"  ╬    º       Ñ    ═"
  12. 40 PRINTSPC(8)" ╬     º       Ñ     ═"
  13. 45 PRINTSPC(8)"º   ñññ║       ╠ñññ   Ñ"
  14. 50 PRINTSPC(8)"º   Ñ  ºúúúúúúúÑ  º   ┤"
  15. 55 FORX=1TO5:PRINTSPC(8)"º   Ñ  º       Ñ  º   ┤":NEXT
  16. 60 PRINTSPC(8)"º   úúú╨úúúúúúú╧úúú   Ñ"
  17. 65 PRINTSPC(8)" ═     º       Ñ     ╬"
  18. 70 PRINTSPC(8)"  ═    º       Ñ    ╬"
  19. 75 PRINTSPC(8)"   ═    úúúúúúú    ╬"
  20. 80 PRINTSPC(8)"    ═ñññññññññññññ╬":PRINT
  21. 85 PRINTSPC(15)"ÖROUND  1"
  22. 100 RN=RN+1:PRINT""SPC(15)"₧ MY TURN  Ü":FORZ=1TO700:NEXT:CN=0
  23. 110 FORY=0TORN:GOSUB160:MM(CN)=X:CN=CN+1:NEXT
  24. 120 PRINT""SPC(15)"₧YOUR TURNÜ":FORY=0TORN:GOSUB300
  25. 130 ON X GOSUB210,220,230,240:POKEV+21,0
  26. 140 IFX<>MM(Y) THEN 400
  27. 150 NEXTY:IFRN+1=101THEN395
  28. 152 PRINT""SPC(9)"ûNOW ENTERING ROUND"RN+1:FORZ=1TO1300:NEXT
  29. 155 PRINT"æ";:FORX=1TO30:PRINT" ";:NEXT:SYS828:PRINTSPC(15)"ÖROUND "RN+1:GOTO100
  30. 160 X=INT(RND(0)*4)+1
  31. 170 ONXGOSUB210,220,230,240:POKEV+21,0:FORZ=0TO500:NEXT:RETURN
  32. 210 POKEV+21,1:GOTO245
  33. 220 POKEV+21,2:GOTO245
  34. 230 POKEV+21,4:GOTO245
  35. 240 POKEV+21,8:GOTO245
  36. 245 POKES,S(X,0):POKES+1,S(X,1):POKES+4,65:FORZ    
  37. 300 X=PEEK(56321):X=255-X:IFX=1THENRETURN
  38. 301 IFX=2THENX=4:RETURN
  39. 302 IFX=4THENX=2:RETURN
  40. 303 IFX=8THENX=3:RETURN
  41. 310 GOTO300
  42. 320 FORX=0TO63:POKEX+12288,255:NEXT:FORX=39TO42:READY:POKEX+V,Y:NEXT
  43. 330 FORX=0TO7:READY:POKEV+X,Y:NEXT:FORX=0TO3:POKE2040+X,192:NEXT:POKEV+29,9
  44. 335 POKEV+23,6:FORX=0TO7:READY:POKE828+X,Y:NEXT:FORX=STOS+24:POKEX,0:NEXT
  45. 340 POKES+24,15:POKES+2,255:POKES+5,9:FORX=1TO4:READY:S(X,0)=Y:NEXT
  46. 345 FORX=1TO4:READY:S(X,1)=Y:NEXT:POKEV+32,0:POKEV+33,0:RETURN
  47. 360 DATA 10,7,13,14,156,116,124,141,212,141,156,188,24,162,23,160,0,76,240,255
  48. 365 DATA 175,191,152,4,8,9,11,13
  49. 395 PRINT"ô"SPC(11)"OK, YOU BEAT ME!!":GOTO410
  50. 400 PRINT"ô"SPC(12)"SORR     YOU LOSE"
  51. 410 PRINTSPC(10)"YOU LASTED"RN-1"ROUNDS"
  52. 420 PRINTSPC(11)"PLAY AGAIN? (Y/N)"
  53. 430 GETK$:IFK$<>"Y"ANDK$<>"N"THEN430
  54. 440 IFK$="Y"THEN RUN
  55.