Compucolor.org – Virtual Media

Listing of file='DSP.BAS;01' on disk='vmedia/comtronics-sector.ccvf'

100 CLEAR 200:DIM PG$(100)
110 REM  ******* DIRECTORY FILE PRINTOUT PROGRAM ***************.
120 PLOT 12,6,3,15:PRINT
130 PRINT  TAB( 5);"THIS IS A 'SORTED DIRECTORY FILE' PRINTOUT PROGRAM."
140 PRINT TAB( 5);"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
150 PLOT 6,2,15:PRINT :PRINT
160 PRINT "DO YOU WISH TO PRINT OR VIEW YOUR SORTED FILES: ";
170 PLOT 6,0:GOSUB 770
180 IF KB= 80THEN PR= 1:PLOT 6,2:PRINT :PRINT :GOTO 280
190 IF KB= 86THEN PR= O:PLOT 6,2:PRINT :GOTO 210
200 PLOT 26:GOTO 170
210 PRINT :PRINT "HOW DO YOU WANT YOUR FILES PRINTED:":PRINT
220 PRINT "VERTICAL COLUMNS.":PRINT "HORIZONTAL ROWS."
230 PRINT :PRINT "PLEASE SELECT DESIRED FORMAT: ";
240 PLOT 6,0,15:GOSUB 770
250 IF KB= 86THEN PLOT 6,2,15:PRINT :GOTO 400
260 IF KB= 72THEN PLOT 6,2,15:PRINT :GOTO 610
270 PLOT 26:GOTO 240
280 PRINT "1)=  110 BAUD"
290 PRINT "2)=  150 BAUD"
300 PRINT "3)=  300 BAUD"
310 PRINT "4)= 1200 BAUD"
320 PRINT "5)= 2400 BAUD"
330 PRINT "6)= 4800 BAUD"
340 PRINT "7)= 9600 BAUD"
350 PRINT :PRINT "PLEASE SELECT BAUD RATE:      ";
360 PLOT 6,0,15:GOSUB 770
370 BR= KB- 48
380 IF BR< 1OR BR> 7THEN PLOT 26:GOTO 360
390 PLOT 6,2,15,27,18,BR:PRINT :GOTO 210
400 PRINT :GOSUB 680
410 PLOT 12,6,2,15:GOSUB 710:GOSUB 690
420 HL= 28672:DE= 36864
430 FOR Z= 1TO 3
440 FOR Y= 1TO 10
450 FOR X= 1TO 3
460 FOR W= 1TO 30
470 ACC= PEEK (DE)
480 IF ACC= 2THEN POKE HL,3:GOTO 500
490 POKE HL,ACC
500 DE= DE+ 1:HL= HL+ 1:NEXT W
510 DE= DE+ 14:HL= HL+ (128- 30):NEXT X
520 DE= DE- 4:NEXT Y
530 IF Z= 1THEN HL= 28716:NEXT Z
540 IF Z= 2THEN HL= 28760:NEXT Z
550 GOSUB 820:IF PR= 1THEN GOSUB 890
560 GOSUB 730:GOSUB 770
570 IF KB= 78THEN GOSUB 810:GOTO 410
580 IF KB= 81THEN PLOT 6,2,15,12:END
590 IF KB= 83THEN 1000
600 PLOT 26:GOTO 560
610 PRINT :GOSUB 680
620 PLOT 12,6,2,15,3,0,31:GOSUB 690
625 IF PR= 1THEN GOSUB 890
630 GOSUB 730:GOSUB 770
640 IF KB= 83THEN GOTO 1000
650 IF KB= 81THEN PLOT 12,6,2,15:END
660 IF KB= 78THEN GOSUB 810:GOTO 620
670 GOTO 530
680 INPUT "WHICH PAGE WOULD YOU LIKE TO SEE: ";DP$
684 PRINT :PRINT "INSERT 'SORTED DIRECTORY FILE' DISK,";
688 INPUT " THEN PRESS ENTER: ";S$:RETURN
690 PLOT 27,4:PRINT "LOAD DIRFIL.DSP;"DP$" 7000":PLOT 27,27
700 RETURN
710 PLOT 27,4:PRINT "LOAD DIRFIL.DSP;"DP$" 9000":PLOT 27,27
720 RETURN
730 PLOT 6,2,15,3,0,30:PRINT "(";:PLOT 6,6:PRINT "N";
740 PLOT 6,2:PRINT ")EXT PAGE / (";:PLOT 6,6:PRINT "Q";
750 PLOT 6,2:PRINT ")UIT / (";:PLOT 6,6:PRINT "S";
760 PLOT 6,2:PRINT ")AVE";:PLOT 6,0,15:RETURN
770 POKE 33278,0:POKE 33279,80
780 KB= PEEK (33278)
790 IF KB= 0THEN 780
800 RETURN
810 DP= VAL (DP$):DP= DP+ 1:DP$= STR$ (DP):RETURN
820 HL= 28708
830 FOR X= 1TO 2
840 FOR Y= 1TO 30
850 POKE HL,42:HL= HL+ 1:POKE HL,3:HL= HL- 1
860 HL= HL+ 128:NEXT Y
870 HL= 28752:NEXT X
880 RETURN
890 HL= 28672:CC= 6:PG$= "":A$= ""
900 FOR X= 1TO 30
910 FOR Y= 1TO 62
920 A$= CHR$ (PEEK (HL)):PG$= PG$+ A$:A$= ""
930 HL= HL+ 1:POKE HL,CC:HL= HL+ 1
940 NEXT Y:HL= HL+ 4:A$= ""
950 PLOT 27,18,BR,27,13:PRINT PG$:PRINT :POKE 33265,0
960 PG$= "":NEXT X:RETURN
970 FOR X= 1TO 17.5:NEXT X
980 PLOT 27,4:PRINT "SAVE DIRFL2.DSP;"DP$" 7000 1000"
990 PLOT 27,27:RETURN
1000 PLOT 6,0,15,3,0,30
1010 PRINT "                                   ";
1020 PLOT 6,2,15,8:GOSUB 970:GOTO 560