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


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 50 4f 4b 45 35 33 | 32 38 31 2c 30 3a 50 4f |0 POKE53|281,0:PO|
|00000010| 4b 45 35 33 32 38 30 2c | 30 3a 50 52 49 4e 54 43 |KE53280,|0:PRINTC|
|00000020| 48 52 24 28 35 29 0a 31 | 30 20 50 52 49 4e 54 43 |HR$(5).1|0 PRINTC|
|00000030| 48 52 24 28 31 34 37 29 | 22 20 20 20 20 2a 2a 20 |HR$(147)|"    ** |
|00000040| 20 44 52 49 56 45 20 43 | 4c 45 41 4e 49 4e 47 20 | DRIVE C|LEANING |
|00000050| 50 52 4f 47 52 41 4d 20 | 20 2a 2a 22 0a 31 35 20 |PROGRAM | **".15 |
|00000060| 50 52 49 4e 54 43 48 52 | 24 28 31 37 29 43 48 52 |PRINTCHR|$(17)CHR|
|00000070| 24 28 31 37 29 43 48 52 | 24 28 31 37 29 22 20 20 |$(17)CHR|$(17)"  |
|00000080| 20 20 20 20 20 20 20 49 | 4e 53 45 52 54 20 43 4c |       I|NSERT CL|
|00000090| 45 41 4e 49 4e 47 20 44 | 49 53 4b 20 22 3a 50 52 |EANING D|ISK ":PR|
|000000a0| 49 4e 54 3a 50 52 49 4e | 54 0a 31 36 20 50 52 49 |INT:PRIN|T.16 PRI|
|000000b0| 4e 54 22 20 20 20 20 20 | 41 4e 44 20 50 52 45 53 |NT"     |AND PRES|
|000000c0| 53 20 3c 52 45 54 55 52 | 4e 3e 20 57 48 45 4e 20 |S <RETUR|N> WHEN |
|000000d0| 52 45 41 44 59 22 0a 31 | 37 20 47 45 54 41 24 3a |READY".1|7 GETA$:|
|000000e0| 49 46 41 24 3d 22 22 54 | 48 45 4e 31 37 0a 31 38 |IFA$=""T|HEN17.18|
|000000f0| 20 4e 3d 33 30 3a 50 52 | 49 4e 54 3a 50 52 49 4e | N=30:PR|INT:PRIN|
|00000100| 54 3a 50 52 49 4e 54 0a | 31 39 20 49 4e 50 55 54 |T:PRINT.|19 INPUT|
|00000110| 22 23 20 4f 46 20 53 45 | 43 4f 4e 44 53 20 46 4f |"# OF SE|CONDS FO|
|00000120| 52 20 43 4c 45 41 4e 49 | 4e 47 20 28 33 30 29 3a |R CLEANI|NG (30):|
|00000130| 20 22 3b 4e 3a 4e 3d 4e | 2a 36 30 0a 32 30 20 50 | ";N:N=N|*60.20 P|
|00000140| 52 49 4e 54 43 48 52 24 | 28 31 34 37 29 22 20 20 |RINTCHR$|(147)"  |
|00000150| 20 20 2a 2a 20 20 44 52 | 49 56 45 20 43 4c 45 41 |  **  DR|IVE CLEA|
|00000160| 4e 49 4e 47 20 50 52 4f | 47 52 41 4d 20 20 2a 2a |NING PRO|GRAM  **|
|00000170| 22 0a 32 32 20 50 52 49 | 4e 54 43 48 52 24 28 31 |".22 PRI|NTCHR$(1|
|00000180| 37 29 43 48 52 24 28 31 | 37 29 43 48 52 24 28 31 |7)CHR$(1|7)CHR$(1|
|00000190| 37 29 22 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |7)"     |       D|
|000001a0| 52 49 56 45 20 52 55 4e | 4e 49 4e 47 22 0a 32 33 |RIVE RUN|NING".23|
|000001b0| 20 50 52 49 4e 54 43 48 | 52 24 28 31 37 29 22 20 | PRINTCH|R$(17)" |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 50 4c 45 41 53 45 |        |  PLEASE|
|000001d0| 20 53 54 41 4e 44 20 42 | 59 2e 2e 2e 22 22 00 0a | STAND B|Y...""..|
|000001e0| 32 35 20 41 3d 54 49 3a | 54 49 24 3d 22 30 30 30 |25 A=TI:|TI$="000|
|000001f0| 30 30 30 22 3a 0a 33 30 | 20 4f 50 45 4e 31 35 2c |000":.30| OPEN15,|
|00000200| 38 2c 31 35 3a 50 52 49 | 4e 54 23 31 35 2c 22 4d |8,15:PRI|NT#15,"M|
|00000210| 2d 57 22 43 48 52 24 28 | 30 29 43 48 52 24 28 32 |-W"CHR$(|0)CHR$(2|
|00000220| 38 29 43 48 52 24 28 31 | 29 43 48 52 24 28 32 34 |8)CHR$(1|)CHR$(24|
|00000230| 34 29 2e 2e 22 22 0a 34 | 30 20 50 52 49 4e 54 22 |4).."".4|0 PRINT"|
|00000240| 13 11 11 11 11 11 11 11 | 11 11 20 20 20 20 20 20 |........|..      |
|00000250| 20 20 20 20 20 20 53 45 | 43 4f 4e 44 53 3a 20 22 |      SE|CONDS: "|
|00000260| 3b 52 49 47 48 54 24 28 | 54 49 24 2c 33 29 3a 49 |;RIGHT$(|TI$,3):I|
|00000270| 46 54 49 3c 4e 54 48 45 | 4e 34 30 0a 35 30 20 50 |FTI<NTHE|N40.50 P|
|00000280| 52 49 4e 54 23 31 35 2c | 22 4d 2d 57 22 43 48 52 |RINT#15,|"M-W"CHR|
|00000290| 24 28 30 29 43 48 52 24 | 28 32 38 29 43 48 52 24 |$(0)CHR$|(28)CHR$|
|000002a0| 28 31 29 43 48 52 24 28 | 32 34 30 29 28 31 29 43 |(1)CHR$(|240)(1)C|
|000002b0| 48 52 24 28 32 34 34 29 | 2e 2e 22 22 0a 36 30 20 |HR$(244)|.."".60 |
|000002c0| 43 4c 4f 53 45 31 35 0a | 36 32 20 50 52 49 4e 54 |CLOSE15.|62 PRINT|
|000002d0| 43 48 52 24 28 31 39 29 | 43 48 52 24 28 31 37 29 |CHR$(19)|CHR$(17)|
|000002e0| 43 48 52 24 28 31 37 29 | 43 48 52 24 28 31 37 29 |CHR$(17)|CHR$(17)|
|000002f0| 43 48 52 24 28 31 37 29 | 22 20 20 20 20 20 20 20 |CHR$(17)|"       |
|00000300| 20 20 2a 2a 20 44 52 49 | 56 45 20 53 54 4f 50 50 |  ** DRI|VE STOPP|
|00000310| 45 44 20 2a 2a 22 0a 36 | 33 20 50 52 49 4e 54 43 |ED **".6|3 PRINTC|
|00000320| 48 52 24 28 31 37 29 22 | 20 20 20 20 20 20 20 2a |HR$(17)"|       *|
|00000330| 2a 20 50 52 4f 47 52 41 | 4d 20 46 49 4e 49 53 48 |* PROGRA|M FINISH|
|00000340| 45 44 21 21 20 2a 2a 22 | 3a 50 52 49 4e 54 3a 50 |ED!! **"|:PRINT:P|
|00000350| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000360| 0a 38 32 32 34 20 20 20 | 20 20 20 20 20 20 20 20 |.8224   |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a |        |       .|
+--------+-------------------------+-------------------------+--------+--------+