home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / DISKLABELMAKER / c64.bas
Unknown  |  2019-04-13  |  2.4 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: '1 POKE 53281,0' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 50 4f 4b 45 20 35 | 33 32 38 31 2c 30 3a 50 |1 POKE 5|3281,0:P|
|00000010| 4f 4b 45 20 20 35 33 32 | 38 30 2c 31 0a 32 20 47 |OKE 532|80,1.2 G|
|00000020| 4f 53 55 42 37 30 30 30 | 3a 0a 31 30 20 50 52 49 |OSUB7000|:.10 PRI|
|00000030| 4e 54 22 93 22 0a 31 31 | 20 50 52 49 4e 54 22 20 |NT".".11| PRINT" |
|00000040| 20 20 20 11 11 11 1d 1d | 1d 1d 1d 1d 2a 2a 2a 2a | .....|....****|
|00000050| 43 4f 4d 50 55 54 45 43 | 48 2a 2a 2a 2a 22 0a 31 |COMPUTEC|H****".1|
|00000060| 32 20 50 52 49 4e 54 22 | 1d 1d 1d 1d 1d 1d 1d 1d |2 PRINT"|........|
|00000070| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 49 4e 43 2e 22 0a 31 |........|.INC.".1|
|00000080| 33 20 50 52 49 4e 54 22 | 1d 1d 1d 1d 1d 1d 1d 1d |3 PRINT"|........|
|00000090| 1d 50 52 4f 55 44 4c 59 | 20 50 52 45 53 45 4e 54 |.PROUDLY| PRESENT|
|000000a0| 53 2e 2e 2e 2e 22 0a 31 | 34 20 46 4f 52 20 20 41 |S....".1|4 FOR A|
|000000b0| 3d 31 20 54 4f 20 31 36 | 3a 50 4f 4b 45 20 35 33 |=1 TO 16|:POKE 53|
|000000c0| 32 38 31 2c 41 3a 0a 31 | 35 20 46 4f 52 20 42 3d |281,A:.1|5 FOR B=|
|000000d0| 30 20 54 4f 20 35 30 20 | 3a 4e 45 58 54 20 42 0a |0 TO 50 |:NEXT B.|
|000000e0| 31 36 20 4e 45 58 54 20 | 41 0a 36 30 20 49 24 3d |16 NEXT |A.60 I$=|
|000000f0| 22 22 0a 38 30 20 50 52 | 49 4e 54 20 54 41 42 28 |"".80 PR|INT TAB(|
|00000100| 36 29 3b 22 12 11 11 1d | 1d 2a 2a 2a 44 49 53 4b |6);"....|.***DISK|
|00000110| 20 4c 41 42 45 4c 20 4d | 41 4b 45 52 2a 2a 2a 22 | LABEL M|AKER***"|
|00000120| 0a 39 30 20 50 52 49 4e | 54 0a 31 30 30 20 50 52 |.90 PRIN|T.100 PR|
|00000130| 49 4e 54 22 50 52 45 53 | 53 20 52 45 54 55 52 4e |INT"PRES|S RETURN|
|00000140| 22 0a 31 31 30 20 50 52 | 49 4e 54 22 41 46 54 45 |".110 PR|INT"AFTE|
|00000150| 52 20 45 41 43 48 20 52 | 45 50 4c 59 22 0a 31 32 |R EACH R|EPLY".12|
|00000160| 30 20 50 52 49 4e 54 0a | 31 38 30 20 50 52 49 4e |0 PRINT.|180 PRIN|
|00000170| 54 0a 31 39 30 20 50 52 | 49 4e 54 22 57 48 41 54 |T.190 PR|INT"WHAT|
|00000180| 20 57 49 4c 4c 20 54 48 | 45 20 4c 41 42 45 4c 20 | WILL TH|E LABEL |
|00000190| 53 41 59 3f 22 0a 32 31 | 30 20 50 52 49 4e 54 0a |SAY?".21|0 PRINT.|
|000001a0| 32 32 30 20 50 52 49 4e | 54 22 28 32 33 20 4c 45 |220 PRIN|T"(23 LE|
|000001b0| 54 54 45 52 53 20 4f 52 | 20 46 45 57 45 52 29 22 |TTERS OR| FEWER)"|
|000001c0| 0a 32 33 30 20 49 4e 50 | 55 54 20 49 24 0a 32 33 |.230 INP|UT I$.23|
|000001d0| 31 20 50 52 49 4e 54 22 | 1d 1d 1d 1d 1d 1d 1d 1d |1 PRINT"|........|
|000001e0| 1d 1d 50 52 4f 43 45 53 | 53 49 4e 47 2e 2e 2e 2e |..PROCES|SING....|
|000001f0| 2e 2e 22 0a 32 33 32 20 | 46 4f 52 20 44 44 3d 31 |..".232 |FOR DD=1|
|00000200| 20 54 4f 20 20 39 30 30 | 3a 4e 45 58 54 20 44 44 | TO 900|:NEXT DD|
|00000210| 0a 32 34 30 20 49 46 20 | 4c 45 4e 28 49 24 29 3e |.240 IF |LEN(I$)>|
|00000220| 32 33 20 54 48 45 4e 20 | 49 24 3d 4c 45 46 54 24 |23 THEN |I$=LEFT$|
|00000230| 28 49 24 2c 32 33 29 0a | 32 36 30 20 50 52 49 4e |(I$,23).|260 PRIN|
|00000240| 54 22 57 48 45 4e 20 50 | 52 49 4e 54 45 52 20 49 |T"WHEN P|RINTER I|
|00000250| 53 20 52 45 41 44 59 2c | 22 0a 32 37 30 20 50 52 |S READY,|".270 PR|
|00000260| 49 4e 54 22 50 52 45 53 | 53 20 41 4e 59 20 4b 45 |INT"PRES|S ANY KE|
|00000270| 59 22 0a 32 38 30 20 47 | 45 54 20 52 24 0a 32 39 |Y".280 G|ET R$.29|
|00000280| 30 20 49 46 20 52 24 3d | 22 22 20 54 48 45 4e 20 |0 IF R$=|"" THEN |
|00000290| 32 38 30 0a 33 30 30 20 | 50 52 49 4e 54 20 43 48 |280.300 |PRINT CH|
|000002a0| 52 24 28 31 34 37 29 0a | 33 31 30 20 4f 50 45 4e |R$(147).|310 OPEN|
|000002b0| 20 34 2c 34 0a 33 32 30 | 20 43 4d 44 20 34 0a 33 | 4,4.320| CMD 4.3|
|000002c0| 33 30 20 50 52 49 4e 54 | 0a 33 34 30 20 50 52 49 |30 PRINT|.340 PRI|
|000002d0| 4e 54 22 2a 2d 2a 2d 2a | 2d 2a 2d 2a 2d 2a 2d 2a |NT"*-*-*|-*-*-*-*|
|000002e0| 2d 2a 2d 2a 2d 2a 2d 2a | 2d 2a 2d 2a 2d 2a 2d 2a |-*-*-*-*|-*-*-*-*|
|000002f0| 2d 2a 2d 2a 2d 2a 22 0a | 33 35 30 20 50 52 49 4e |-*-*-*".|350 PRIN|
|00000300| 54 22 2a 22 3b 53 50 43 | 28 33 33 29 3b 22 2a 22 |T"*";SPC|(33);"*"|
|00000310| 0a 33 36 30 20 50 52 49 | 4e 54 22 2a 22 3b 53 50 |.360 PRI|NT"*";SP|
|00000320| 43 28 28 33 33 2d 4c 45 | 4e 28 49 24 29 29 2f 32 |C((33-LE|N(I$))/2|
|00000330| 29 3b 49 24 3b 53 50 43 | 28 31 37 2d 4c 45 4e 28 |);I$;SPC|(17-LEN(|
|00000340| 49 24 29 2f 32 29 3b 22 | 2a 22 0a 33 37 30 20 50 |I$)/2);"|*".370 P|
|00000350| 52 49 4e 54 22 2a 22 3b | 53 50 43 28 33 33 29 3b |RINT"*";|SPC(33);|
|00000360| 22 2a 22 0a 33 38 30 20 | 50 52 49 4e 54 22 2a 2d |"*".380 |PRINT"*-|
|00000370| 2a 2d 2a 2d 2a 2d 2a 2d | 2a 2d 2a 2d 2a 2d 2a 2d |*-*-*-*-|*-*-*-*-|
|00000380| 2a 2d 2a 2d 2a 2d 2a 2d | 2a 2d 2a 2d 2a 2d 2a 2d |*-*-*-*-|*-*-*-*-|
|00000390| 2a 22 0a 33 39 30 20 50 | 52 49 4e 54 23 34 0a 34 |*".390 P|RINT#4.4|
|000003a0| 30 30 20 43 4c 4f 53 45 | 20 34 0a 34 31 30 20 50 |00 CLOSE| 4.410 P|
|000003b0| 52 49 4e 54 22 44 4f 20 | 59 4f 55 20 57 41 4e 54 |RINT"DO |YOU WANT|
|000003c0| 20 54 4f 20 4d 41 4b 45 | 20 4d 4f 52 45 20 4c 41 | TO MAKE| MORE LA|
|000003d0| 42 45 4c 53 22 3b 0a 34 | 33 30 20 49 4e 50 55 54 |BELS";.4|30 INPUT|
|000003e0| 20 52 24 0a 34 35 30 20 | 49 46 20 4c 45 46 54 24 | R$.450 |IF LEFT$|
|000003f0| 28 52 24 2c 31 29 3d 22 | 59 22 54 48 45 4e 20 31 |(R$,1)="|Y"THEN 1|
|00000400| 39 30 0a 34 35 31 20 50 | 52 49 4e 54 20 20 43 48 |90.451 P|RINT CH|
|00000410| 52 24 28 31 34 37 29 3a | 50 52 49 4e 54 22 11 11 |R$(147):|PRINT"..|
|00000420| 11 11 11 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 57 41 |........|......WA|
|00000430| 54 43 48 20 46 4f 52 20 | 4d 4f 52 45 22 0a 34 35 |TCH FOR |MORE".45|
|00000440| 32 20 50 52 49 4e 54 22 | 11 1d 1d 1d 1d 1d 1d 1d |2 PRINT"|........|
|00000450| 1d 1d 1d 2a 2a 2a 2a 43 | 4f 4d 50 55 54 45 43 48 |...****C|OMPUTECH|
|00000460| 2a 2a 2a 2a 22 0a 34 35 | 33 20 50 52 49 4e 54 22 |****".45|3 PRINT"|
|00000470| 1d 1d 1d 1d 1d 1d 1d 11 | 11 50 52 4f 47 52 41 4d |........|.PROGRAM|
|00000480| 53 20 43 4f 4d 49 4e 47 | 20 4f 55 54 20 53 4f 4f |S COMING| OUT SOO|
|00000490| 4e 21 22 0a 34 36 30 20 | 45 4e 44 0a 37 30 30 30 |N!".460 |END.7000|
|000004a0| 20 50 52 49 4e 54 22 93 | 20 20 20 20 20 20 11 11 | PRINT".| ..|
|000004b0| 46 4f 52 20 55 50 44 41 | 54 45 53 20 4f 4e 20 54 |FOR UPDA|TES ON T|
|000004c0| 48 49 53 20 50 52 4f 47 | 52 41 4d 22 0a 37 30 30 |HIS PROG|RAM".700|
|000004d0| 31 20 50 52 49 4e 54 22 | 20 20 20 41 4e 44 20 4e |1 PRINT"| AND N|
|000004e0| 45 57 53 4c 45 54 54 45 | 52 53 20 4f 4e 20 4f 54 |EWSLETTE|RS ON OT|
|000004f0| 48 45 52 20 50 52 4f 47 | 52 41 4d 53 22 0a 37 30 |HER PROG|RAMS".70|
|00000500| 30 32 20 50 52 49 4e 54 | 22 11 11 20 20 20 20 20 |02 PRINT|".. |
|00000510| 20 20 53 45 4e 44 20 24 | 31 20 54 4f 3a 22 0a 37 | SEND $|1 TO:".7|
|00000520| 30 30 33 20 50 52 49 4e | 54 22 11 11 11 20 20 20 |003 PRIN|T"... |
|00000530| 20 20 20 20 20 20 20 20 | 20 43 4f 4d 50 55 54 45 | | COMPUTE|
|00000540| 43 48 20 49 4e 43 2e 22 | 0a 37 30 30 34 20 50 52 |CH INC."|.7004 PR|
|00000550| 49 4e 54 22 20 20 20 09 | 00 20 20 20 20 20 20 35 |INT" .|. 5|
|00000560| 30 36 20 42 45 41 43 4f | 4e 20 43 4f 55 52 54 22 |06 BEACO|N COURT"|
|00000570| 0a 37 30 30 35 20 50 52 | 49 4e 54 22 20 20 20 20 |.7005 PR|INT" |
|00000580| 20 20 20 20 20 42 4c 4f | 4f 4d 49 4e 47 54 4f 4e | BLO|OMINGTON|
|00000590| 2c 49 4c 4c 49 4e 4f 49 | 53 22 0a 37 30 30 36 20 |,ILLINOI|S".7006 |
|000005a0| 50 52 49 4e 54 22 20 20 | 20 20 20 20 20 20 20 20 |PRINT" | |
|000005b0| 20 20 20 20 20 20 20 36 | 31 37 30 34 22 0a 37 30 | 6|1704".70|
|000005c0| 30 37 20 50 52 49 4e 54 | 22 11 11 11 1d 1d 20 20 |07 PRINT|"..... |
|000005d0| 20 20 20 20 1d 1d 1d 1d | 1d 50 52 45 53 53 20 41 | ....|.PRESS A|
|000005e0| 4e 59 20 4b 45 59 22 0a | 37 30 30 38 20 47 45 54 |NY KEY".|7008 GET|
|000005f0| 20 42 54 24 3a 49 46 20 | 20 42 54 24 3d 22 22 54 | BT$:IF | BT$=""T|
|00000600| 48 45 4e 20 37 30 30 38 | 0a 36 30 30 31 30 20 46 |HEN 7008|.60010 F|
|00000610| 44 3d 38 3a 44 49 4d 46 | 4c 24 28 46 44 29 0a 36 |D=8:DIMF|L$(FD).6|
|00000620| 30 30 32 30 20 46 4c 24 | 28 31 29 3d 22 43 4f 4d |0020 FL$|(1)="COM|
|00000630| 50 55 54 45 43 48 20 50 | 52 45 53 45 4e 54 53 22 |PUTECH P|RESENTS"|
|00000640| 0a 36 30 30 33 30 20 46 | 4c 24 28 34 29 3d 22 44 |.60030 F|L$(4)="D|
|00000650| 49 53 4b 20 4c 41 42 45 | 4c 20 4d 41 4b 45 52 22 |ISK LABE|L MAKER"|
|00000660| 0a 36 30 30 34 30 20 46 | 4c 24 28 36 29 3d 22 42 |.60040 F|L$(6)="B|
|00000670| 59 20 4d 49 43 41 48 20 | 48 41 54 54 41 57 41 59 |Y MICAH |HATTAWAY|
|00000680| 22 0a 36 30 30 36 30 20 | 46 43 24 28 31 29 3d 22 |".60060 |FC$(1)="|
|00000690| 1c 22 3a 46 43 24 28 32 | 29 3d 22 9e 22 3a 46 43 |.":FC$(2|)=".":FC|
|000006a0| 24 28 33 29 3d 22 81 22 | 0a 36 30 30 37 30 20 46 |$(3)="."|.60070 F|
|000006b0| 4f 52 49 3d 31 54 4f 46 | 44 3a 46 53 3d 4c 45 4e |ORI=1TOF|D:FS=LEN|
|000006c0| 28 46 4c 24 28 49 29 29 | 3a 49 46 46 48 3c 46 53 |(FL$(I))|:IFFH<FS|
|000006d0| 54 48 45 4e 46 48 3d 46 | 53 0a 36 30 30 38 30 20 |THENFH=F|S.60080 |
|000006e0| 4e 45 58 54 3a 46 48 3d | 46 48 2b 34 3a 46 56 3d |NEXT:FH=|FH+4:FV=|
|000006f0| 49 4e 54 28 28 32 35 2d | 46 44 2d 32 29 2f 32 29 |INT((25-|FD-2)/2)|
|00000700| 0a 36 30 30 39 30 20 46 | 4f 52 49 3d 31 54 4f 28 |.60090 F|ORI=1TO(|
|00000710| 34 30 2d 46 48 29 2f 32 | 3a 46 58 24 3d 46 58 24 |40-FH)/2|:FX$=FX$|
|00000720| 2b 22 1d 22 3a 4e 45 58 | 54 0a 36 30 31 30 30 20 |+".":NEX|T.60100 |
|00000730| 49 46 46 56 3e 32 54 48 | 45 4e 46 4f 52 49 3d 31 |IFFV>2TH|ENFORI=1|
|00000740| 54 4f 46 56 2d 31 3a 46 | 59 24 3d 46 59 24 2b 22 |TOFV-1:F|Y$=FY$+"|
|00000750| 11 22 3a 4e 45 58 54 0a | 36 30 31 31 30 20 46 4f |.":NEXT.|60110 FO|
|00000760| 52 49 3d 31 54 4f 33 3a | 52 45 41 44 46 31 2c 46 |RI=1TO3:|READF1,F|
|00000770| 32 2c 46 33 2c 46 34 0a | 36 30 31 32 30 20 46 4f |2,F3,F4.|60120 FO|
|00000780| 52 4a 3d 31 54 4f 46 48 | 3a 46 35 24 28 49 29 3d |RJ=1TOFH|:F5$(I)=|
|00000790| 46 35 24 28 49 29 2b 43 | 48 52 24 28 46 31 29 0a |F5$(I)+C|HR$(F1).|
|000007a0| 36 30 31 33 30 20 46 37 | 24 28 49 29 3d 46 37 24 |60130 F7|$(I)=F7$|
|000007b0| 28 09 0a 36 30 31 34 30 | 20 46 4f 52 4a 3d 31 54 |(..60140| FORJ=1T|
|000007c0| 4f 46 44 2b 32 3a 46 36 | 24 28 49 29 3d 46 36 24 |OFD+2:F6|$(I)=F6$|
|000007d0| 28 49 29 2b 22 11 9d 22 | 2b 43 48 52 24 28 46 32 |(I)+".."|+CHR$(F2|
|000007e0| 29 0a 36 30 31 35 30 20 | 46 38 24 28 49 29 3d 46 |).60150 |F8$(I)=F|
|000007f0| 38 24 28 49 29 2b 22 91 | 22 2b 43 48 52 24 28 46 |8$(I)+".|"+CHR$(F|
|00000800| 34 29 2b 22 9d 22 3a 4e | 45 58 54 3a 4e 45 58 54 |4)+".":N|EXT:NEXT|
|00000810| 0a 36 30 31 36 30 20 46 | 4f 52 49 3d 31 54 4f 33 |.60160 F|ORI=1TO3|
|00000820| 3a 46 41 24 28 49 29 3d | 22 13 22 2b 46 59 24 2b |:FA$(I)=|"."+FY$+|
|00000830| 46 58 24 2b 46 43 24 28 | 49 29 2b 46 35 24 28 49 |FX$+FC$(|I)+F5$(I|
|00000840| 29 2b 46 36 24 28 49 29 | 0a 36 30 31 37 30 20 46 |)+F6$(I)|.60170 F|
|00000850| 42 24 28 49 29 3d 22 11 | 9d 22 2b 46 37 24 28 49 |B$(I)=".|."+F7$(I|
|00000860| 29 2b 22 1d 22 2b 46 38 | 24 28 49 29 3a 4e 45 58 |)+"."+F8|$(I):NEX|
|00000870| 54 0a 36 30 31 38 30 20 | 3a 0a 36 30 31 39 30 20 |T.60180 |:.60190 |
|00000880| 50 4f 4b 45 35 33 32 38 | 30 2c 30 3a 50 4f 4b 45 |POKE5328|0,0:POKE|
|00000890| 35 33 32 38 31 2c 30 0a | 36 30 32 30 30 20 50 52 |53281,0.|60200 PR|
|000008a0| 49 4e 54 22 93 11 9b 22 | 46 59 24 0a 36 30 32 31 |INT"..."|FY$.6021|
|000008b0| 30 20 46 4f 52 49 3d 31 | 54 4f 46 44 3a 50 52 49 |0 FORI=1|TOFD:PRI|
|000008c0| 4e 54 54 41 42 28 32 30 | 2d 4c 45 4e 28 46 4c 24 |NTTAB(20|-LEN(FL$|
|000008d0| 28 49 29 29 2f 32 29 46 | 4c 24 28 49 29 3a 4e 45 |(I))/2)F|L$(I):NE|
|000008e0| 58 54 0a 36 30 32 32 30 | 20 46 4f 52 49 3d 31 54 |XT.60220| FORI=1T|
|000008f0| 4f 33 3a 50 52 49 4e 54 | 46 41 24 28 49 29 46 42 |O3:PRINT|FA$(I)FB|
|00000900| 24 28 49 29 0a 36 30 32 | 33 30 20 46 4f 52 46 5a |$(I).602|30 FORFZ|
|00000910| 3d 31 54 4f 32 35 3a 4e | 45 58 54 3a 4e 45 58 54 |=1TO25:N|EXT:NEXT|
|00000920| 0a 36 30 32 34 30 20 47 | 45 54 41 24 3a 49 46 41 |.60240 G|ETA$:IFA|
|00000930| 24 3d 22 22 47 4f 54 4f | 36 30 32 32 30 0a 36 30 |$=""GOTO|60220.60|
|00000940| 32 35 30 20 50 52 49 4e | 54 22 93 05 22 3a 52 45 |250 PRIN|T"..":RE|
|00000950| 54 55 52 4e 0a 36 30 32 | 36 30 20 44 41 54 41 20 |TURN.602|60 DATA |
|00000960| 31 36 34 2c 31 36 37 2c | 31 36 33 2c 31 36 35 2c |164,167,|163,165,|
|00000970| 31 37 35 2c 31 37 30 2c | 31 38 33 2c 31 38 31 2c |175,170,|183,181,|
|00000980| 31 38 35 2c 31 38 32 2c | 31 38 34 2c 31 36 31 0a |185,182,|184,161.|
|00000990| 38 32 32 34 20 20 20 20 | 0a |8224 |. |
+--------+-------------------------+-------------------------+--------+--------+