home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / ALIGNER / 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: '5 POKE808,225 default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 50 4f 4b 45 38 30 | 38 2c 32 32 35 0a 31 30 |5 POKE80|8,225.10|
|00000010| 20 50 4f 4b 45 35 33 32 | 38 30 2c 34 3a 50 4f 4b | POKE532|80,4:POK|
|00000020| 45 35 33 32 38 31 2c 30 | 3a 50 52 49 4e 54 43 48 |E53281,0|:PRINTCH|
|00000030| 52 24 28 31 34 29 0a 32 | 30 20 50 52 49 4e 54 22 |R$(14).2|0 PRINT"|
|00000040| 93 12 1c 20 c4 49 53 4b | 20 c5 58 45 52 43 49 53 |... .ISK| .XERCIS|
|00000050| 45 52 20 20 c2 59 20 3a | 20 c4 49 53 4b 20 d3 55 |ER .Y :| .ISK .U|
|00000060| 52 47 45 4f 4e 20 20 20 | 20 20 20 92 22 0a 32 31 |RGEON | .".21|
|00000070| 20 50 52 49 4e 54 22 13 | 11 11 11 11 1f c9 4e 53 | PRINT".|......NS|
|00000080| 45 52 54 20 44 49 53 4b | 2c 20 50 52 45 53 53 20 |ERT DISK|, PRESS |
|00000090| 12 1c d2 45 54 55 52 4e | 92 1f 22 0a 32 32 20 47 |...ETURN|..".22 G|
|000000a0| 45 54 47 54 24 3a 49 46 | 47 54 24 3d 43 48 52 24 |ETGT$:IF|GT$=CHR$|
|000000b0| 28 31 33 29 54 48 45 4e | 32 35 0a 32 33 20 47 4f |(13)THEN|25.23 GO|
|000000c0| 54 4f 32 32 0a 32 35 20 | 50 52 49 4e 54 22 13 11 |TO22.25 |PRINT"..|
|000000d0| 11 11 11 1f c4 49 53 4b | 20 d3 54 41 54 55 53 20 |.....ISK| .TATUS |
|000000e0| 44 55 52 49 4e 47 20 c5 | 58 45 52 43 49 53 45 20 |DURING .|XERCISE |
|000000f0| 3a 22 0a 32 37 20 50 52 | 49 4e 54 22 13 11 11 11 |:".27 PR|INT"....|
|00000100| 11 11 11 11 11 11 9a d4 | 49 4d 45 20 4f 46 20 d2 |........|IME OF .|
|00000110| 45 41 44 49 4e 47 20 28 | cd 55 53 54 20 42 45 20 |EADING (|.UST BE |
|00000120| 3c 39 29 3a 22 0a 32 38 | 20 47 4f 53 55 42 31 31 |<9):".28| GOSUB11|
|00000130| 30 0a 33 30 20 41 31 24 | 3d 22 13 11 11 11 11 11 |0.30 A1$|="......|
|00000140| 22 3a 41 32 24 3d 22 13 | 11 11 11 11 11 11 11 11 |":A2$=".|........|
|00000150| 11 11 20 20 20 20 20 20 | 20 20 9d 9d 9d 9d 9d 9d |.. | ......|
|00000160| 9d 9d 22 0a 33 35 20 41 | 31 24 3d 41 31 24 2b 22 |..".35 A|1$=A1$+"|
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000180| 20 20 20 20 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d | ....|........|
|00000190| 9d 9d 9d 9d 9d 9d 9d 9d | 22 0a 34 30 20 4f 50 45 |........|".40 OPE|
|000001a0| 4e 35 2c 38 2c 31 35 3a | 4f 50 45 4e 34 2c 38 2c |N5,8,15:|OPEN4,8,|
|000001b0| 33 2c 22 23 22 3a 4f 50 | 45 4e 31 2c 38 2c 31 35 |3,"#":OP|EN1,8,15|
|000001c0| 0a 35 30 20 54 49 24 3d | 22 30 30 30 30 30 30 22 |.50 TI$=|"000000"|
|000001d0| 3a 50 52 49 4e 54 23 35 | 2c 22 42 2d 52 22 3b 33 |:PRINT#5|,"B-R";3|
|000001e0| 3b 30 3b 31 3b 31 3a 50 | 52 49 4e 54 23 35 2c 22 |;0;1;1:P|RINT#5,"|
|000001f0| 42 2d 50 22 33 3b 31 3a | 47 45 54 23 34 2c 41 24 |B-P"3;1:|GET#4,A$|
|00000200| 0a 36 30 20 52 45 4d 0a | 37 30 20 50 52 49 4e 54 |.60 REM.|70 PRINT|
|00000210| 23 35 2c 22 42 2d 52 22 | 3b 33 3b 30 3b 33 35 3b |#5,"B-R"|;3;0;35;|
|00000220| 32 3a 50 52 49 4e 54 23 | 35 2c 22 42 2d 50 22 33 |2:PRINT#|5,"B-P"3|
|00000230| 3b 31 3a 47 45 54 23 34 | 2c 41 24 0a 38 30 20 49 |;1:GET#4|,A$.80 I|
|00000240| 4e 50 55 54 23 31 2c 58 | 31 2c 58 32 24 2c 58 33 |NPUT#1,X|1,X2$,X3|
|00000250| 2c 58 34 3a 50 52 49 4e | 54 41 31 24 3b 58 31 3b |,X4:PRIN|TA1$;X1;|
|00000260| 58 32 24 3b 58 33 3b 58 | 34 3a 5a 57 3d 54 49 0a |X2$;X3;X|4:ZW=TI.|
|00000270| 39 30 20 50 52 49 4e 54 | 41 32 24 3b 5a 57 3a 49 |90 PRINT|A2$;ZW:I|
|00000280| 46 5a 57 3c 39 54 48 45 | 4e 46 4f 52 57 3d 31 54 |FZW<9THE|NFORW=1T|
|00000290| 4f 31 30 30 30 3a 4e 45 | 58 54 57 3a 47 4f 54 4f |O1000:NE|XTW:GOTO|
|000002a0| 31 36 30 0a 31 30 30 20 | 47 4f 54 4f 35 30 0a 31 |160.100 |GOTO50.1|
|000002b0| 31 30 20 50 52 49 4e 54 | 22 13 11 11 11 11 11 11 |10 PRINT|".......|
|000002c0| 11 11 11 11 11 11 11 11 | 11 11 1f d4 48 49 53 20 |........|....HIS |
|000002d0| 50 52 4f 47 52 41 4d 20 | 57 49 4c 4c 20 50 4f 53 |PROGRAM |WILL POS|
|000002e0| 49 54 49 4f 4e 20 59 4f | 55 52 20 48 45 41 44 20 |ITION YO|UR HEAD |
|000002f0| 41 4e 44 22 3b 0a 31 32 | 30 20 50 52 49 4e 54 22 |AND";.12|0 PRINT"|
|00000300| 53 54 4f 50 50 45 52 20 | 54 4f 20 54 48 45 20 12 |STOPPER |TO THE .|
|00000310| 1c 4f 50 54 49 4d 55 4d | 92 1f 20 50 4f 53 49 54 |.OPTIMUM|.. POSIT|
|00000320| 49 4f 4e 22 0a 31 33 30 | 20 50 52 49 4e 54 22 41 |ION".130| PRINT"A|
|00000330| 4c 4c 4f 57 41 42 4c 45 | 20 54 4f 20 59 4f 55 52 |LLOWABLE| TO YOUR|
|00000340| 20 44 49 53 4b 20 44 52 | 49 56 45 2e 20 c9 46 20 | DISK DR|IVE. .F |
|00000350| 52 45 41 44 22 0a 31 34 | 30 20 50 52 49 4e 54 22 |READ".14|0 PRINT"|
|00000360| 4e 45 56 45 52 20 42 45 | 43 4f 4d 45 53 20 4c 45 |NEVER BE|COMES LE|
|00000370| 53 53 20 54 48 41 4e 20 | 39 2c 20 54 48 45 52 45 |SS THAN |9, THERE|
|00000380| 20 4d 41 59 20 42 45 22 | 0a 31 35 30 20 50 52 49 | MAY BE"|.150 PRI|
|00000390| 4e 54 22 41 4c 49 47 4e | 4d 45 4e 54 20 50 52 4f |NT"ALIGN|MENT PRO|
|000003a0| 42 4c 45 4d 53 2e 20 44 | 4f 20 4e 4f 54 20 57 4f |BLEMS. D|O NOT WO|
|000003b0| 52 52 59 20 41 42 4f 55 | 54 22 0a 31 35 31 20 50 |RRY ABOU|T".151 P|
|000003c0| 52 49 4e 54 22 44 52 49 | 56 45 20 4b 4e 4f 43 4b |RINT"DRI|VE KNOCK|
|000003d0| 2c 20 54 48 49 53 20 50 | 52 4f 47 52 41 4d 20 55 |, THIS P|ROGRAM U|
|000003e0| 53 45 53 20 49 54 20 49 | 4e 22 0a 31 35 32 20 50 |SES IT I|N".152 P|
|000003f0| 52 49 4e 54 22 4f 52 44 | 45 52 20 54 4f 20 43 4f |RINT"ORD|ER TO CO|
|00000400| 52 52 45 43 54 4c 59 20 | 52 45 41 44 20 41 4e 44 |RRECTLY |READ AND|
|00000410| 20 50 4f 53 49 54 49 4f | 4e 22 0a 31 35 33 20 50 | POSITIO|N".153 P|
|00000420| 52 49 4e 54 22 59 4f 55 | 52 20 44 49 53 4b 20 44 |RINT"YOU|R DISK D|
|00000430| 52 49 56 45 27 53 20 48 | 45 41 44 20 41 4e 44 20 |RIVE'S H|EAD AND |
|00000440| 53 54 4f 50 50 45 52 2e | 22 0a 31 35 34 20 50 52 |STOPPER.|".154 PR|
|00000450| 49 4e 54 22 1c 13 22 3a | 52 45 54 55 52 4e 0a 31 |INT"..":|RETURN.1|
|00000460| 36 30 20 43 4c 4f 53 45 | 34 3a 43 4c 4f 53 45 35 |60 CLOSE|4:CLOSE5|
|00000470| 3a 43 4c 4f 53 45 31 0a | 31 37 30 20 4f 50 45 4e |:CLOSE1.|170 OPEN|
|00000480| 31 2c 38 2c 31 35 0a 31 | 38 30 20 50 52 49 4e 54 |1,8,15.1|80 PRINT|
|00000490| 41 32 24 3b 22 91 1f ce | 4f 57 20 c9 4e 49 54 49 |A2$;"...|OW .NITI|
|000004a0| 41 4c 49 5a 49 4e 47 1c | 20 20 20 20 20 20 20 20 |ALIZING.| |
|000004b0| 20 20 20 20 20 20 20 22 | 0a 31 39 30 20 46 4f 52 | "|.190 FOR|
|000004c0| 57 3d 31 54 4f 31 30 3a | 50 52 49 4e 54 23 31 2c |W=1TO10:|PRINT#1,|
|000004d0| 22 49 22 3a 49 4e 50 55 | 54 23 31 2c 58 31 2c 58 |"I":INPU|T#1,X1,X|
|000004e0| 32 24 2c 58 33 2c 58 34 | 3a 50 52 49 4e 54 41 31 |2$,X3,X4|:PRINTA1|
|000004f0| 24 3b 58 31 3b 58 32 24 | 3b 58 33 3b 58 34 3a 4e |$;X1;X2$|;X3;X4:N|
|00000500| 45 58 54 57 0a 32 30 30 | 20 43 4c 4f 53 45 31 0a |EXTW.200| CLOSE1.|
|00000510| 32 30 35 20 50 4f 4b 45 | 35 33 32 38 30 2c 34 3a |205 POKE|53280,4:|
|00000520| 50 4f 4b 45 35 33 32 38 | 31 2c 30 0a 32 31 30 20 |POKE5328|1,0.210 |
|00000530| 50 52 49 4e 54 22 93 12 | 1c 20 20 20 c4 49 53 4b |PRINT"..|. .ISK|
|00000540| 09 00 52 49 56 45 20 41 | 4e 44 20 c4 49 53 4b 20 |..RIVE A|ND .ISK |
|00000550| 48 41 56 45 20 50 41 53 | 53 45 44 20 20 20 22 3b |HAVE PAS|SED ";|
|00000560| 0a 32 32 30 20 50 52 49 | 4e 54 22 20 20 20 20 20 |.220 PRI|NT" |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 c5 58 45 52 43 | | .XERC|
|00000580| 49 53 49 4e 47 20 20 20 | 20 20 20 20 20 20 20 20 |ISING | |
|00000590| 20 20 20 20 20 20 22 0a | 32 33 30 20 50 52 49 4e | ".|230 PRIN|
|000005a0| 54 22 11 11 9c c4 49 53 | 4b 20 c4 52 49 56 45 20 |T"....IS|K .RIVE |
|000005b0| d3 54 41 54 55 53 20 d2 | 45 50 4f 52 54 20 3a 22 |.TATUS .|EPORT :"|
|000005c0| 0a 32 34 30 20 50 52 49 | 4e 54 22 11 1f 2e 2e 2e |.240 PRI|NT".....|
|000005d0| d9 4f 55 52 20 44 49 53 | 4b 20 48 45 41 44 20 49 |.OUR DIS|K HEAD I|
|000005e0| 53 20 4e 4f 57 20 49 4e | 20 1c 12 4f 50 54 49 4d |S NOW IN| ..OPTIM|
|000005f0| 41 4c 92 1f 22 0a 32 35 | 30 20 50 52 49 4e 54 22 |AL..".25|0 PRINT"|
|00000600| 1f 20 20 20 50 4f 53 49 | 54 49 4f 4e 2c 20 54 48 |. POSI|TION, TH|
|00000610| 45 20 44 52 49 56 45 20 | 57 49 4c 4c 20 42 45 20 |E DRIVE |WILL BE |
|00000620| 4d 55 43 48 22 0a 32 35 | 35 20 50 52 49 4e 54 22 |MUCH".25|5 PRINT"|
|00000630| 20 20 20 51 55 49 45 54 | 45 52 20 44 55 52 49 4e | QUIET|ER DURIN|
|00000640| 47 20 55 53 45 20 41 4e | 44 20 48 41 56 45 20 4c |G USE AN|D HAVE L|
|00000650| 45 53 53 22 0a 32 35 37 | 20 50 52 49 4e 54 22 20 |ESS".257| PRINT" |
|00000660| 20 20 45 52 52 4f 52 53 | 2e 22 0a 32 36 30 20 50 | ERRORS|.".260 P|
|00000670| 52 49 4e 54 22 11 2e 2e | 2e c1 4e 59 20 44 41 4d |RINT"...|..NY DAM|
|00000680| 41 47 45 20 43 41 55 53 | 45 44 20 42 59 20 4d 49 |AGE CAUS|ED BY MI|
|00000690| 53 41 4c 49 47 4e 4d 45 | 4e 54 22 0a 32 37 30 20 |SALIGNME|NT".270 |
|000006a0| 50 52 49 4e 54 22 20 20 | 20 4f 52 20 44 52 49 56 |PRINT" | OR DRIV|
|000006b0| 45 20 4b 4e 4f 43 4b 20 | 48 41 53 20 42 45 45 4e |E KNOCK |HAS BEEN|
|000006c0| 20 52 45 50 41 49 52 45 | 44 2e 22 0a 32 38 30 20 | REPAIRE|D.".280 |
|000006d0| 50 52 49 4e 54 22 11 2e | 2e 2e c9 46 20 59 4f 55 |PRINT"..|...F YOU|
|000006e0| 20 55 53 45 20 54 48 49 | 53 20 46 52 45 51 55 45 | USE THI|S FREQUE|
|000006f0| 4e 54 4c 59 20 59 4f 55 | 52 20 44 49 53 4b 22 0a |NTLY YOU|R DISK".|
|00000700| 32 39 30 20 50 52 49 4e | 54 22 20 20 20 44 52 49 |290 PRIN|T" DRI|
|00000710| 56 45 20 57 49 4c 4c 20 | 4c 41 53 54 20 4d 41 4e |VE WILL |LAST MAN|
|00000720| 59 20 59 45 41 52 53 20 | 4c 4f 4e 47 45 52 20 41 |Y YEARS |LONGER A|
|00000730| 4e 44 22 3b 0a 33 30 30 | 20 50 52 49 4e 54 22 20 |ND";.300| PRINT" |
|00000740| 20 20 53 54 41 59 20 49 | 4e 20 12 1c 45 58 43 45 | STAY I|N ..EXCE|
|00000750| 4c 4c 45 4e 54 92 20 1f | 43 4f 4e 44 49 54 49 4f |LLENT. .|CONDITIO|
|00000760| 4e 2e 22 0a 33 33 30 20 | 50 52 49 4e 54 22 13 9e |N.".330 |PRINT"..|
|00000770| 09 00 3a 89 33 33 30 00 | 0a 38 32 32 34 20 20 20 |..:.330.|.8224 |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 0a | | . |
+--------+-------------------------+-------------------------+--------+--------+