home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 1 / AppleDisk_001.dsk / LOADER.bas < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  1.6 KB  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  *       LOADER       *
  3. 30  REM  * DI KENNETH PENNER  *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY EDITRONICA &    *
  6. 60  REM  * MICROSPARC, INC    *
  7. 70  REM  **********************
  8. 80  DIM ME$(12),TB$(12),PG$(225):EF = 0
  9. 90 D$ =  CHR$(4):SD = 1:DA = 1:LD = 1:N = 1:AS = 1: REM    FLAG SUONO, DATI, CARICAMENTO, ASSEMBLATO IMPOSTATI
  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    LEGGE NOME FILE
  12. 120  HTAB 1: VTAB 7: PRINT "STO LEGGENDO IL FILE IN MEMORIA...";: CALL  -958: REM   PULISCE FINO A FINE LINEA
  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   METTE UNA LINEA BASIC IN PG$(C1) PRELEVANDO UN CARATTERE ALLA VOLTA FINO A CHE SI INCONTRA <RETURN>
  17. 170  IF PG$(C1) < >""  THEN C1 = C1 +1:PG$(C1) = "": REM    CONTROLLA SE DUE (O PIU') RETURN IN UNA RIGA
  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 "NON RIESCO A LEGGERE IL FILE": PRINT : INPUT "VUOI RITENTARE? ";YN$: ON YN$ = "S" GOTO 90: END 
  21. 210  PRINT : PRINT 
  22. 220  POKE 34,0: VTAB 24: HTAB 1: PRINT B$" ADESSO IN MEMORIA-<CR>: ";: GET A$: PRINT 
  23. 230  HOME : VTAB 12: HTAB 1: INVERSE : PRINT "ATTENDI: STO RICARICANDO 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"