home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / TEXT_ADV.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  18 lines
  1. 10  TEXT : HOME : NORMAL 
  2. 62500 D$ =  CHR$(4)
  3. 62502  PRINT ""
  4. 62505  TEXT : HOME : NORMAL : PRINT D$;"CATALOG":B =  PEEK(27) -2: IF B >22  THEN B = 22
  5. 62510 T = 0:CH = 4: FOR CV = 0 TO 23: GOSUB 62640: IF C < >160  THEN  POKE P -1,219: POKE P,T +193: POKE P +1,221:T = T +1:S = CV
  6. 62520  NEXT CV: VTAB 24:A$ = "TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."
  7. 62530 B$ = "RUN": HTAB 1: PRINT  LEFT$(A$,39);:A$ =  MID$ (A$,2) + LEFT$(A$,1):K =  PEEK( -16384): IF K <128  THEN  FOR K = 1 TO 75: NEXT K:K =  FRE(0): GOTO 62530
  8. 62540  POKE  -16368,0:K = K -176: IF K <1  OR K >5  THEN 62610
  9. 62550  HTAB 1: CALL  -868: IF K = 5  THEN  END 
  10. 62560  PRINT " PRESS 'LETTER' YOU WISH TO ";: IF K = 1  THEN B$ = "LOAD"
  11. 62570  IF K = 2  THEN B$ = "LOCK"
  12. 62580  IF K = 3  THEN B$ = "UNLOCK"
  13. 62590  IF K = 4  THEN B$ = "DELETE": FLASH 
  14. 62600  PRINT B$;: CALL  -198: NORMAL : GET K$:K =  ASC(K$) -48
  15. 62610  IF K <17  OR K >T +16  THEN 62530
  16. 62620 CH = 1:CV = S -T +K -16: GOSUB 62640: IF C = 194  AND (B$ = "RUN"  OR B$ = "LOAD")  THEN B$ = "B" +B$
  17. 62630  FOR CH = 6 TO 39: GOSUB 62640:B$ = B$ + CHR$(C): NEXT CH: HTAB 1: CALL  -868: PRINT B$: PRINT D$;B$: GOTO 62500
  18. 62640 C1 =  INT(CV/8):C2 = CV -C1 *8:P = 1024 +128 *C2 +40 *C1 +CH:C =  PEEK(P): RETURN