Various toolkit routines: renumber, remove REMs, variable list, variable values, search and replace, more.
Content
Image 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