home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / TEXTUT / c64.bas
Unknown  |  2019-04-13  |  2.0 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: '10 POKE56,160' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 50 4f 4b 45 35 | 36 2c 31 36 30 3a 50 4f |10 POKE5|6,160:PO|
|00000010| 4b 45 35 35 2c 2e 3a 43 | 4c 52 3a 5a 24 3d 43 48 |KE55,.:C|LR:Z$=CH|
|00000020| 52 24 28 2e 29 3a 50 52 | 49 4e 54 22 8e 93 22 0a |R$(.):PR|INT"..".|
|00000030| 31 31 20 4f 24 3d 22 42 | 2d 50 2c 38 2c 32 22 0a |11 O$="B|-P,8,2".|
|00000040| 31 32 20 50 52 49 4e 54 | 22 45 4e 54 45 52 20 44 |12 PRINT|"ENTER D|
|00000050| 49 53 4b 20 44 52 49 56 | 45 20 44 45 56 49 43 45 |ISK DRIV|E DEVICE|
|00000060| 20 4e 55 4d 42 45 52 2e | 22 0a 31 33 20 50 52 49 | NUMBER.|".13 PRI|
|00000070| 4e 54 22 11 28 45 4e 54 | 45 52 20 30 20 54 4f 20 |NT".(ENT|ER 0 TO |
|00000080| 45 58 49 54 2e 29 11 22 | 0a 31 34 20 50 52 49 4e |EXIT.)."|.14 PRIN|
|00000090| 54 22 20 20 38 91 22 3a | 49 4e 50 55 54 44 3a 49 |T"  8.":|INPUTD:I|
|000000a0| 46 44 3d 2e 54 48 45 4e | 39 30 30 0a 31 35 20 49 |FD=.THEN|900.15 I|
|000000b0| 46 44 3c 34 4f 52 44 3e | 33 30 54 48 45 4e 50 52 |FD<4ORD>|30THENPR|
|000000c0| 49 4e 54 22 93 12 49 4c | 4c 45 47 41 4c 20 44 45 |INT"..IL|LEGAL DE|
|000000d0| 56 49 43 45 20 4e 55 4d | 42 45 52 22 3a 47 4f 54 |VICE NUM|BER":GOT|
|000000e0| 4f 31 32 0a 31 36 20 50 | 4f 4b 45 32 2c 33 36 3a |O12.16 P|OKE2,36:|
|000000f0| 50 4f 4b 45 31 38 34 2c | 38 3a 50 4f 4b 45 31 38 |POKE184,|8:POKE18|
|00000100| 35 2c 2e 3a 50 4f 4b 45 | 31 38 36 2c 44 0a 31 37 |5,.:POKE|186,D.17|
|00000110| 20 50 4f 4b 45 31 38 33 | 2c 31 3a 50 4f 4b 45 31 | POKE183|,1:POKE1|
|00000120| 38 37 2c 32 3a 50 4f 4b | 45 31 38 38 2c 2e 3a 53 |87,2:POK|E188,.:S|
|00000130| 59 53 36 35 34 37 32 0a | 31 38 20 49 46 50 45 45 |YS65472.|18 IFPEE|
|00000140| 4b 28 37 38 33 29 41 4e | 44 31 54 48 45 4e 43 4c |K(783)AN|D1THENCL|
|00000150| 4f 53 45 38 3a 50 52 49 | 4e 54 22 93 12 3f 44 45 |OSE8:PRI|NT"..?DE|
|00000160| 56 49 43 45 22 3b 44 3b | 22 9d 20 4e 4f 54 20 50 |VICE";D;|". NOT P|
|00000170| 52 45 53 45 4e 54 22 3a | 47 4f 54 4f 31 32 0a 31 |RESENT":|GOTO12.1|
|00000180| 39 20 43 4c 4f 53 45 38 | 3a 4f 50 45 4e 31 35 2c |9 CLOSE8|:OPEN15,|
|00000190| 44 2c 31 35 3a 47 4f 54 | 4f 33 30 30 0a 32 30 20 |D,15:GOT|O300.20 |
|000001a0| 50 52 49 4e 54 22 93 22 | 3b 0a 32 31 20 46 24 3d |PRINT"."|;.21 F$=|
|000001b0| 22 22 3a 50 52 49 4e 54 | 22 11 45 4e 54 45 52 20 |"":PRINT|".ENTER |
|000001c0| 46 49 4c 45 4e 41 4d 45 | 2e 11 22 0a 32 32 20 49 |FILENAME|..".22 I|
|000001d0| 4e 50 55 54 46 24 3a 49 | 46 46 24 3d 22 22 54 48 |NPUTF$:I|FF$=""TH|
|000001e0| 45 4e 39 30 30 0a 32 33 | 20 4f 50 45 4e 38 2c 44 |EN900.23| OPEN8,D|
|000001f0| 2c 38 2c 46 24 3a 47 4f | 53 55 42 32 30 30 3a 43 |,8,F$:GO|SUB200:C|
|00000200| 4c 4f 53 45 38 3a 49 46 | 41 3e 31 39 54 48 45 4e |LOSE8:IF|A>19THEN|
|00000210| 32 31 0a 32 34 20 47 4f | 53 55 42 35 30 30 3a 4f |21.24 GO|SUB500:O|
|00000220| 50 45 4e 38 2c 44 2c 38 | 2c 22 23 22 0a 32 35 20 |PEN8,D,8|,"#".25 |
|00000230| 50 52 49 4e 54 23 31 35 | 2c 22 55 31 22 3b 38 3b |PRINT#15|,"U1";8;|
|00000240| 30 3b 31 38 3b 53 0a 32 | 36 20 50 52 49 4e 54 23 |0;18;S.2|6 PRINT#|
|00000250| 31 35 2c 22 42 2d 50 22 | 3b 38 3b 50 2b 32 38 0a |15,"B-P"|;8;P+28.|
|00000260| 32 37 20 47 45 54 23 38 | 2c 41 24 3a 42 3d 41 53 |27 GET#8|,A$:B=AS|
|00000270| 43 28 41 24 2b 5a 24 29 | 3a 47 45 54 23 38 2c 41 |C(A$+Z$)|:GET#8,A|
|00000280| 24 3a 42 3d 42 2b 32 35 | 36 2a 41 53 43 28 41 24 |$:B=B+25|6*ASC(A$|
|00000290| 2b 5a 24 29 0a 32 38 20 | 50 52 49 4e 54 23 31 35 |+Z$).28 |PRINT#15|
|000002a0| 2c 22 42 2d 50 22 3b 38 | 3b 50 2b 31 0a 32 39 20 |,"B-P";8|;P+1.29 |
|000002b0| 47 45 54 23 38 2c 54 24 | 3a 47 45 54 23 38 2c 53 |GET#8,T$|:GET#8,S|
|000002c0| 24 0a 33 30 20 54 54 3d | 41 53 43 28 54 24 2b 5a |$.30 TT=|ASC(T$+Z|
|000002d0| 24 29 3a 53 53 3d 41 53 | 43 28 53 24 2b 5a 24 29 |$):SS=AS|C(S$+Z$)|
|000002e0| 0a 33 31 20 50 52 49 4e | 54 22 93 11 53 45 4c 45 |.31 PRIN|T"..SELE|
|000002f0| 43 54 20 4f 4e 45 3a 22 | 0a 33 32 20 50 52 49 4e |CT ONE:"|.32 PRIN|
|00000300| 54 22 11 31 29 20 43 4f | 4e 56 45 52 54 20 46 52 |T".1) CO|NVERT FR|
|00000310| 4f 4d 20 41 53 43 49 49 | 20 54 4f 20 50 45 54 41 |OM ASCII| TO PETA|
|00000320| 53 43 49 49 2e 22 0a 33 | 34 20 50 52 49 4e 54 22 |SCII.".3|4 PRINT"|
|00000330| 11 32 29 20 43 4f 4e 56 | 45 52 54 20 46 52 4f 4d |.2) CONV|ERT FROM|
|00000340| 20 50 45 54 41 53 43 49 | 49 20 54 4f 20 41 53 43 | PETASCI|I TO ASC|
|00000350| 49 49 2e 22 0a 33 36 20 | 50 52 49 4e 54 22 11 33 |II.".36 |PRINT".3|
|00000360| 29 20 4e 4f 20 43 4f 4e | 56 45 52 53 49 4f 4e 2e |) NO CON|VERSION.|
|00000370| 22 0a 33 38 20 47 45 54 | 41 24 3a 49 46 41 24 3d |".38 GET|A$:IFA$=|
|00000380| 22 31 22 54 48 45 4e 50 | 4f 4b 45 32 35 31 2c 2e |"1"THENP|OKE251,.|
|00000390| 3a 47 4f 54 4f 34 35 0a | 34 30 20 49 46 41 24 3d |:GOTO45.|40 IFA$=|
|000003a0| 22 32 22 54 48 45 4e 50 | 4f 4b 45 32 35 31 2c 31 |"2"THENP|OKE251,1|
|000003b0| 3a 47 4f 54 4f 34 35 0a | 34 32 20 49 46 41 24 3d |:GOTO45.|42 IFA$=|
|000003c0| 22 33 22 54 48 45 4e 50 | 4f 4b 45 32 35 31 2c 32 |"3"THENP|OKE251,2|
|000003d0| 35 35 3a 46 3d 31 3a 47 | 4f 54 4f 34 35 0a 34 34 |55:F=1:G|OTO45.44|
|000003e0| 20 47 4f 54 4f 33 38 0a | 34 35 20 50 52 49 4e 54 | GOTO38.|45 PRINT|
|000003f0| 22 11 11 53 45 4c 45 43 | 54 20 4f 4e 45 3a 22 0a |"..SELEC|T ONE:".|
|00000400| 34 37 20 50 52 49 4e 54 | 22 11 31 29 20 43 4f 4e |47 PRINT|".1) CON|
|00000410| 56 45 52 54 20 4c 46 20 | 54 4f 20 43 52 2e 22 0a |VERT LF |TO CR.".|
|00000420| 35 30 20 50 52 49 4e 54 | 22 11 32 29 20 43 4f 4e |50 PRINT|".2) CON|
|00000430| 56 45 52 54 20 43 52 20 | 54 4f 20 4c 46 2e 22 0a |VERT CR |TO LF.".|
|00000440| 35 32 20 50 52 49 4e 54 | 22 11 33 29 20 4e 4f 20 |52 PRINT|".3) NO |
|00000450| 43 4f 4e 56 45 52 53 49 | 4f 4e 2e 22 0a 36 30 20 |CONVERSI|ON.".60 |
|00000460| 47 45 54 41 24 3a 49 46 | 41 24 3d 22 31 22 54 48 |GETA$:IF|A$="1"TH|
|00000470| 45 4e 50 4f 4b 45 32 35 | 32 2c 2e 3a 47 4f 54 4f |ENPOKE25|2,.:GOTO|
|00000480| 37 30 0a 36 32 20 49 46 | 41 24 3d 22 32 22 54 48 |70.62 IF|A$="2"TH|
|00000490| 45 4e 50 4f 4b 45 32 35 | 32 2c 31 3a 47 4f 54 4f |ENPOKE25|2,1:GOTO|
|000004a0| 37 30 0a 36 34 20 49 46 | 41 24 3d 22 33 22 54 48 |70.64 IF|A$="3"TH|
|000004b0| 45 4e 50 4f 4b 45 32 35 | 32 2c 32 35 35 3a 46 3d |ENPOKE25|2,255:F=|
|000004c0| 46 2b 31 3a 47 4f 54 4f | 37 30 0a 36 35 20 47 4f |F+1:GOTO|70.65 GO|
|000004d0| 54 4f 36 30 0a 37 30 20 | 49 46 46 3d 32 54 48 45 |TO60.70 |IFF=2THE|
|000004e0| 4e 39 30 30 0a 37 31 20 | 50 4f 4b 45 35 36 33 33 |N900.71 |POKE5633|
|000004f0| 34 2c 2e 0a 37 32 20 50 | 52 49 4e 54 22 93 11 4f |4,..72 P|RINT"..O|
|00000500| 4e 45 20 4d 4f 4d 45 4e | 54 20 50 4c 45 41 53 45 |NE MOMEN|T PLEASE|
|00000510| 2e 2e 2e 22 0a 37 33 20 | 50 4f 4b 45 31 38 33 2c |...".73 |POKE183,|
|00000520| 37 3a 50 4f 4b 45 31 38 | 37 2c 34 33 3a 50 4f 4b |7:POKE18|7,43:POK|
|00000530| 45 31 38 38 2c 38 0a 37 | 35 20 50 52 49 4e 54 22 |E188,8.7|5 PRINT"|
|00000540| 11 4e 55 4d 42 45 52 20 | 4f 46 20 42 4c 4f 43 4b |.NUMBER |OF BLOCK|
|00000550| 53 20 49 4e 20 46 49 4c | 45 20 20 20 3d 22 3b 42 |S IN FIL|E   =";B|
|00000560| 0a 38 30 20 50 52 49 4e | 54 22 11 4e 55 4d 42 45 |.80 PRIN|T".NUMBE|
|00000570| 52 20 4f 46 20 42 4c 4f | 43 4b 53 20 50 52 4f 43 |R OF BLO|CKS PROC|
|00000580| 45 53 53 45 09 00 3d 91 | 22 0a 38 35 20 50 52 49 |ESSE..=.|".85 PRI|
|00000590| 4e 54 23 31 35 2c 22 55 | 31 22 3b 38 3b 30 3b 54 |NT#15,"U|1";8;0;T|
|000005a0| 54 3b 53 53 0a 39 30 20 | 47 45 54 23 38 2c 54 24 |T;SS.90 |GET#8,T$|
|000005b0| 3a 47 45 54 23 38 2c 53 | 24 0a 39 35 20 54 3d 41 |:GET#8,S|$.95 T=A|
|000005c0| 53 43 28 54 24 2b 5a 24 | 29 3a 53 3d 41 53 43 28 |SC(T$+Z$|):S=ASC(|
|000005d0| 53 24 2b 5a 24 29 0a 31 | 30 30 20 53 59 53 33 37 |S$+Z$).1|00 SYS37|
|000005e0| 33 33 0a 31 30 35 20 50 | 52 49 4e 54 23 31 35 2c |33.105 P|RINT#15,|
|000005f0| 22 55 32 22 3b 38 3b 30 | 3b 54 54 3b 53 53 3a 4e |"U2";8;0|;TT;SS:N|
|00000600| 3d 4e 2b 31 0a 31 31 30 | 20 50 52 49 4e 54 54 41 |=N+1.110| PRINTTA|
|00000610| 42 28 32 38 29 3b 4e 3b | 22 91 22 0a 31 31 35 20 |B(28);N;|".".115 |
|00000620| 49 46 54 54 48 45 4e 54 | 54 3d 54 3a 53 53 3d 53 |IFTTHENT|T=T:SS=S|
|00000630| 3a 47 4f 54 4f 38 35 0a | 31 32 30 20 50 4f 4b 45 |:GOTO85.|120 POKE|
|00000640| 35 36 33 33 34 2c 31 37 | 3a 50 52 49 4e 54 22 11 |56334,17|:PRINT".|
|00000650| 11 2e 2e 2e 44 4f 4e 45 | 22 3a 47 4f 54 4f 39 30 |....DONE|":GOTO90|
|00000660| 30 0a 32 30 30 20 49 4e | 50 55 54 23 31 35 2c 41 |0.200 IN|PUT#15,A|
|00000670| 2c 42 24 2c 43 2c 45 0a | 32 31 30 20 49 46 41 3e |,B$,C,E.|210 IFA>|
|00000680| 31 39 41 4e 44 41 3c 3e | 36 33 54 48 45 4e 50 52 |19ANDA<>|63THENPR|
|00000690| 49 4e 54 3a 50 52 49 4e | 54 41 3a 50 52 49 4e 54 |INT:PRIN|TA:PRINT|
|000006a0| 3a 50 52 49 4e 54 42 24 | 3a 50 52 49 4e 54 3a 50 |:PRINTB$|:PRINT:P|
|000006b0| 52 49 4e 54 43 2c 45 0a | 32 32 30 20 52 45 54 55 |RINTC,E.|220 RETU|
|000006c0| 52 4e 0a 33 30 30 20 50 | 52 49 4e 54 22 93 11 50 |RN.300 P|RINT"..P|
|000006d0| 52 45 53 53 20 44 20 46 | 4f 52 20 44 49 52 45 43 |RESS D F|OR DIREC|
|000006e0| 54 4f 52 59 2e 22 0a 33 | 30 35 20 50 52 49 4e 54 |TORY.".3|05 PRINT|
|000006f0| 22 11 50 52 45 53 53 20 | 50 20 54 4f 20 50 52 4f |".PRESS |P TO PRO|
|00000700| 43 45 53 53 20 46 49 4c | 45 2e 22 0a 33 31 30 20 |CESS FIL|E.".310 |
|00000710| 50 52 49 4e 54 22 11 50 | 52 45 53 53 20 58 20 54 |PRINT".P|RESS X T|
|00000720| 4f 20 45 58 49 54 2e 22 | 0a 33 31 35 20 47 45 54 |O EXIT."|.315 GET|
|00000730| 41 24 3a 49 46 41 24 3d | 22 44 22 54 48 45 4e 4f |A$:IFA$=|"D"THENO|
|00000740| 50 45 4e 38 2c 38 2c 2e | 2c 22 24 22 3a 53 59 53 |PEN8,8,.|,"$":SYS|
|00000750| 33 38 39 34 3a 47 4f 54 | 4f 33 30 30 0a 33 32 30 |3894:GOT|O300.320|
|00000760| 20 49 46 41 24 3d 22 50 | 22 54 48 45 4e 32 30 0a | IFA$="P|"THEN20.|
|00000770| 33 32 35 20 49 46 41 24 | 3d 22 58 22 54 48 45 4e |325 IFA$|="X"THEN|
|00000780| 39 30 30 0a 33 33 30 20 | 47 4f 54 4f 33 31 35 0a |900.330 |GOTO315.|
|00000790| 35 30 30 20 50 52 49 4e | 54 23 31 35 2c 22 4d 2d |500 PRIN|T#15,"M-|
|000007a0| 52 22 3b 43 48 52 24 28 | 31 34 34 29 3b 43 48 52 |R";CHR$(|144);CHR|
|000007b0| 24 28 32 29 3b 43 48 52 | 24 28 35 29 0a 35 31 30 |$(2);CHR|$(5).510|
|000007c0| 20 47 45 54 23 31 35 2c | 41 24 3a 53 3d 41 53 43 | GET#15,|A$:S=ASC|
|000007d0| 28 41 24 2b 5a 24 29 3a | 47 45 54 23 31 35 2c 41 |(A$+Z$):|GET#15,A|
|000007e0| 24 3a 47 45 54 23 31 35 | 2c 41 24 0a 35 32 30 20 |$:GET#15|,A$.520 |
|000007f0| 47 45 54 23 31 35 2c 41 | 24 3a 47 45 54 23 31 35 |GET#15,A|$:GET#15|
|00000800| 2c 41 24 3a 50 3d 41 53 | 43 28 41 24 2b 5a 24 29 |,A$:P=AS|C(A$+Z$)|
|00000810| 0a 35 33 30 20 52 45 54 | 55 52 4e 09 0a          |.530 RET|URN..   |
+--------+-------------------------+-------------------------+--------+--------+