home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / diskexam.prg / c64.bas
Unknown  |  2019-04-13  |  1.6 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '900 PRINT ' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 39 30 30 20 50 52 49 4e | 54 20 22 93 22 0a 31 30 |900 PRIN|T ".".10|
|00000010| 30 30 20 50 4f 4b 45 35 | 33 32 38 31 2c 30 3a 50 |00 POKE5|3281,0:P|
|00000020| 4f 4b 45 35 33 32 38 30 | 2c 30 0a 31 30 31 30 20 |OKE53280|,0.1010 |
|00000030| 4f 50 45 4e 31 35 2c 38 | 2c 31 35 2c 22 49 30 22 |OPEN15,8|,15,"I0"|
|00000040| 0a 31 30 32 30 20 49 4e | 50 55 54 23 31 35 2c 41 |.1020 IN|PUT#15,A|
|00000050| 3a 49 46 41 54 48 45 4e | 53 54 4f 50 0a 31 30 33 |:IFATHEN|STOP.103|
|00000060| 30 20 4f 50 45 4e 32 2c | 38 2c 32 2c 22 23 22 3a |0 OPEN2,|8,2,"#":|
|00000070| 51 24 3d 43 48 52 24 28 | 30 29 0a 31 30 34 30 20 |Q$=CHR$(|0).1040 |
|00000080| 49 44 3d 31 36 2b 36 3a | 47 4f 54 4f 32 30 30 30 |ID=16+6:|GOTO2000|
|00000090| 0a 31 31 30 30 20 4d 48 | 3d 49 4e 54 28 4d 45 4d |.1100 MH|=INT(MEM|
|000000a0| 2f 32 35 36 29 3a 4d 4c | 3d 4d 45 4d 2d 4d 48 2a |/256):ML|=MEM-MH*|
|000000b0| 32 35 36 3a 50 52 49 4e | 54 23 31 35 2c 22 4d 2d |256:PRIN|T#15,"M-|
|000000c0| 52 22 3b 43 48 52 24 28 | 4d 4c 29 3b 43 48 52 24 |R";CHR$(|ML);CHR$|
|000000d0| 28 4d 48 29 0a 31 32 30 | 30 20 47 45 54 23 31 35 |(MH).120|0 GET#15|
|000000e0| 2c 41 24 3a 41 3d 41 53 | 43 28 41 24 2b 51 24 29 |,A$:A=AS|C(A$+Q$)|
|000000f0| 3a 52 45 54 55 52 4e 0a | 31 33 30 30 20 3a 0a 31 |:RETURN.|1300 :.1|
|00000100| 34 30 30 20 50 52 49 4e | 54 22 24 22 3b 3a 4e 4c |400 PRIN|T"$";:NL|
|00000110| 3d 49 4e 54 28 42 59 2f | 31 36 29 3a 47 4f 53 55 |=INT(BY/|16):GOSU|
|00000120| 42 31 35 30 30 3a 4e 4c | 3d 42 59 2d 31 36 2a 4e |B1500:NL|=BY-16*N|
|00000130| 4c 0a 31 35 30 30 20 50 | 52 49 4e 54 4d 49 44 24 |L.1500 P|RINTMID$|
|00000140| 28 22 30 31 32 33 34 35 | 36 37 38 39 41 42 43 44 |("012345|6789ABCD|
|00000150| 45 46 22 2c 4e 4c 2b 31 | 2c 31 29 3b 3a 52 45 54 |EF",NL+1|,1);:RET|
|00000160| 55 52 4e 0a 31 36 30 30 | 20 3a 0a 32 30 30 30 20 |URN.1600| :.2000 |
|00000170| 50 52 49 4e 54 22 93 9a | 44 49 53 4b 45 54 54 45 |PRINT"..|DISKETTE|
|00000180| 20 45 58 41 4d 49 4e 45 | 22 0a 32 30 32 30 20 50 | EXAMINE|".2020 P|
|00000190| 52 49 4e 54 22 c5 c5 c5 | c5 c5 c5 c5 c5 c5 c5 c5 |RINT"...|........|
|000001a0| c5 c5 c5 c5 c5 11 22 0a | 32 30 33 30 20 50 52 49 |......".|2030 PRI|
|000001b0| 4e 54 0a 32 30 35 30 20 | 50 52 49 4e 54 22 20 20 |NT.2050 |PRINT" |
|000001c0| 20 2a 2a 2a 20 4d 45 4e | 55 20 2a 2a 2a 22 0a 32 | *** MEN|U ***".2|
|000001d0| 30 36 30 20 50 52 49 4e | 54 22 11 11 9f 31 2e 20 |060 PRIN|T"...1. |
|000001e0| 44 49 53 50 4c 41 59 20 | 49 44 27 53 22 0a 32 30 |DISPLAY |ID'S".20|
|000001f0| 37 30 20 50 52 49 4e 54 | 22 11 32 2e 20 46 41 53 |70 PRINT|".2. FAS|
|00000200| 54 20 45 52 52 4f 52 20 | 4c 4f 4f 4b 22 0a 32 30 |T ERROR |LOOK".20|
|00000210| 38 30 20 50 52 49 4e 54 | 22 11 33 2e 20 46 55 4c |80 PRINT|".3. FUL|
|00000220| 4c 20 45 52 52 4f 52 20 | 4c 4f 4f 4b 22 0a 32 30 |L ERROR |LOOK".20|
|00000230| 39 30 20 50 52 49 4e 54 | 22 11 34 2e 20 45 58 49 |90 PRINT|".4. EXI|
|00000240| 54 22 0a 32 31 31 30 20 | 50 52 49 4e 54 22 11 49 |T".2110 |PRINT".I|
|00000250| 4e 50 55 54 20 28 31 2d | 34 29 3a 22 3b 0a 32 32 |NPUT (1-|4):";.22|
|00000260| 32 30 20 4f 50 45 4e 31 | 2c 30 3a 49 4e 50 55 54 |20 OPEN1|,0:INPUT|
|00000270| 23 31 2c 41 24 3a 43 4c | 4f 53 45 31 3a 41 3d 56 |#1,A$:CL|OSE1:A=V|
|00000280| 41 4c 28 41 24 29 3a 49 | 46 41 3d 30 54 48 45 4e |AL(A$):I|FA=0THEN|
|00000290| 32 30 30 30 0a 32 32 33 | 30 20 49 46 41 3e 35 54 |2000.223|0 IFA>5T|
|000002a0| 48 45 4e 32 30 30 30 0a | 32 32 34 30 20 4f 4e 41 |HEN2000.|2240 ONA|
|000002b0| 47 4f 54 4f 33 30 30 30 | 2c 34 30 30 30 2c 35 30 |GOTO3000|,4000,50|
|000002c0| 30 30 2c 36 30 30 30 0a | 33 30 30 30 20 50 52 49 |00,6000.|3000 PRI|
|000002d0| 4e 54 22 93 11 49 44 20 | 44 49 53 50 4c 41 59 11 |NT"..ID |DISPLAY.|
|000002e0| 11 22 0a 33 30 31 30 20 | 46 4f 52 54 3d 31 54 4f |.".3010 |FORT=1TO|
|000002f0| 33 35 0a 33 30 32 30 20 | 50 52 49 4e 54 23 31 35 |35.3020 |PRINT#15|
|00000300| 2c 22 55 31 3a 32 2c 30 | 2c 22 3b 54 3b 22 2c 30 |,"U1:2,0|,";T;",0|
|00000310| 22 0a 33 30 33 30 20 4d | 45 4d 3d 49 44 3a 47 4f |".3030 M|EM=ID:GO|
|00000320| 53 55 42 31 31 30 30 3a | 49 5a 3d 41 3a 4d 45 4d |SUB1100:|IZ=A:MEM|
|00000330| 3d 49 44 2b 31 3a 47 4f | 53 55 42 31 31 30 30 3a |=ID+1:GO|SUB1100:|
|00000340| 0a 33 30 34 30 20 50 52 | 49 4e 54 52 49 47 48 54 |.3040 PR|INTRIGHT|
|00000350| 24 28 53 54 52 24 28 54 | 29 2c 32 29 3b 22 2e 20 |$(STR$(T|),2);". |
|00000360| 49 44 3d 22 3b 43 48 52 | 24 28 33 34 29 3b 43 48 |ID=";CHR|$(34);CH|
|00000370| 52 24 28 49 5a 29 3b 43 | 48 52 24 28 41 29 3b 43 |R$(IZ);C|HR$(A);C|
|00000380| 48 52 24 28 33 34 29 3b | 22 20 22 3b 0a 33 30 35 |HR$(34);|" ";.305|
|00000390| 30 20 42 59 3d 49 5a 3a | 47 4f 53 55 42 31 34 30 |0 BY=IZ:|GOSUB140|
|000003a0| 30 3a 50 52 49 4e 54 22 | 2c 22 3b 3a 42 59 3d 41 |0:PRINT"|,";:BY=A|
|000003b0| 3a 47 4f 53 55 42 31 34 | 30 30 0a 33 30 36 30 20 |:GOSUB14|00.3060 |
|000003c0| 50 52 49 4e 54 54 41 42 | 28 32 30 29 3b 3a 49 46 |PRINTTAB|(20);:IF|
|000003d0| 54 2f 32 3d 49 4e 54 28 | 54 2f 32 29 54 48 45 4e |T/2=INT(|T/2)THEN|
|000003e0| 50 52 49 4e 54 0a 33 30 | 37 30 20 4e 45 58 54 54 |PRINT.30|70 NEXTT|
|000003f0| 0a 33 35 30 30 20 50 52 | 49 4e 54 3a 50 52 49 4e |.3500 PR|INT:PRIN|
|00000400| 54 22 11 50 52 45 53 53 | 20 12 53 50 41 43 45 92 |T".PRESS| .SPACE.|
|00000410| 20 46 4f 52 20 4d 45 4e | 55 22 0a 33 35 31 30 20 | FOR MEN|U".3510 |
|00000420| 47 45 54 41 24 3a 49 46 | 41 24 3c 3e 22 20 22 54 |GETA$:IF|A$<>" "T|
|00000430| 48 45 4e 33 35 31 30 0a | 33 35 32 30 20 47 4f 54 |HEN3510.|3520 GOT|
|00000440| 4f 32 30 30 30 0a 34 30 | 30 30 20 50 52 49 4e 54 |O2000.40|00 PRINT|
|00000450| 22 93 46 41 53 54 20 45 | 52 52 4f 52 20 4c 4f 4f |".FAST E|RROR LOO|
|00000460| 4b 45 52 11 22 0a 34 30 | 31 30 20 46 4f 52 54 3d |KER.".40|10 FORT=|
|00000470| 31 54 4f 33 35 0a 34 30 | 32 30 20 50 52 49 4e 54 |1TO35.40|20 PRINT|
|00000480| 52 49 47 48 54 24 28 53 | 54 52 24 28 54 29 2c 32 |RIGHT$(S|TR$(T),2|
|00000490| 29 3b 22 2e 20 22 3b 0a | 34 30 33 30 20 50 52 49 |);". ";.|4030 PRI|
|000004a0| 4e 54 23 31 35 2c 22 55 | 31 3a 32 2c 30 2c 22 3b |NT#15,"U|1:2,0,";|
|000004b0| 54 3b 22 2c 30 22 0a 34 | 30 34 30 20 49 4e 50 55 |T;",0".4|040 INPU|
|000004c0| 54 23 31 35 2c 41 24 2c | 42 24 2c 43 24 2c 44 24 |T#15,A$,|B$,C$,D$|
|000004d0| 3a 44 44 24 3d 41 24 2b | 22 2c 22 2b 42 24 2b 22 |:DD$=A$+|","+B$+"|
|000004e0| 2c 22 2b 43 24 2b 22 2c | 22 2b 44 24 3a 50 52 49 |,"+C$+",|"+D$:PRI|
|000004f0| 4e 54 44 44 24 0a 34 30 | 36 30 20 4e 45 58 54 54 |NTDD$.40|60 NEXTT|
|00000500| 0a 34 30 37 30 20 47 4f | 54 4f 20 33 35 30 30 0a |.4070 GO|TO 3500.|
|00000510| 35 30 30 30 20 50 52 49 | 4e 54 22 93 46 55 4c 4c |5000 PRI|NT".FULL|
|00000520| 20 45 52 52 4f 52 20 4c | 4f 4f 4b 45 52 11 22 0a | ERROR L|OOKER.".|
|00000530| 35 30 31 30 20 46 4f 52 | 54 3d 31 54 4f 33 35 3a |5010 FOR|T=1TO35:|
|00000540| 46 4f 52 53 3d 30 54 4f | 39 39 0a 35 30 33 30 20 |FORS=0TO|99.5030 |
|00000550| 50 52 49 4e 54 23 31 35 | 2c 22 55 31 3a 32 2c 30 |PRINT#15|,"U1:2,0|
|00000560| 2c 22 3b 54 3b 22 2c 22 | 53 0a 35 30 34 30 20 49 |,";T;","|S.5040 I|
|00000570| 4e 50 55 54 23 31 35 2c | 41 24 2c 42 24 2c 43 24 |NPUT#15,|A$,B$,C$|
|00000580| 2c 44 24 3a 44 44 24 3d | 41 24 2b 22 2c 22 2b 42 |,D$:DD$=|A$+","+B|
|00000590| 24 2b 22 2c 22 2b 43 24 | 2b 22 2c 22 2b 44 24 3a |$+","+C$|+","+D$:|
|000005a0| 49 46 41 24 3d 22 36 36 | 22 54 48 45 4e 35 30 38 |IFA$="66|"THEN508|
|000005b0| 30 0a 35 30 34 31 20 50 | 52 49 4e 54 22 54 3d 22 |0.5041 P|RINT"T="|
|000005c0| 54 3b 22 9d 20 53 3d 22 | 3b 53 3b 22 9d 20 09 00 |T;". S="|;S;". ..|
|000005d0| 00 0a 35 30 35 30 20 49 | 46 41 24 3d 22 30 30 22 |..5050 I|FA$="00"|
|000005e0| 54 48 45 4e 50 52 49 4e | 54 22 91 22 3a 47 4f 54 |THENPRIN|T".":GOT|
|000005f0| 4f 35 30 37 30 0a 35 30 | 36 30 20 50 52 49 4e 54 |O5070.50|60 PRINT|
|00000600| 44 44 24 0a 35 30 37 30 | 20 47 45 54 41 24 3a 49 |DD$.5070| GETA$:I|
|00000610| 46 41 24 3c 3e 22 20 22 | 54 48 45 4e 35 30 37 39 |FA$<>" "|THEN5079|
|00000620| 0a 35 30 37 31 20 47 45 | 54 41 24 3a 49 46 41 24 |.5071 GE|TA$:IFA$|
|00000630| 3d 22 22 54 48 45 4e 35 | 30 37 31 0a 35 30 37 39 |=""THEN5|071.5079|
|00000640| 20 4e 45 58 54 53 0a 35 | 30 38 30 20 4e 45 58 54 | NEXTS.5|080 NEXT|
|00000650| 54 0a 35 31 30 30 20 47 | 4f 54 4f 33 35 30 30 0a |T.5100 G|OTO3500.|
|00000660| 36 30 30 30 20 43 4c 4f | 53 45 32 3a 43 4c 4f 53 |6000 CLO|SE2:CLOS|
|00000670| 45 31 35 3a 50 52 49 4e | 54 22 93 22 3a 45 4e 44 |E15:PRIN|T".":END|
|00000680| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+