8-Bit Software Online Conversion

Function key utilities - Listing

10: 20: 30: 40: 50: 60*|" PROGRAM BY RUSHDEN ROY (A 'L' PLATE PROGRAMMER) FOR 8-BIT SOFTWARE 70MODE7 80*FX21 90VDU23,1,0;0;0;0; 100CLS 110PRINT' 120PROCROY 130PROCdblht("This is a collection of small",3,10) 140PROCdblht("utility programs that ca n be ",3,12) 150PROCdblht("used with the function k eys.",3,14) 160PROCredkeys 170*FX15,1 180REPEAT:UNTIL GET =32:CLS 190PROCTITLEDOUBLE("Programs for the f KEYS",0,0) 200PRINTTAB(0,23)" Press the SHIFT key to scroll " 210VDU 28,0,22,39,6 220VDU14 230PRINT'" This main program contains some short programs that may be used wi th the red function keys." 240PRINT" A function key can hold smal l programs so that when the key is press ed it will produce words or symbols." 250PRINT" One short program that is us ed a lot is *K.0MO.7|M|NL.|M so that w hen the f0 key is pressed it will list t he program in mode 7 and stop the screen scrolling." 260PRINT" Also if a word or two will be used a lot you could have *K.1Joe B loggs so that every time the f1 key i s pressed Joe Bloggs will be printed o nto the screen." 270PRINT" With these small programs t hat are in this collection I suggest tha t when you have reached the end of this text you hit space to list them, then shift to scroll." 280PRINT" If you find one that you wou ld like to try then press escape and use the copy key to put it in your fkey ." 290: 300*FX15,1 310PRINT'TAB(3)" NOW PRESS SPACE T O LIST  320REPEAT UNTIL GET =32 330VDU14 340PROClist 350END 360DEFPROCROY 370PRINT"   PROGRAM B Y ££££££££" 380PRINT"     k 7e757£k" 390PRINT"     s550!5u0£5" 400PRINT"   p5u7t5upp5" 410PRINT 420PRINT" FOR 8-BIT SOFTWARE" 430PRINT" 1 Oakwood Drive Heaton BOLTO N BL1 5EE"' 440ENDPROC 450DEFPROCdblht(x$,x,y):PRINTTAB(x,y); CHR$(141);CHR$(134);x$:PRINTTAB(x,y+1);C HR$(141);CHR$(135);x$ 460ENDPROC 470DEF PROCTITLEDOUBLE(TITLE$,x,y) 480LOCAL 490IFLEN(TITLE$)MOD2=1THENTITLE$=TITLE $+CHR$32 500LL%=LEN(TITLE$):RR%=(24-LL%)/2:TITL E$=STRING$(RR%," ")+TITLE$+STRING$(RR%-1 ," ") 510PRINTTAB(x,y)"  ppppppppppppppp" 520PRINTTAB(x,y+1)"  sssssssssssssssk"CHR$(255) 530PRINTTAB(x,y+2)CHR$(141)"  "TIT LE$"   540PRINTTAB(x,y+3)CHR$(141)"  "TIT LE$"   550PRINTTAB(x,y+4)"  £££££££££££££££ j" 560PRINTTAB(x,y+5)"  /////////////////" 570ENDPROC 580DEF PROCredkeys 590PRINT''''"      `pp `pp `pp "CHR$(156) 600PRINT" H I T S P A C E CHR 610PRINT"       "££ "CHR$162"££ "CHR$(156) 620ENDPROC 630DEF PROClist 640VDU23,1,1;0;0;0; 650VDU 28,0,22,39,6 660CLS 670*FX138,0,76 680*FX138,0,73 690*FX138,0,83 700*FX138,0,84 710*FX138,0,55 720 *FX138,0,55 730*FX138,0,48 740*FX138,0,44 750*FX138,0,13 760ENDPROC 770 780REM" ``````````````````````````` 790*|"           810*|" PROG. ONTO END OF ONE IN MEM. AND RENUMBER 820*|" (By B.Roberts) 830*K.9V.7:I."MERGE",P$:P$="*L."+P$+" "+STR$÷(TOP-2)+CHR$13+"REN."+CHR$13:A%=1 38:X%=0:F.C=0TOLENP$:Y%=ASC(M.P$,C)):CA. &FFF4:N.|M 840: 850REM" `````````````````````````` 860*|"           PROG. ONTO END OF ONE IN MEM. WILL NOT RENUMBER 870 880*K.9V.7:I.'"MERGE",P$:P$="*L."+P$+" "+STR$÷(TOP-2):A%=138:X%=0:F.C=0TOLENP$ :Y%=ASC(M.P$,C)):CA.&FFF4:N.|M 890: 900REM" `````````````````````````` 910*|"         IN SMALL PRINT FOR A LABEL 930*|" (OR TWO IF LARGE CATALOGUE) 940*|" (By NOT KNOWN) 950*KEY9 |B|A|O|A|[|AS|A|@|A|[|A3|A|R| C*CAT|B|M|C 960: 970REM" `````````````````````````` 980*|"             1000*|" i.e. Prog1,Prog2,Prog3 etc. 1010*|" (By J Carnell) 1020*KEY9V.7:Z%=Z%+1|MSA."Prog"+STR$(Z% )|M 1030REM" Warning:This will copy to disc with name Prog1 etc.Make sure that you do not overwrite if there is a Prog1 already on disc! 1040REM" `````````````````````````` 1050*|"         1070*|" PRESS f KEY THEN TYPE STRING 1080*|" (By David Jupe) 1090*K.9|N|!hLINEN$:P=PA.+1:@%=5:|!uN=2 56*?P+P?1:M=P+3:P=P+P?2:|!g|!'$M,N$)|!qN ;:|!uA%=?M:|!V&B50E:M=M+1:U.A%=13:|!q:U. ?P=255EL.U.?P=255|M 1100REM" Warning: When copying this cut off clean at end of M i.e. no trailing spaces. 1110REM" `````````````````````````` 1120*|"             1140*|"       1160*|" (By NOT KNOWN) 1170*K.9I."Tab :40/80cols";s:I."Enter t ext:"t$:tp=INT(((s-(LEN(t$)))/2)-1):P.;" P.TAB(";tp")""";t$"""":|M 1180: 1190REM" `````````````````````````` 1200*|"           1210*|" PRESS f KEY, MOVE CURSOR TO BOTTOM LEFT CORNER <RETURN> THEN TOP RIGHT CORNER <RETURN> THE VDU28 REQUIRED WILL BE SHOWN 1220*|" (By NOT KNOWN) 1230*K.9X=POS:Y=VP.:G=GET:P=POS:V=VP.:V .31,P,V,46:G=GET:W=POS:Z=VP.:V.31,W,Z,46 ,31,X,Y:P."VDU28,";P;",";V;",";W;",";Z|L |M 1240: 1250REM" ``````````````````````````` 1260*|"             1270*|" f KEY, TYPE FILE NAME (BASIC) IT LETS YOU KNOW IF NOT THE SAME 1280*|" (By D.Reisenberger) 1290*K.9I.N$:CH=OP.(N$):E%=TRUE:F.Q%=PA GE TO TOP-1:P.÷Q%:V.11:IF?Q%<>BGET#CH TH .E%=FA.:P."Error at &";÷Q%:N.:CLO.#CH EL . N.:P.'"All OK":CLO.#CH|M 1300REM" ``````````````````````````` 1310*|"               1320REM" Use with the Teletext control codes ie. CTRL+fKEY or SHIFT+fKEY 1330REM" FULL GRAPHIC BLOCK 1340 1350 *KEY0"¶" 1360REM" `````````````````````````` 1370REM" NORMAL HEIGHT 1380 1390 *KEY1|!|L 1400REM" `````````````````````````` 1410REM"     1430 1440 *KEY2|!|M 1450REM" `````````````````````````` 1460REM" CONTIGUOUS  GRAPHICS 1470 1480 *KEY3|!|Y 1490REM" `````````````````````````` 1500REM" SEPARATED  GRAPHICS 1510 1520 *KEY4|!|Z 1530REM" `````````````````````````` 1540REM" BLACK BACKGROUND 1550 1560 *KEY5|!|½ 1570REM" `````````````````````````` 1580REM" NEW BACKGROUND 1590 1600 *KEY6|!|] 1610REM" `````````````````````````` 1620REM" HOLD  GRAPHICS 1630 1640 *KEY7|!|^ 1650REM" `````````````````````````` 1660REM" RELEASE    GRAPHICS 1670 1680 *KEY8|!|- 1690REM" `````````````````````````` 1700REM" CONCEAL GRAPHICS 1710 1720 *KEY9|!|X 1730REM" `````````````````````````` 1740 1750 1760 1770*|"     1780*|"  1790REM" (By R Sharman) 1800*|" With Interword wordprocessor To use press CTRLSHIFT f4,f5,f6 or f7 1810REM" THIS WILL UNDERLINE WORD 1820 1830 *KEY4|!,|Z|!|D|!- 1840REM" `````````````````````````` 1850REM" THIS WILL GIVE BOLD WORD 1860 1870 *KEY5|!,|Z|!|E|!- 1880REM" `````````````````````````` 1890REM" THIS WILL GIVE ITALICS WORD 1900 1910 *KEY6|!,|Z|!|F|!- 1920REM" `````````````````````````` 1930REM" THIS WILL GIVE NORMAL WORD 1940 1950 *KEY7|!,|Z|!|G|!- 1960REM" `````````````````````````` 1970 1980 1990REM" TO SEE THIS AGAIN TYPE RUN THEN PRESS RETURN 2000REM" CREDITS: Thanks to Steven Flintham for his help in showing me how to window and LIST from a program, explained in the '8-BIT Software' issue No.22 (TitlTop)