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