home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IMPERIU1.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  435b  |  13 lines
  1. 10  REM  HELLO
  2. 20  &  RECALL "QWERTY": CALL 768
  3. 30  IF  PEEK(0)  THEN  CALL  -1052: GOTO 30
  4. 40  HOME 
  5. 50  HTAB 11: VTAB 08: INVERSE : PRINT "IMPERIUM GALACTUM": FOR L = 1 TO 750: NEXT L
  6. 60  HOME 
  7. 70  NORMAL : HTAB 13: VTAB 07: PRINT "COPYRIGHT 1984"
  8. 80  HTAB 18: PRINT "BY": PRINT 
  9. 90  HTAB 07: PRINT "STRATEGIC SIMULATIONS INC"
  10. 99  FOR L = 1 TO 750: NEXT L
  11. 100  &  RUN "GSTART",25600
  12. 59999  END 
  13. 60000  &  DEL "HELLO": &  SAVE "HELLO"