Listing of file='BLIST.BAS;01' on disk='vmedia/selective_utilities-sector.ccvf'
10 REM INTRO PROG FOR BASIC LISTING PRINTOUT,'BLIST' 20 REM SETS BAUD RATE AND RUNS .PRG PROGRAM. 30 REM INTRO. PROG BY K. G. WINDER, CUVIC. JAN 83 40 PLOT 14,12:PLOT 3,0,8:PRINT TAB( 15)"BASIC LISTING PROGRAM - PRINTER." 50 PRINT TAB( 15)"________________________________" 60 PLOT 15:PRINT :PRINT TAB( 7)"THIS PROGRAM ENABLES YOU TO LIST BASIC PROGRAMS" 70 PRINT TAB( 7)"ON A PRINTER WITH CONTROL CODES NUMBERED IN " 80 PRINT TAB( 7)"BRACKETS, ALSO ONE INSTRUCTION PER LINE AND" 90 PRINT TAB( 7)"PAUSE EACH 25 LINES IF DESIRED." 100 PRINT TAB( 7)"THE PROGRAM REQUIRES FIRST AND LAST LINE NO'S." 110 PLOT 15:PRINT :PRINT :INPUT " ENTER THE BAUD RATE FOR YOUR PRINTER (1 TO 7) - ";B 120 B= INT (B):IF B< 1OR B> 7THEN 110 130 PRINT :PRINT :PRINT TAB( 15)"NOW LOADING LISTER, -.PRG PROGRAM" 140 PLOT 27,18,B,27,4:PRINT "RUN BASL80":PLOT 27,27 150 END :REM 160 REM THIS BASL80.PRG PROGRAM IS SET FOR A MICROLINE 80 170 REM IF THE CONTROL CODES FOR BRACKETS ON YOUR PRINTER 180 REM ARE NOT 7B AND 7D RESPECTIVELY, THEN YOU SHOULD 190 REM CALCULATE THEM FROM THE PRINTER'S CHARACTER CODE 200 REM AND POKE THE NEW CODE FOR 7B INTO 36717 & 36760 210 REM AND THE NEW CODE FOR 7D INTO 36743 &36795. 220 REM METHOD= FCS>LOA BASL80.PRG 8200 - RESET ESC E DO 230 REM THE POKES IN IMMEDIATE MODE ,ESC D & SAV BASLST. 240 REM PRG 8200,16D2 8AA6.(ORIG.BASLST = 5B & 5D CODES). 250 REM FOR OTHER PRINTERS CHANGE 'BASL80' IN 140 TO SUIT 260 REM YOUR OWN FILE NAME, OR ORIGINAL 'BASLST'.