Listing of file='TYPE.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 191 ### 00: 2f 2a 14 20 54 59 50 45 20 56 30 31 2e 30 30 20 /*. TYPE V01.00 10: 12 2d 20 54 59 50 45 20 4f 4e 20 43 52 54 20 50 .- TYPE ON CRT P 20: 52 4f 47 52 41 4d 0d 0a 2f 2a 20 20 20 20 20 20 ROGRAM../* 30: 20 20 53 55 50 50 4f 52 54 53 20 4b 45 59 42 4f SUPPORTS KEYBO 40: 41 52 44 20 54 59 50 45 20 41 48 45 41 44 0d 0a ARD TYPE AHEAD.. 50: 2f 2a 20 20 20 20 20 20 20 20 41 54 54 4e 2f 42 /* ATTN/B 60: 52 45 41 4b 20 4b 45 59 20 44 4f 45 53 20 53 54 REAK KEY DOES ST 70: 4f 50 20 41 4e 44 20 53 54 41 52 54 0d 0a 2f 2a OP AND START../* ### Disk Sector 192 ### 00: 20 4e 45 45 44 53 20 16 53 54 44 4c 49 42 12 0d NEEDS .STDLIB.. 10: 0a 0d 0a 4d 41 49 4e 5b 54 59 50 45 5d 0d 0a 54 ...MAIN[TYPE]..T 20: 59 50 45 20 5b 0d 0a 43 48 41 52 20 4c 49 4e 45 YPE [..CHAR LINE 30: 28 31 32 38 29 2c 46 49 4c 45 4e 28 32 30 29 0d (128),FILEN(20). 40: 0a 49 4e 54 20 45 52 52 0d 0a 43 48 41 52 20 57 .INT ERR..CHAR W 50: 41 49 54 28 30 29 0d 0a 57 41 49 54 3d 33 33 32 AIT(0)..WAIT=332 60: 37 39 0d 0a 57 48 49 4c 45 28 31 29 5b 0d 0a 20 79..WHILE(1)[.. 70: 50 53 22 13 54 59 50 45 3e 12 22 0d 0a 20 49 46 PS".TYPE>.".. IF ### Disk Sector 193 ### 00: 28 47 53 28 4c 49 4e 45 29 3d 3d 30 29 20 52 45 (GS(LINE)==0) RE 10: 54 55 52 4e 0d 0a 20 46 49 4c 45 4e 41 4d 45 28 TURN.. FILENAME( 20: 4c 49 4e 45 2c 46 49 4c 45 4e 29 0d 0a 20 49 46 LINE,FILEN).. IF 30: 28 28 45 52 52 3d 46 4f 50 45 4e 28 31 2c 46 49 ((ERR=FOPEN(1,FI 40: 4c 45 4e 2c 30 2c 35 29 29 3d 3d 30 29 5b 0d 0a LEN,0,5))==0)[.. 50: 20 20 50 4c 22 22 0d 0a 20 20 57 48 49 4c 45 28 PL"".. WHILE( 60: 28 45 52 52 3d 46 52 45 41 44 28 4c 49 4e 45 2c (ERR=FREAD(LINE, 70: 35 29 29 3e 3d 30 29 0d 0a 20 20 20 5b 0d 0a 20 5))>=0).. [.. ### Disk Sector 194 ### 00: 20 20 49 46 28 57 41 49 54 28 30 29 3d 3d 38 30 IF(WAIT(0)==80 10: 29 0d 0a 20 20 20 20 5b 0d 0a 20 20 20 20 57 41 ).. [.. WA 20: 49 54 28 30 29 3d 30 0d 0a 20 20 20 20 57 48 49 IT(0)=0.. WHI 30: 4c 45 28 57 41 49 54 28 30 29 21 3d 38 30 29 20 LE(WAIT(0)!=80) 40: 5b 5d 0d 0a 20 20 20 20 57 41 49 54 28 30 29 3d [].. WAIT(0)= 50: 30 0d 0a 20 20 20 20 5d 0d 0a 20 20 20 50 46 54 0.. ].. PFT 60: 28 4c 49 4e 45 2c 4c 49 4e 45 2b 45 52 52 2d 31 (LINE,LINE+ERR-1 70: 29 0d 0a 20 20 20 46 43 4c 4f 53 45 28 35 29 0d ).. FCLOSE(5). ### Disk Sector 195 ### 00: 0a 20 20 20 5d 0d 0a 20 20 5d 0d 0a 20 49 46 28 . ].. ].. IF( 10: 45 52 52 21 3d 2d 31 29 20 5b 50 53 22 11 45 52 ERR!=-1) [PS".ER 20: 52 4f 52 20 43 4f 44 45 12 22 3b 50 4e 28 45 52 ROR CODE.";PN(ER 30: 52 29 3b 50 4c 22 22 5d 0d 0a 20 5d 0d 0a 5d 0d R);PL""].. ]..]. 40: 0a 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 ................