home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / PINBALL2.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  55 lines
  1. 10  TEXT : HOME : NORMAL : SPEED= 255
  2. 20  PRINT "PINBALL CONSTRUCTION SET - SIDE ";: INVERSE : PRINT "  2  ": NORMAL : PRINT "PCS SUPPLEMENT DISK"
  3. 30  VTAB 5
  4. 40  PRINT "     TO MAKE A NEW PINBALL GAME, SIDE 1 MUST BE BOOTED."
  5. 45  PRINT : PRINT "NOTE:     (CONCERNING MAKING PCS GAMES)"
  6. 46  PRINT 
  7. 50  PRINT "     NO CHANGING THROUGH MAGNIFICATION  MAY BE DONE ON THE OUTSIDE WALL.  IF    THIS RULE IS NOT COMPLIED TO, THE GAME  WILL NOT SAVE RIGHT."
  8. 60  VTAB 15
  9. 70  PRINT "     TO PLAY A GAME FROM THIS SIDE,     FIRST LOAD THE GAME INTO MEMORY IN PCS  (PINBALL CONSTRUCTION SET).  THE PRESS  ";: INVERSE : PRINT "MAKE GAME.  ";: NORMAL : PRINT "AND SAVE IT AS 'TEMPORARY'."
  10. 80  PRINT "     THEN RUN TEMPORARY."
  11. 90  VTAB 22
  12. 100  PRINT "PRESS ANY KEY TO CONTINUE...": GET A$: PRINT A$: HOME 
  13. 110  DIM A$(200)
  14. 115  DIM B$(200)
  15. 120  FOR I = 1 TO 200
  16. 130  ONERR  GOTO 160
  17. 140  READ A$(I)
  18. 150  NEXT I
  19. 160  PRINT "THERE ARE ";: INVERSE : PRINT I -1;: NORMAL : PRINT " GAMES ON THIS DISK."
  20. 161 NU = 0: FOR J = 1 TO I -1
  21. 162 W$ = "ZZZZZZZZZZ": FOR K = 1 TO I -1
  22. 163  IF A$(K) <W$  THEN W$ = A$(K)
  23. 164  NEXT :B$(J) = W$: FOR N = 1 TO I -1
  24. 165  IF A$(N) = W$  THEN A$(N) = "ZZZZZZZZZZZZZZ"
  25. 166  NEXT : NEXT : FOR M = 1 TO I -1
  26. 167 A$(M) = B$(M): NEXT 
  27. 170  FOR J = 1 TO 100: NEXT J
  28. 180  FOR J = 1 TO I -1
  29. 185  POKE 34,1: VTAB 24: IF J/21 =  INT(J/21)  THEN  VTAB 23
  30. 186  IF J >99  THEN  PRINT J"-  "A$(J): GOTO 200
  31. 188  IF J >9  THEN  PRINT J" -  "A$(J): GOTO 200
  32. 190  PRINT J"  -  "A$(J)
  33. 200  IF J/20 =  INT(J/20)  THEN  VTAB 24: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE...": NORMAL : GET A$: VTAB 23: PRINT "                                       "
  34. 210  NEXT J
  35. 220  END 
  36. 1000  DATA  FIREBALL
  37. 1010  DATA  DEMO 1
  38. 1020  DATA  MINUTE MAGIC
  39. 1030  DATA  MASTER BLASTER
  40. 1040  DATA  META PIN
  41. 1050  DATA  THE SAW
  42. 1060  DATA  SOUNDTRAK
  43. 1070  DATA  BONUS BALL
  44. 1080  DATA  INVISIBALL
  45. 1090  DATA  BUMPER PYRAMID
  46. 1100  DATA  THE BLACK HOLE
  47. 1110  DATA  DOUBLE DUEL
  48. 1120  DATA  MOON SHOT
  49. 1130  DATA  MOON SHOT 2
  50. 1140  DATA  INSTANT EXERTION
  51. 1150  DATA  SILENT SPEEDBALL
  52. 1160  DATA  FASTER
  53. 1170  DATA  THE SAFETY ROOM
  54. 1180  DATA  LEECH MISSILE
  55. 1190  DATA  THE HOOK