home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDC100 / C / BDAY.GAME.11 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  2.1 KB  |  89 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  REM 
  2. 2  REM  HAPPY BIRTHDAY TO YOU!
  3. 4  REM   BASIC LOADER PROGRAM
  4. 6  REM  GAME 11-LITE THE CAKE
  5. 8  REM  BY DAVID H. SCHROEDER
  6. 9  REM 
  7. 10 D$ =  CHR$(4)
  8. 12 HB = 4960
  9. 13 BI = 8104
  10. 14  ONERR  GOTO 9000
  11. 100  PRINT D$;"PREFIX"
  12. 110  INPUT P$
  13. 120  IF P$ = ""  THEN  GOSUB 8000
  14. 130  PRINT D$;"PREFIX";P$
  15. 200  PRINT D$;"BRUN HBTY.BOOT"
  16. 201 BO = 1
  17. 250  PRINT D$;"BRUNBDAY.TITL.11"
  18. 260  CALL HB +6
  19. 310  PRINT D$;"BLOADBDAY.INFO,A";BI
  20. 315  FOR WW = 0 TO 2000: NEXT WW
  21. 320  CALL HB +3
  22. 330 INFO =  PEEK(BI): IF INFO = 0  THEN 500
  23. 390  CALL HB +18
  24. 400  CALL HB +6
  25. 405  HOME : TEXT : SPEED= 160
  26. 410 N$ = ""
  27. 415  FOR CT = 0 TO  PEEK(BI +1) -1
  28. 420 X =  PEEK(BI +2 +CT)
  29. 422  IF X = 0  THEN X =  -32
  30. 424 L$ =  CHR$(X +64)
  31. 426 N$ = N$ +L$: NEXT CT
  32. 428 AG =  PEEK(BI +20)
  33. 430  HTAB (8): VTAB (5): PRINT "YOU HAVE BEEN CELEBRATING"
  34. 431  HTAB (13): VTAB (6): PRINT "THIS BIRTHDAY:"
  35. 432  HTAB (9): VTAB (9): PRINT N$;"    AGE ";AG
  36. 450  HTAB (9): VTAB (15): PRINT "DO YOU WANT TO ... ?"
  37. 460  HTAB (4): VTAB (17): PRINT "K -- KEEP CELEBRATING"
  38. 465  HTAB (9): PRINT N$;"'S BIRTHDAY."
  39. 470  HTAB (4): VTAB (20): PRINT "N -- CELEBRATE A NEW BIRTHDAY."
  40. 475  PRINT : PRINT : SPEED= 255
  41. 480  POKE  -16368,0: GET A$
  42. 485  IF A$ < >"K"  AND A$ < >"k"  AND A$ < >"N"  AND A$ < >"n"  THEN 480
  43. 487  CALL HB +21
  44. 490  IF A$ = "K"  OR A$ = "k"  THEN 601
  45. 500  CALL HB +9
  46. 510  CALL HB +12
  47. 520  CALL HB +15
  48. 525  POKE BI,1: REM  SET INFO? FLAG
  49. 530  ONERR  GOTO 599
  50. 540  PRINT D$;"BSAVEBDAY.INFO,A";BI;",L22"
  51. 599  POKE 222,0
  52. 600  ONERR  GOTO 9000
  53. 601  HOME 
  54. 610  PRINT "        LIGHT THE BIRTHDAY CAKE!"
  55. 612  PRINT : PRINT "GOAL: FIRE FLAMING ARROWS TO LIGHT"
  56. 614  PRINT "  THE FALLING CANDLES AND ADD UP YOUR"
  57. 616  PRINT "  AGE BEFORE THE TIME RUNS OUT."
  58. 618  PRINT : PRINT "CONTROLS: JOYSTICK -- MOVE UP/DOWN."
  59. 619  PRINT "            BUTTON SHOOTS."
  60. 620  PRINT : PRINT "          KEYBOARD -- MOVE UP/DOWN WITH"
  61. 622  PRINT "            ARROW OR A/Z KEYS."
  62. 624  PRINT "            SPACE BAR SHOOTS."
  63. 626  PRINT : PRINT "MOVE THE BOW UP OR DOWN WITH JOYSTICK/"
  64. 628  PRINT "KEYS.  HITTING BUTTON/SPACE BAR IGNITES AND FIRES A FLAMING ARROW ACROSS SCREEN."
  65. 630  PRINT "CANDLES YOU LIGHT WILL LAND IN YOUR"
  66. 632  PRINT "CAKE.  LIGHT THE GREEN LETTER CANDLES"
  67. 634  PRINT "FOR EXTRA POINTS.  AVOID HITTING THE"
  68. 636  PRINT "BALLOONS OR YOU'LL LOSE TIME."
  69. 690  VTAB (23): PRINT "     CTRL-S TOGGLES SOUND ON/OFF."
  70. 695  VTAB (24): PRINT "     <ESC> RESUMES PLAY.";
  71. 699  VTAB (10): PRINT 
  72. 700  PRINT D$;"BLOADLITEPG3,A$4000"
  73. 710  PRINT D$;"BLOAD HBTY.COMM,A$6000"
  74. 800  PRINT D$;"BRUN LITE"
  75. 810  END 
  76. 8000 SD =  PEEK(48944)
  77. 8010 D = 1: IF SD > = 128  THEN D = 2:SD = SD -128
  78. 8020 S =  INT(SD/16)
  79. 8030  PRINT D$;"PREFIX ,S";S;",D";D
  80. 8040  PRINT D$;"PREFIX"
  81. 8050  INPUT P$
  82. 8060  RETURN 
  83. 9000  HOME : TEXT : SPEED= 255
  84. 9010 E =  PEEK(222): POKE 222,0
  85. 9020  HTAB (1): VTAB (1): PRINT E
  86. 9030  HTAB (7): VTAB (12): PRINT "PRODOS ERROR - PRESS A KEY"
  87. 9040  GET A$
  88. 9050  IF BO = 0  THEN  PRINT D$;"BYE": END 
  89. 9060  CALL 8128: END