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