Various toolkit routines: renumber, remove REMs, variable list, variable values, search and replace, more.
Appears on
Library tape from the Sinclair Computer Users Society (SINCUS).
Gallery
Source Code
9970 REM TOOLKIT 9971 CLS : 9972 INPUT "1=SHIFT UP;0=SHIFT DOWN"'SHIFT 9973 IF SHIFT THEN POKE 63390,97: POKE 63392,65: POKE 63419,123: RANDOMIZE USR 63350 9974 IF NOT SHIFT THEN POKE 63390,65: POKE 63392,97: POKE 63419,91: RANDOMIZE USR 63350 9975 BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 1,10;"TOOLKIT"''"1>> RENUMBER"'"2>> REMKILL"'"3>> VARIABLE LIST"'"4>> VARIABLES: VALUES"'"5>> SEARCH & REPLACE"'"6>> SEARCH & REPLACE ($)"'"7>> VARIABLES: LINES"'"8>> SWAP CASES (ALL)"'"10> SWAP CASES (NO TEXT)"'''" >> PRINTER [9=ON;0=OFF]"'" NOW ON" AND CHAN=80;" NOW OFF" AND CHAN=83: INPUT FFF 9976 IF FFF=10 THEN GO TO 9970 9977 IF FFF=9 THEN LET CHAN=80: GO TO 9975 9978 IF FFF=0 THEN LET CHAN=83: GO TO 9975 9979 IF CHAN=83 THEN GO TO 9981 9980 IF CHAN=80 AND (FFF<>3 AND FFF<>4 AND FFF<>7) THEN LET CHAN=83: CLS : PRINT AT 10,0; FLASH 1;"USE PRINTER ONLY WITH OPTIONS 3, 4 OR 7": GO TO 9992 9981 LET YYY=(64048 AND FFF=1)+(64841 AND FFF=2)+(65017 AND FFF=3)+(65195 AND FFF=4)+(64000 AND FFF=5)+(63900 AND FFF=6)+(63600 AND FFF=7)+(63450 AND FFF=8): IF NOT YYY THEN GO TO 9975 9982 CLS : LET TTT=100: LET FFF=TTT: IF YYY=64048 THEN INPUT "START ";FFF,"STEP ";TTT 9983 IF YYY=63450 THEN CLS : INPUT "ENTER 1 TO GO UPPERS"'"2 TO GO LOWERS"'';FFF 9984 IF YYY=63450 AND FFF=1 THEN POKE 63467,97: POKE 63469,65: POKE 63496,123: GO TO 9991 9985 IF YYY=63450 AND FFF=2 THEN POKE 63467,65: POKE 63469,97: POKE 63496,90: GO TO 9991 9986 IF YYY=64000 THEN INPUT "ENTER CODE OF CHARACTER TO BE REPLACED ";FFF,"CODE OF REPLACEMENT CHARACTER ";TTT: POKE 64001,FFF: POKE 64003,TTT: GO TO 9991 9987 IF YYY=65195 THEN OPEN #2,CHR$ CHAN: RANDOMIZE USR YYY: CLOSE #2: GO TO 9992 9988 IF YYY=63900 THEN INPUT "ENTER CODE OF STRING NAME TO BE REPLACED ";FFF,"CODE OF REPLACEMENT STRING NAME ";TTT: POKE 63901,FFF: POKE 63903,TTT: GO TO 9991 9989 IF YYY=63600 THEN CLS : INPUT "ENTER VARIABLE NAME";Z$: OPEN #2,CHR$ CHAN: PRINT : PRINT "LINES CONTAINING ";Z$: CLOSE #2: GO TO 9991 9990 POKE 23300,INT (FFF/256): POKE 23299,FFF-256*PEEK 23300: POKE 23302,INT (TTT/256): POKE 23301,TTT-256*PEEK 23302: IF YYY=65017 THEN OPEN #2,CHR$ CHAN: PRINT USR YYY: CLOSE #2: GO TO 9992 9991 RANDOMIZE USR YYY 9992 PRINT #1,AT 0,0;"PRESS ENTER FOR MENU": PAUSE 0: GO TO 9975 9993 CLS : SAVE "TOOLKIT" LINE 9994: SAVE "T"CODE 63350,2019: PRINT FLASH 1;"VERIFY NOW!": VERIFY "": VERIFY ""CODE : PRINT "OK!": PAUSE 120: GO TO 9975 9994 LOAD ""CODE : LET CHAN=83: GO TO 9975