10 DEFFNS="StrpBrd"
   20 REPEAT
   30 MODE0
   40 maxt%=40:REM MAX TRACKS
   50 maxh%=25:REM MAX HOLES
   60 PRINT'"Veroboard printer by C.J.Richardson for 8BS. From an idea by John Ilsley"
   70 PRINT''"Large size board = 50 h x 36 t"
   80 PRINT"Small size board = 25 h x 9  t"
   90 PRINT"------------------------------"'
  100 REPEAT
  110 PRINT"Press RETURN for maximum"
  120 PRINT'"How many TRACKS (1-";maxt%;")"
  130 INPUT tracks%
  140 UNTILtracks%>=0 AND tracks%<=maxt%
  150 IF tracks%=0 tracks%=maxt%
  160 REPEAT
  170 PRINT"How many HOLES on a track (1-";maxh%;")"
  180 INPUT holes%
  190 UNTILholes%>=0 AND holes% <=maxh%
  200 IF holes%=0 holes%=maxh%
  210 PRINT"You have chosen a board of ";tracks%;" Tracks by ";holes%;" holes"
  220 PRINT'"Is this ok Y/N?"
  230 UNTILINSTR("Yy",GET$)
  240 PRINT'"Prepare printer and press a key"
  250 REPEATUNTILGET
  260 VDU2
  270 VDU1,27,1,64:REM RESET PRINTER
  280 VDU1,27,1,69:REM SET EMPHASIZED
  290 VDU1,15:REM COMPRESSED
  300 PROCl
  310 FORL%=1 TO tracks%
  320 PRINTSTR$L%;:IF L%<10PRINT" ";
  330 FORI%=1 TO holes%
  340 PRINT;"----O";
  350 NEXT
  360 PRINT"---- ";STR$(L%)
  370 NEXT
  380 PROCl
  390 VDU3
  400 PRINT"Finished.... ";
  410 END
  420 DEFPROCl
  430 PRINT"  ";
  440 FORL%=1 TO holes%
  450 PRINTSPC(5-LEN(STR$(L%)));STR$(L%);
  460 NEXT
  470 PRINT
  480 ENDPROC