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)