home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGCIR.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  9 lines
  1. 1  TEXT : HOME : VTAB 12: HTAB 8: PRINT "[SOFTDOCS ARE ON THE DISK]": FOR E = 1 TO 1500: NEXT E: GOSUB 4
  2. 2  HTAB 9: VTAB 6: PRINT "DIGITAL CURCUITRY SIMULATOR": HTAB 18: VTAB 8: PRINT "VOLUME 1": PRINT : HTAB 19: PRINT "DRAFT": HTAB 7: VTAB 13: PRINT "SCARBOROUGH BOARD OF EDUCATION": HTAB 16: VTAB 14: PRINT "COPYRIGHT 1985.": INVERSE : HTAB 17: VTAB 16: PRINT "             ": HTAB 17: VTAB 17: PRINT " PLEASE WAIT ": HTAB 17: VTAB 18: PRINT "             ": NORMAL : VTAB 1
  3. 3  PRINT  CHR$(13) CHR$(4)"BFUN  LOGO,A$2000": POKE  -16304,0: POKE  -16302,0: POKE  -16299,0: POKE  -16297,0: HIMEM: 13000:A$ =  CHR$(13) + CHR$(4): PRINT A$"BDUMPBOARD,A14172": PRINT A$"BDUMPBREAD.BIN": PRINT A$"FUNBREAD.BAS1"
  4. 4  RETURN 
  5. 11  HOME : TEXT 
  6. 16  PRINT  CHR$(4);"BDUMP LOGO2,A$6000": PRINT : PRINT  CHR$(4);"BDUMP TDL,A37376": PRINT : PRINT  CHR$(4);"BDUMP LOGO2,A$2000"
  7. 17  CALL  -3116: HOME : CALL 37376:B = 37376:C =  -16384:D = 128
  8. 18  IF  PEEK(C) <D  THEN  CALL B: GOTO 18
  9. 19  TEXT : HOME : CALL  -1998: HOME : RETURN