home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SWAMI-2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  54 lines
  1. 10 FORK=12288TO12350:READA:POKEK,A:NEXT:FORK=12352TO12414:READA:POKEK,A:NEXT
  2. 20 GOSUB100:REM TITLE SCREEN
  3. 30 POKEV+21,0:POKEV+16,0:SYS51712:POKE2023,224:POKE56295,6:REM ML GAME SCREEN
  4. 40 GOSUB300:REM SPRITE SET-UP
  5. 50 GOSUB200:REM RANDOM CELESTIAL DESIGN
  6. 55 OPEN1,0:INPUT#1,Q$:CLOSE1
  7. 57 FORK=1TO1000:NEXT
  8. 60 X=INT(RND(.)*10):X=X*24:POKE49161,X:REM HELP SWAMI CHOOSE REPLY
  9. 70 SYS49152:POKE214,15:REM ML REPLIES
  10. 75 GETY$:IFY$<>""THEN75
  11. 80 GETZ$:IFZ$=CHR$(13)THEN30
  12. 90 IFZ$=CHR$(133)THENPOKEV+21,0:END
  13. 99 GOTO80
  14. 100 REM:TITLE PAGE SUBROUTINE
  15. 110 PRINTCHR$(147):POKE53280,15:POKE53281,15:POKE646,6
  16. 120 PRINTSPC(12)"CELESTIAL SWAMI"
  17. 130 PRINT"╤QUESTIONS MUST ADDRESS FUTURE EVENTS!"
  18. 140 PRINT"╤ASK ANY QUESTION ONLY ONCE!"
  19. 150 PRINT"╤PRESS 'RETURN' AFTER TYPING A QUESTION."
  20. 160 PRINT"╤PRESS 'RETURN' TO ASK ANOTHER QUESTION";
  21. 170 PRINT"  OR PRESS 'F-1' TO END THE GAME."
  22. 180 PRINT"╤NOW PRESS 'RETURN' TO CONTINUE."
  23. 190 GETC$:IFC$<>CHR$(13)THEN190
  24. 199 RETURN
  25. 200 REM CELESTIAL SUBROUTINE
  26. 210 SC=1024:CL=55296
  27. 220 FORD=1TO60:N1=INT(RND(TI)*480):POKESC+N1,174:POKECL+N1,6:NEXT
  28. 230 FORD=1TO8:N2=INT(RND(TI)*480):POKESC+N2,170:POKECL+N2,6:NEXT
  29. 240 FORD=1TO8:N3=INT(RND(TI)*480):POKESC+N3,209:POKECL+N3,6:NEXT
  30. 250 FORD=1TO8:N4=INT(RND(TI)*480):POKESC+N4,218:POKECL+N4,6:NEXT
  31. 299 RETURN
  32. 300 REM SPRITES ON
  33. 310 POKE2040,192:POKE2041,193:V=53248
  34. 320 POKEV+28,3:POKEV+37,0:POKEV+38,7
  35. 330 AA=INT(RND(1)*275)+40:IFAA>255THENAA=    
  36. 340 BB=INT(RND(1)*75)+50
  37. 350 POKEV+0,AA:POKEV+1,BB:POKEV+2,AA:POKEV+3,BB
  38. 360 CC=INT(RND(TI)*2)+1
  39. 370 IFCC=1THENPOKEV+21,1
  40. 380 IFCC=2THENPOKEV+21,2
  41. 390 RETURN
  42. 500 REM SPRITE#1 DATA
  43. 510 DATA0,252,0,3,255,0,7,255,128,15,  255,192
  44. 520 DATA31,255,224,63,255,240,127,255,248,127,255,248
  45. 530 DATA255,255,252,255,255,252,255,255,252,255,255,252
  46. 540 DATA127,255,248,127,255,248,63,255,240,31,255,224
  47. 550 DATA15,255,192,7,255,128,3,255,0,0,252,0,0,0,0
  48. 600 REM SPRITE#2 DATA
  49. 610 DATA0,252,0,3,252,0,7,248,0,15,240,0
  50. 620 DATA31,240,0,63,224,0,127,224,0,127,192,0
  51. 630 DATA255,1    
  52. 640 DATA127,192,0,127,224,0,63,224,0,31,240,0
  53. 650 DATA15,240,0,7,248,0,3,252,0,0,252,0,0,0,0
  54.