home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / INVADER1.DSK / HELLO2.int < prev    next >
Text File  |  2014-09-09  |  560b  |  19 lines
  1. 0 TEXT :CALL -936:PRINT "<CTRL-D>BLOAD ]INV"
  2. 1 REM  BSAVE INV,A$200,L$6000
  3. 5 CALL -936
  4. 10 VTAB 5:TAB 12:PRINT "[ INVADER GAME ]"
  5. 20 VTAB 10:TAB 12:PRINT "CREATED BY M.HATA"
  6. 30 VTAB 15:TAB 12:PRINT "ORIGINAL  NO.2"
  7. 40 FOR I=0 TO 2000:NEXT I
  8. 45  POKE -16292,0: POKE -16290,0
  9. 50 CALL 20029
  10. 60  POKE -16304,0: POKE -16302,0: POKE -16297,0
  11. 100 CALL 20047
  12. 110  POKE -16301,0:VTAB 21:TAB 13:INPUT "WHICH NUMBER",I:PRINT 
  13. 115 PRINT ""
  14. 120 IF I=1 THEN 200
  15. 130 IF I=2 THEN 300
  16. 140 TEXT :END 
  17. 200  POKE -16302,0:CALL 20038:GOTO 100
  18. 300  POKE -16302,0:CALL 20020:GOTO 110
  19.