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