home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27a.dsk / FEBRUARY.1986 / LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  *       LOADER       *
  3. 30  REM  * BY KENNETH PENNER  *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  DIM ME$(12),TB$(12),PG$(255):EF = 0
  9. 90 D$ =  CHR$(4):SD = 1:DA = 1:LD = 1:N = 1:AS = 1: REM  SOUND,DATA,LOAD,ASSEMBLED FLAGS SET
  10. 100  ONERR  GOTO 190
  11. 110  IF EF = 0  THEN  TEXT : HOME : PRINT : PRINT D$"OPENFN": PRINT D$"READFN": INPUT B$: PRINT D$"CLOSEFN": PRINT D$"DELETEFN": REM  READ FILE NAME
  12. 120  HTAB 1: VTAB 7: PRINT "NOW READING FILE INTO MEMORY...";: CALL  -958: REM  CLEAR TO END OF LINE
  13. 130  PRINT : HTAB 1: VTAB 13: PRINT D$"OPEN"B$: PRINT D$"READ"B$
  14. 140 C1 = 1:PG$(1) = ""
  15. 150  INPUT NL
  16. 160  GET A$: PRINT A$;: IF A$ < > CHR$(13)  THEN PG$(C1) = PG$(C1) +A$: GOTO 160: REM  PLACE A BASIC LINE IN PG$(C1) BY GETTING ONE CHARACTER AT A TIME UNTIL <RETURN> ENCOUNTERED
  17. 170  IF PG$(C1) < >""  THEN C1 = C1 +1:PG$(C1) = "": REM  CHECK FOR TWO (OR MORE) RETURNS IN A ROW
  18. 180  GOTO 160
  19. 190  PRINT : PRINT D$"CLOSE"B$
  20. 200  IF  PEEK(222) < >5  OR NL = 0  THEN  HOME : VTAB 12: POKE 216,0:EF = 1: PRINT "UNABLE TO READ FILE": PRINT : INPUT "DO YOU WANT TO TRY AGAIN? ";YN$: ON YN$ = "Y" GOTO 90: END 
  21. 210  PRINT : PRINT 
  22. 220  POKE 34,0: VTAB 24: HTAB 1: PRINT B$" NOW IN MEMORY-<CR>: ";: GET A$: PRINT 
  23. 230  HOME : VTAB 12: HTAB 1: INVERSE : PRINT "WAIT WHILE RELOADING AUTO.MENU": NORMAL : PRINT 
  24. 240  IF  PEEK(48896) < >76  THEN  PRINT D$"BLOAD CHAIN,A520": CALL 520"AUTO.MENU"
  25. 250  PRINT D$"CHAIN AUTO.MENU"