home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / JANUARY.1988 / MINI.MENU.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  10 lines
  1. 10000  IF  PEEK(64435) < >6  THEN  PRINT "NOT //E OR //C": END 
  2. 10010  IF  PEEK(48640) < >76  THEN  PRINT "NOT PRODOS": END 
  3. 10020  HOME : POKE 49153,0: POKE 49237,0: POKE 1024,123:Z =  PEEK(1024) < >123: POKE 49236,0: POKE 49152,0: IF Z  THEN  PRINT "NO 80-COLUMN CARD": END 
  4. 10030  CLEAR :S = 4: DIM A$(100):D$ =  CHR$(4): PRINT D$"PREFIX": INPUT P$: PRINT D$"OPEN"P$",TDIR": PRINT D$"READ"P$
  5. 10040 X = X +1: INPUT A$(X): ON  LEFT$(A$(X),6) < >"BLOCKS" GOTO 10040: PRINT D$"CLOSE":FB$ = A$(X):LN = X -2: FOR A = 4 TO LN:A$(A) =  MID$ (A$(A),2,15): NEXT : FOR A = LN +1 TO 100:A$(A) = "": NEXT 
  6. 10050  PRINT D$"PR#3": PRINT P$: PRINT FB$: FOR D = 1 TO 80: PRINT "-";: NEXT : FOR X = 4 TO 19
  7. 10060  PRINT X -3;" ";A$(X): NEXT : VTAB 4: FOR X = 20 TO 35: POKE 1403,20: PRINT X -3;" ";A$(X): NEXT 
  8. 10070  VTAB 4: FOR X = 36 TO 51: POKE 1403,40: PRINT X -3;" ";A$(X): NEXT : VTAB 4: FOR X = 52 TO 54: POKE 1403,60: PRINT X -3;" ";A$(X): NEXT 
  9. 10080  VTAB 21: CALL  -868: INPUT "ENTER NUMBER TO RUN OR Q TO QUIT ";N$: ON N$ = "Q" GOTO 10090:X =  VAL(N$): ON X <1  OR X >51 GOTO 10080: ON A$(X +3) = "" GOTO 10080: PRINT  CHR$(21): HOME : PRINT D$"-";A$(X +3)
  10. 10090  END