home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDC100 / C / BDAY.GAME.33 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  2.1 KB  |  85 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 33-OPEN YOUR GIFTS
  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.33"
  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 "        OPEN YOUR BIRTHDAY GIFTS!"
  55. 612  PRINT : PRINT "GOAL: SHOOT OFF FIREWORKS TO BURST OPEN": PRINT "      ALL THE FLOATING GIFTS BEFORE THE": PRINT "      TIME RUNS OUT."
  56. 618  PRINT : PRINT "CONTROLS: JOYSTICK -- MOVE LEFT/RIGHT."
  57. 619  PRINT "           BUTTON--STARTS/RELEASES SHOT."
  58. 620  PRINT "          KEYBOARD -- MOVE LEFT/RIGHT"
  59. 622  PRINT "           WITH ARROW KEYS."
  60. 624  PRINT "           SPACE--STARTS/RELEASES SHOT."
  61. 626  PRINT : PRINT "MOVE THE LAUNCHER LEFT-RIGHT WITH THE": PRINT "JOYSTICK/KEYS."
  62. 628  PRINT "THE LENGTH OF TIME YOU HOLD THE SHOT": PRINT "BEFORE RELEASING IT DETERMINES THE": PRINT "HEIGHT AT WHICH THE SHOT WILL EXPLODE."
  63. 629  PRINT 
  64. 630  PRINT "RESCUE THE FLOATING PARTY-GOERS FOR": PRINT "EXTRA POINTS."
  65. 690  VTAB (23): PRINT "     CTRL-S TOGGLES SOUND ON/OFF."
  66. 695  VTAB (24): PRINT "     <ESC> RESUMES PLAY.";
  67. 698  VTAB (10): PRINT 
  68. 700  PRINT D$;"BLOADOPENPG3,A$4000"
  69. 710  PRINT D$;"BLOAD HBTY.COMM,A$6000"
  70. 800  PRINT D$;"BRUNOPEN"
  71. 810  END 
  72. 8000 SD =  PEEK(48944)
  73. 8010 D = 1: IF SD > = 128  THEN D = 2:SD = SD -128
  74. 8020 S =  INT(SD/16)
  75. 8030  PRINT D$;"PREFIX ,S";S;",D";D
  76. 8040  PRINT D$;"PREFIX"
  77. 8050  INPUT P$
  78. 8060  RETURN 
  79. 9000  HOME : TEXT : SPEED= 255
  80. 9010 E =  PEEK(222): POKE 222,0
  81. 9020  HTAB (1): VTAB (1): PRINT E
  82. 9030  HTAB (7): VTAB (12): PRINT "PRODOS ERROR - PRESS A KEY"
  83. 9040  GET A$
  84. 9050  IF BO = 0  THEN  PRINT D$;"BYE": END 
  85. 9060  CALL 8128: END