Compucolor.org – Virtual Media

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   ................