home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DF1.DSK / TDF.bas < prev   
BASIC Source File  |  2014-09-09  |  738b  |  13 lines
  1. 10  HIMEM: 37759: TEXT :D$ =  CHR$(4)
  2. 20  PRINT "NOMON I,O,C"
  3. 21  HOME : FOR X = 1 TO 40: PRINT "%";: NEXT X: FOR X = 2 TO 22: VTAB X: PRINT "%";: HTAB 40: PRINT "%": NEXT X: VTAB 23: FOR X = 1 TO 40: PRINT "%";: NEXT X
  4. 30  VTAB 6: HTAB 12: PRINT "* * MICRO LAB * *": PRINT 
  5. 31  HTAB 12: PRINT "3218 SKOKIE ROAD"
  6. 33  HTAB 9: PRINT "HIGHLAND PARK, IL 60035"
  7. 35  HTAB 14: PRINT "312-433-7550": PRINT 
  8. 40  HTAB 16: PRINT "PRESENTS": PRINT 
  9. 50  HTAB 11: PRINT "'THE DATA FACTORY'": PRINT 
  10. 60  HTAB 4: PRINT "COPYRIGHT (C) 1980 BY W.L.PASSAUER"
  11. 70  HTAB 11: PRINT "ALL RIGHTS RESERVED"
  12. 80  PRINT D$"BLOAD DISK SPACE.OBJ": PRINT D$"BLOAD MOVE": PRINT D$"BLOAD GARBAGE": PRINT D$"BLOAD INIT": PRINT D$"BLOAD GMAN": PRINT D$"RUN I"
  13. 63000  GOTO 10