home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / GOODIES / SPACE / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-01-06  |  370 b   |  17 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  CALL  -1998
  2. 1  FOR T = 12 TO 24
  3. 2  VTAB T: PRINT  SPC( 40)
  4. 3  VTAB 24 -T +1: PRINT  SPC( 40)
  5. 4  NEXT 
  6. 5  VTAB 12: PRINT "SOFTDOCS ON DISK.."
  7. 6  PRINT "PRESENTED BY DR. ENCINITAS..."
  8. 7  VTAB 22: PRINT "PRESS 'Q' TO QUIT OR 'P' TO PLAY ...";
  9. 8  GET A$: IF A$ < >"P"  AND A$ < >"Q"  THEN 8
  10. 99  IF A$ = "Q"  THEN  END 
  11. 100 D$ =  CHR$(4)
  12. 200  HGR : HGR2 : POKE  -16302,0
  13. 250  PRINT D$;"BLOAD TITP, A$4000"
  14. 300  PRINT D$;"BLOAD SCR, A$2000"
  15. 400  PRINT D$;"BLOAD DATA"
  16. 500  PRINT D$;"BLOAD TAB1"
  17. 600  PRINT D$;"BRUN GAME"