10REM Key Strip Printer V 0.10
20REM (C) 1996 Jon Ripley
30REM This program is PD
40REM Please DO NOT ALTER this progra
m
50DEFFNS="KStrip"
60MODE 7
70ONERRORPROCagain:END
80DEFPROCcentre(A$,Y):PRINTTAB((40-LE
NA$)/2,Y)A$;:ENDPROC
90FORY=1TO2:PROCcentre(CHR$141+CHR$(1
28+Y)+"(Blank) Function Key Strip Printe
r ",Y):PROCcentre(CHR$141+CHR$(127+2*Y)
+"(C) Jon Ripley 1996 ",22+Y):NEXT
100VDU28,0,21,39,4
110DEFFNS="KStrip"
120PRINT'
130PROCb(" This program will print a
ny number")
140PROCb("of blank function key strips
you might")
150PROCb("need.")
160INPUT'"How many strips:"S%
170PRINTTAB(0,14);
180PROCb(" Press any key when rea
dy")
190IFGET
200CLS:PRINT''
210PROCb("Printing...")
220ONERRORREPORT:A$=GET$:VDU3,6:PROCb(
"Printing Aborted"):OSCLI"FX15":PROCagai
n:END
230FORX=1TOS%
240PROCprint
250NEXT
260DEFPROCagain
270CLS
280PRINT''
290PROCb("Do you want to leave the pro
gram (Y/N)")
300REPEATA$=GET$:UNTILINSTR("YyNn",A$)
310IF INSTR("Nn",A$) RUN
320VDU26,12
330PROCb("Return to the menu (Y/N)")
340REPEATA$=GET$:UNTILINSTR("YyNn",A$)
350IF INSTR("Yy",A$) :*Exec !Boot
360END
370DEFPROCprint
380C=12
390VDU21,2
400VDU1,27,1,64,1,15,1,27,1,85,1,1,1,2
7,1,51,1,16
410PRINT'
420FORX=1TO10
430PRINT"+";STRING$(C,"-");
440NEXT
450PRINT"+"
460FORX=1TO3
470FORA=1TO3
480FORB=1TO10
490PRINT"!";SPC(C);
500NEXT
510PRINT"!"
520NEXT
530FORY=1TO10
540PRINT"+";STRING$(C,"-");
550NEXT
560PRINT"+"
570NEXT
580PRINT'
590VDU3,6
600ENDPROC
610DEFPROCb(A$):LOCALX
620FORX=0TO1:VDU141:PRINTA$:NEXT
630ENDPROC