10 'You may add your own files to be printed out.'
20 'The naming convention is Picxxxx.Data,
30 'where xxxx is any valid BTOS file spec.
40 'IMPORTANT : THE FILE TO BE PRINTED MUST HAVE THE FILE PREFIX OF PIC.
50 '            THE FILE TO BE PRINTED MUST HAVE THE FILE SUFFIX OF .DATA.
60 'Using the Editor Program Edit the file PicPrintOut.Files
70 'and add the name to this file that you want to be displayed in the menu.
80 'NOTE that this name must match the actual
90 'name of the file on disk but do not enter the file prefix or suffix.
100 'Charlie Brown, Central T.S.C., Oakbrook, Ill.
110 OPTION BASE 1
120 MAXFILES = 30
130 DIM A$(30)
140 PRINTERSPEC$ = [SPL]
150 OPEN I,1,<games>PicPrintOut.Files
160 FOR I = 1 TO MAXFILES
170 INPUT 1,A$(I)
180 IF EOF(1) THEN 200
190 NEXT I
200 CLOSE 1
210 ON ERROR GOTO 490
220 CNT = I
230 PRINT CHR$(255)+PF+CHR$(12)
240 PRINT CHR$(255)+C;CHR$(0);CHR$(4):PRINT CHR$(255);EF
250 PRINT TAB(12) THE FOLLOWING FILES ARE AVAILABLE FOR PRINTING ::PRINT
260 FOR I = 1 TO CNT STEP 2
270 PRINT TAB(9); : PRINT USING ;I; : PRINT  = ;A$(I);
280 IF LEN(A$(I+1)) <> 0 THEN PRINT TAB(40); : PRINT USING ;I+1;:PRINT  = ;A$(I+1)
290 IF LEN(A$(I+1)) = 0 THEN I = I1
300 NEXT I
310 IF (I MOD 2) = 0 THEN PRINT TAB(40); : PRINT USING ;I;:PRINT  = ;END
320 IF (I MOD 2) <> 0 THEN PRINT TAB(9); : PRINT USING ;I;:PRINT  = ;END
330 PRINT:PRINT      Please enter the number for the printout you want. ;CHR$(255);EL;
340 INPUT SELECT
350 IF SELECT > CNT THEN SYSTEM
360 IF SELECT <= 0 THEN PRINT CHR$(7):GOTO 240
370 OPEN I,1,<games>Pic+A$(SELECT)+.DATA
380 PRINT:PRINT      Print to (i.e. [Spl], [Lpt], [Ptr]B, etc.);
390 PRINT  Default = +PRINTERSPEC$;CHR$(255);EL;
400 INPUT PRINTSPEC$
410 IF LEN(PRINTSPEC$) = 0 THEN PRINTSPEC$ = PRINTERSPEC$ ELSE PRINTERSPEC$ = PRINTSPEC$
420 OPEN O,2,PRINTSPEC$
425 WHILE NOT EOF(1)
430   LINE INPUT 1,RECORD$
440   PRINT 2,RECORD$
450 WEND
460 CLOSE 1
470 CLOSE 2
480 GOTO 230
490 PRINT
500 IF SYSERC() = 203 THEN PRINT CHR$(255)+C;CHR$(0);CHR$(0):PRINT CHR$(255);EF: PRINT       Sorry, that file is not on disk.:CLOSE:RESUME 240
510 IF SYSERC() = 7 THEN PRINT CHR$(255)+C;CHR$(0);CHR$(0):PRINT CHR$(255);EF:PRINT      Sorry, that printer is not available from this workstation:CLOSE:RESUME 210
520 IF SYSERC() = 33 THEN PRINT CHR$(255)+C;CHR$(0);CHR$(0):PRINT CHR$(255);EF:PRINT      Sorry, that system service is not available.:CLOSE:RESUME 240
530 IF SYSERC() = 431 THEN PRINT  CHR$(255)+C;CHR$(0);CHR$(0):PRINT CHR$(255);EF:PRINT      Sorry, but that printer type conflicts;:PRINT     with another printer assigned to that IO channel.:CLOSE:RESUME 240
540 PRINT CHR$(255)+C;CHR$(0);CHR$(0):PRINT CHR$(255);EF:PRINT ERROR CODE IS ;SYSERC()
550 ON ERROR GOTO 0
