home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / BIGCAT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  20 lines

  1. 100  ONERR  GOTO 2000
  2. 110  DEF  FN A(X) =  PEEK(40) + PEEK(41) *256: TEXT : HOME :MEM = ( PEEK(978) -( PEEK(978) >127) *256) *256 +2947: FOR I = 1 TO 24: READ N,D: POKE N +MEM,D: NEXT : GOTO 1000
  3. 400  HTAB H2:BA =  FN A(X):C =  PEEK(BA + PEEK(36)): IF C = 160  THEN  POP : GOTO 1060
  4. 401  RETURN 
  5. 500 T$ = "":BA =  FN A(X): FOR X =  PEEK(36) TO LE:C =  PEEK(BA +X):T$ = T$ + CHR$(C): NEXT : RETURN 
  6. 1000  PRINT  CHR$(4)"CATALOG"
  7. 1040  FOR V = 3 TO  PEEK(37) +1: VTAB V:H2 = 2: GOSUB 400: HTAB 4: PRINT "-"; CHR$(V +30);"-";:H2 = 22: GOSUB 400: HTAB 24: PRINT "-"; CHR$(V +62);"-";: NEXT V
  8. 1060  IF H2 = 22  THEN  PRINT 
  9. 1080  POKE  -16368,0: INPUT "ENTER SELECTION # --> ";SEL$:P =  ASC(SEL$)
  10. 1090  IF P -61 >V  OR (P -30 >V  AND P <65)  OR P = 32  THEN 2000
  11. 1100  IF P <65  THEN  VTAB P -30: HTAB 2:LE = 19: GOSUB 500:LE = 8
  12. 1120  IF P >64  THEN  VTAB P -62: HTAB 22:LE = 39: GOSUB 500:LE = 28
  13. 1140  INVERSE : HTAB LE:FT$ =  LEFT$(T$,1):T$ =  RIGHT$(T$,13): PRINT T$: NORMAL 
  14. 1160  IF  ASC(FT$) = 193  THEN C$ = "RUN"
  15. 1180  IF  ASC(FT$) = 212  THEN C$ = "EXEC"
  16. 1200  IF  ASC(FT$) = 201  THEN C$ = "RUN"
  17. 1220  IF  ASC(FT$) = 194  THEN C$ = "BRUN"
  18. 1240  PRINT : PRINT  CHR$(4);C$;T$: END 
  19. 2000  POKE 216,0: HOME : VTAB 12: PRINT "YOU HAVE MADE AN INCORRECT ENTRY;": INPUT "PRESS RETURN TO CONTINUE: ";T$: RUN 
  20. 30000  DATA  1428,12,1439,234,1440,234,1441,234,1398,32,1399,237,1400,253,1403,32,1404,237,1405,253,1416,32,1417,66,1418,174,1421,32,1422,237,1423,253,1320,234,1321,234,1322,234,1347,234,1348,234,1349,234,1313,51,1466,50