Listing of file='PRINT.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 171 ### 00: 2f 2a 20 14 50 52 49 4e 54 20 56 30 31 2e 30 30 /* .PRINT V01.00 10: 20 12 2d 20 50 52 49 4e 54 20 4f 4e 20 52 53 32 .- PRINT ON RS2 20: 33 32 20 50 4f 52 54 20 50 52 4f 47 52 41 4d 0d 32 PORT PROGRAM. 30: 0a 2f 2a 09 53 55 50 50 4f 52 54 53 20 58 4f 4e ./*.SUPPORTS XON 40: 2f 58 4f 46 46 20 46 4f 52 20 44 45 43 20 4f 52 /XOFF FOR DEC OR 50: 20 44 49 41 42 4c 4f 20 50 52 49 4e 54 45 52 53 DIABLO PRINTERS 60: 0d 0a 2f 2a 20 4e 45 45 44 53 20 16 53 54 44 4c ../* NEEDS .STDL 70: 49 42 12 0d 0a 0d 0a 4d 41 49 4e 5b 50 52 49 4e IB.....MAIN[PRIN ### Disk Sector 172 ### 00: 54 5d 0d 0a 50 52 49 4e 54 20 5b 0d 0a 43 48 41 T]..PRINT [..CHA 10: 52 20 4c 49 4e 45 28 31 32 38 29 2c 46 49 4c 45 R LINE(128),FILE 20: 4e 28 32 30 29 2c 4f 54 56 45 43 28 30 29 2c 49 N(20),OTVEC(0),I 30: 4e 56 45 43 28 30 29 0d 0a 49 4e 54 20 45 52 52 NVEC(0)..INT ERR 40: 0d 0a 49 4e 56 45 43 3d 33 33 32 35 31 0d 0a 4f ..INVEC=33251..O 50: 54 56 45 43 3d 33 33 32 37 33 0d 0a 57 48 49 4c TVEC=33273..WHIL 60: 45 28 31 29 5b 0d 0a 20 50 4c 22 22 3b 50 53 22 E(1)[.. PL"";PS" 70: 13 50 52 49 4e 54 3e 12 22 0d 0a 20 49 46 28 47 .PRINT>.".. IF(G ### Disk Sector 173 ### 00: 53 28 4c 49 4e 45 29 3d 3d 30 29 20 52 45 54 55 S(LINE)==0) RETU 10: 52 4e 0d 0a 20 46 49 4c 45 4e 41 4d 45 28 4c 49 RN.. FILENAME(LI 20: 4e 45 2c 46 49 4c 45 4e 29 0d 0a 20 49 46 28 28 NE,FILEN).. IF(( 30: 45 52 52 3d 46 4f 50 45 4e 28 31 2c 46 49 4c 45 ERR=FOPEN(1,FILE 40: 4e 2c 30 2c 35 29 29 3d 3d 30 29 5b 0d 0a 20 20 N,0,5))==0)[.. 50: 4f 54 56 45 43 28 30 29 3d 31 34 0d 0a 20 20 49 OTVEC(0)=14.. I 60: 4e 56 45 43 28 30 29 3d 33 31 0d 0a 20 20 50 55 NVEC(0)=31.. PU 70: 54 43 48 41 52 28 31 32 29 3b 50 55 54 43 48 41 TCHAR(12);PUTCHA ### Disk Sector 174 ### 00: 52 28 31 33 29 0d 0a 20 20 57 48 49 4c 45 28 28 R(13).. WHILE(( 10: 45 52 52 3d 46 52 45 41 44 28 4c 49 4e 45 2c 35 ERR=FREAD(LINE,5 20: 29 29 3e 3d 30 29 0d 0a 20 20 20 5b 0d 0a 20 20 ))>=0).. [.. 30: 20 50 46 54 28 4c 49 4e 45 2c 4c 49 4e 45 2b 45 PFT(LINE,LINE+E 40: 52 52 2d 31 29 0d 0a 20 20 20 57 48 49 4c 45 28 RR-1).. WHILE( 50: 43 48 52 44 59 28 29 29 0d 0a 20 20 20 20 5b 0d CHRDY()).. [. 60: 0a 20 20 20 20 49 46 20 28 47 45 54 43 48 41 52 . IF (GETCHAR 70: 28 29 3d 3d 31 39 29 20 57 48 49 4c 45 20 28 47 ()==19) WHILE (G ### Disk Sector 175 ### 00: 45 54 43 48 41 52 28 29 21 3d 31 37 29 5b 5d 0d ETCHAR()!=17)[]. 10: 0a 20 20 20 20 5d 0d 0a 20 20 20 5d 0d 0a 20 20 . ].. ].. 20: 4f 54 56 45 43 28 30 29 3d 30 0d 0a 20 20 49 4e OTVEC(0)=0.. IN 30: 56 45 43 28 30 29 3d 30 0d 0a 20 20 46 43 4c 4f VEC(0)=0.. FCLO 40: 53 45 28 35 29 0d 0a 20 20 5d 0d 0a 20 49 46 28 SE(5).. ].. IF( 50: 45 52 52 21 3d 2d 31 29 20 5b 50 53 22 11 45 52 ERR!=-1) [PS".ER 60: 52 4f 52 20 43 4f 44 45 12 22 3b 50 4e 28 45 52 ROR CODE.";PN(ER 70: 52 29 3b 50 4c 22 22 5d 0d 0a 20 5d 0d 0a 5d 0d R);PL""].. ]..]. ### Disk Sector 176 ### 00: 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................