home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / DRIVER / c64.bas
Unknown  |  2019-04-13  |  2.5 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% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 50 47 24 3d 22 20 | 36 20 34 20 2d 20 44 20 |1 PG$=" |6 4 - D |
|00000010| 52 20 49 20 56 20 45 20 | 52 20 22 3a 41 55 24 3d |R I V E |R ":AU$=|
|00000020| 22 44 4f 4e 54 20 48 49 | 54 20 54 48 45 20 53 49 |"DONT HI|T THE SI|
|00000030| 44 45 53 20 21 22 3a 4a | 46 3d 31 0a 32 20 50 4f |DES !":J|F=1.2 PO|
|00000040| 4b 45 35 33 32 38 30 2c | 30 3a 50 4f 4b 45 35 33 |KE53280,|0:POKE53|
|00000050| 32 38 31 2c 30 0a 39 30 | 20 47 4f 54 4f 36 32 30 |281,0.90| GOTO620|
|00000060| 30 30 0a 31 30 30 20 44 | 49 4d 4c 24 28 39 29 2c |00.100 D|IML$(9),|
|00000070| 4c 28 33 29 2c 42 28 32 | 35 29 2c 50 25 28 31 30 |L(3),B(2|5),P%(10|
|00000080| 30 30 29 3a 47 4f 53 55 | 42 31 30 30 30 3a 50 4f |00):GOSU|B1000:PO|
|00000090| 4b 45 35 33 32 38 30 2c | 30 3a 50 4f 4b 45 35 33 |KE53280,|0:POKE53|
|000000a0| 32 38 31 2c 30 0a 31 31 | 30 20 50 4f 4b 45 56 49 |281,0.11|0 POKEVI|
|000000b0| 43 2c 30 3a 50 4f 4b 45 | 56 49 43 2b 32 33 2c 30 |C,0:POKE|VIC+23,0|
|000000c0| 3a 50 4f 4b 45 56 49 43 | 2b 32 39 2c 30 3a 50 4f |:POKEVIC|+29,0:PO|
|000000d0| 4b 45 56 49 43 2b 32 37 | 2c 30 30 30 0a 31 31 35 |KEVIC+27|,000.115|
|000000e0| 20 4e 3d 31 39 3a 50 52 | 49 4e 54 22 93 11 11 11 | N=19:PR|INT"....|
|000000f0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000100| 11 11 11 11 05 22 3a 56 | 3d 2d 34 36 3a 57 3d 30 |.....":V|=-46:W=0|
|00000110| 0a 31 32 30 20 51 3d 33 | 35 3a 4d 3d 32 3a 4b 3d |.120 Q=3|5:M=2:K=|
|00000120| 31 36 32 3a 55 3d 30 3a | 49 3d 30 3a 42 3d 30 0a |162:U=0:|I=0:B=0.|
|00000130| 31 32 31 20 50 4f 4b 45 | 32 30 34 30 2c 31 33 3a |121 POKE|2040,13:|
|00000140| 50 4f 4b 45 35 33 32 38 | 37 2c 38 0a 31 32 35 20 |POKE5328|7,8.125 |
|00000150| 50 4f 4b 45 56 49 43 2c | 4b 3a 50 4f 4b 45 56 49 |POKEVIC,|K:POKEVI|
|00000160| 43 2b 31 2c 31 36 30 0a | 31 32 38 20 4c 24 28 31 |C+1,160.|128 L$(1|
|00000170| 29 3d 22 12 a9 20 20 20 | 20 2f 20 20 20 20 92 a9 |)=".. | / ..|
|00000180| 22 3a 4c 24 28 33 29 3d | 22 9d df 12 20 20 20 20 |":L$(3)=|"... |
|00000190| cd 20 20 20 df 22 3a 4c | 24 28 32 29 3d 22 12 20 |. .":L|$(2)=". |
|000001a0| 20 20 20 a7 20 20 20 20 | 20 22 0a 31 32 39 20 4c | . | ".129 L|
|000001b0| 24 28 34 29 3d 22 12 a9 | 20 20 20 2f 20 20 20 92 |$(4)="..| / .|
|000001c0| a9 22 3a 4c 24 28 36 29 | 3d 22 9d df 12 20 20 20 |.":L$(6)|="... |
|000001d0| cd 20 20 20 df 22 3a 4c | 24 28 35 29 3d 22 12 20 |. .":L|$(5)=". |
|000001e0| 20 20 a7 20 20 20 20 22 | 0a 31 33 30 20 4c 24 28 | . "|.130 L$(|
|000001f0| 37 29 3d 22 12 a9 20 20 | 2f 20 20 92 a9 22 3a 4c |7)=".. |/ ..":L|
|00000200| 24 28 39 29 3d 22 9d df | 12 20 20 cd 20 20 df 22 |$(9)="..|. . ."|
|00000210| 3a 4c 24 28 38 29 3d 22 | 12 20 20 a7 20 20 20 22 |:L$(8)="|. . "|
|00000220| 0a 31 33 32 20 50 52 49 | 4e 54 22 93 22 3a 46 4f |.132 PRI|NT".":FO|
|00000230| 52 4e 3d 31 54 4f 32 35 | 3a 50 52 49 4e 54 54 41 |RN=1TO25|:PRINTTA|
|00000240| 42 28 31 31 29 4c 24 28 | 32 29 3a 4e 45 58 54 3a |B(11)L$(|2):NEXT:|
|00000250| 50 52 49 4e 54 22 05 22 | 3b 3a 4e 3d 31 31 0a 31 |PRINT"."|;:N=11.1|
|00000260| 33 33 20 50 4f 4b 45 56 | 49 43 2b 32 31 2c 31 0a |33 POKEV|IC+21,1.|
|00000270| 31 33 35 20 4c 28 31 29 | 3d 2d 31 3a 4c 28 32 29 |135 L(1)|=-1:L(2)|
|00000280| 3d 30 3a 4c 28 33 29 3d | 31 0a 31 34 30 20 50 52 |=0:L(3)=|1.140 PR|
|00000290| 49 4e 54 54 41 42 28 4e | 29 4c 24 28 4d 2b 49 29 |INTTAB(N|)L$(M+I)|
|000002a0| 0a 31 34 32 20 55 3d 55 | 2b 31 3a 49 46 55 3d 31 |.142 U=U|+1:IFU=1|
|000002b0| 31 30 54 48 45 4e 33 30 | 30 0a 31 34 35 20 50 4f |10THEN30|0.145 PO|
|000002c0| 4b 45 35 33 32 36 34 2c | 53 47 4e 28 4b 41 4e 44 |KE53264,|SGN(KAND|
|000002d0| 32 35 36 29 3a 50 4f 4b | 45 35 33 32 34 38 2c 4b |256):POK|E53248,K|
|000002e0| 41 4e 44 32 35 35 0a 31 | 35 35 20 51 3d 51 2b 31 |AND255.1|55 Q=Q+1|
|000002f0| 3a 41 3d 50 45 45 4b 28 | 35 36 33 32 30 29 3a 49 |:A=PEEK(|56320):I|
|00000300| 46 41 3d 31 32 33 54 48 | 45 4e 4b 3d 4b 2d 38 0a |FA=123TH|ENK=K-8.|
|00000310| 31 35 36 20 49 46 50 45 | 45 4b 28 31 36 32 32 2b |156 IFPE|EK(1622+|
|00000320| 4b 2f 38 29 3d 33 32 54 | 48 45 4e 34 30 30 0a 31 |K/8)=32T|HEN400.1|
|00000330| 35 37 20 47 45 54 41 24 | 3a 49 46 41 24 3d 22 51 |57 GETA$|:IFA$="Q|
|00000340| 22 54 48 45 4e 36 30 30 | 0a 31 36 30 20 49 46 41 |"THEN600|.160 IFA|
|00000350| 3d 31 31 39 54 48 45 4e | 4b 3d 4b 2b 38 0a 31 37 |=119THEN|K=K+8.17|
|00000360| 35 20 49 46 52 4e 44 28 | 31 29 3e 2e 37 54 48 45 |5 IFRND(|1)>.7THE|
|00000370| 4e 4d 32 3d 4d 3a 4d 3d | 49 4e 54 28 52 4e 44 28 |NM2=M:M=|INT(RND(|
|00000380| 31 29 2a 33 29 2b 31 0a | 31 38 35 20 4e 31 3d 4e |1)*3)+1.|185 N1=N|
|00000390| 2b 4c 28 4d 29 0a 31 39 | 30 20 49 46 4e 31 3e 32 |+L(M).19|0 IFN1>2|
|000003a0| 37 4f 52 4e 31 3c 34 54 | 48 45 4e 4e 31 3d 4e 3a |7ORN1<4T|HENN1=N:|
|000003b0| 4d 3d 32 0a 31 39 35 20 | 4e 3d 4e 31 3a 47 4f 54 |M=2.195 |N=N1:GOT|
|000003c0| 4f 31 34 30 0a 32 30 30 | 20 49 46 57 3d 30 54 48 |O140.200| IFW=0TH|
|000003d0| 45 4e 57 3d 31 3a 56 3d | 2d 32 32 3a 47 4f 54 4f |ENW=1:V=|-22:GOTO|
|000003e0| 32 31 30 0a 32 30 35 20 | 57 3d 30 3a 56 3d 2d 34 |210.205 |W=0:V=-4|
|000003f0| 36 0a 32 31 30 20 50 4f | 4b 45 35 33 32 38 37 2c |6.210 PO|KE53287,|
|00000400| 57 3a 50 4f 4b 45 35 33 | 32 38 37 2c 57 3a 52 45 |W:POKE53|287,W:RE|
|00000410| 54 55 52 4e 0a 33 30 30 | 20 49 46 42 54 48 45 4e |TURN.300| IFBTHEN|
|00000420| 35 30 30 0a 33 30 32 20 | 49 46 49 3d 36 54 48 45 |500.302 |IFI=6THE|
|00000430| 4e 42 3d 42 2b 31 3a 50 | 52 49 4e 54 22 1e 22 3b |NB=B+1:P|RINT".";|
|00000440| 3a 55 3d 31 30 30 3a 47 | 4f 54 4f 31 34 35 0a 33 |:U=100:G|OTO145.3|
|00000450| 30 35 20 49 46 4d 3c 3e | 32 54 48 45 4e 55 3d 31 |05 IFM<>|2THENU=1|
|00000460| 30 39 3a 47 4f 54 4f 31 | 34 35 0a 33 31 30 20 4e |09:GOTO1|45.310 N|
|00000470| 3d 4e 2b 31 3a 55 3d 30 | 3a 4d 3d 32 3a 49 3d 49 |=N+1:U=0|:M=2:I=I|
|00000480| 2b 33 0a 33 32 30 20 47 | 4f 54 4f 31 34 35 0a 34 |+3.320 G|OTO145.4|
|00000490| 30 30 20 46 4f 52 4e 3d | 31 54 4f 33 30 3a 50 4f |00 FORN=|1TO30:PO|
|000004a0| 4b 45 35 33 32 38 30 2c | 31 3a 46 4f 52 54 3d 31 |KE53280,|1:FORT=1|
|000004b0| 54 4f 31 30 3a 4e 45 58 | 54 3a 50 4f 4b 45 35 33 |TO10:NEX|T:POKE53|
|000004c0| 32 38 30 2c 30 3a 4e 45 | 58 54 0a 34 31 30 20 50 |280,0:NE|XT.410 P|
|000004d0| 4f 4b 45 35 33 32 36 39 | 2c 30 3a 50 52 49 4e 54 |OKE53269|,0:PRINT|
|000004e0| 22 93 11 11 11 11 11 59 | 4f 55 20 43 52 41 53 48 |"......Y|OU CRASH|
|000004f0| 45 44 21 22 3a 47 4f 54 | 4f 35 34 35 0a 35 30 30 |ED!":GOT|O545.500|
|00000500| 20 46 4f 52 4e 3d 31 54 | 4f 31 30 30 30 3a 4e 45 | FORN=1T|O1000:NE|
|00000510| 58 54 3a 50 4f 4b 45 35 | 33 32 34 38 2b 32 31 2c |XT:POKE5|3248+21,|
|00000520| 30 0a 35 30 35 20 50 52 | 49 4e 54 22 93 11 11 11 |0.505 PR|INT"....|
|00000530| 11 11 05 59 4f 55 20 46 | 49 4e 49 53 48 45 44 20 |...YOU F|INISHED |
|00000540| 54 48 45 20 43 4f 55 52 | 53 45 21 22 0a 35 34 35 |THE COUR|SE!".545|
|00000550| 20 50 52 49 4e 54 3a 47 | 4f 53 55 42 39 31 30 30 | PRINT:G|OSUB9100|
|00000560| 20 3a 50 52 49 4e 54 22 | 05 09 00 3a 8b 20 59 4e | :PRINT"|...:. YN|
|00000570| a7 31 32 30 00 0a 35 34 | 36 20 50 52 49 4e 54 22 |.120..54|6 PRINT"|
|00000580| 93 11 11 22 3a 45 4e 44 | 0a 35 35 30 20 54 4d 3d |...":END|.550 TM=|
|00000590| 54 49 2b 31 30 0a 35 36 | 30 20 49 46 54 4d 3e 54 |TI+10.56|0 IFTM>T|
|000005a0| 49 54 48 45 4e 35 36 30 | 0a 35 37 30 20 52 45 54 |ITHEN560|.570 RET|
|000005b0| 55 52 4e 0a 36 30 30 20 | 50 52 49 4e 54 22 93 11 |URN.600 |PRINT"..|
|000005c0| 11 11 54 48 41 4e 4b 53 | 20 46 4f 52 20 50 4c 41 |..THANKS| FOR PLA|
|000005d0| 59 49 4e 47 21 22 3a 50 | 4f 4b 45 35 33 32 34 38 |YING!":P|OKE53248|
|000005e0| 2c 30 3a 45 4e 44 0a 39 | 30 30 20 50 52 49 4e 54 |,0:END.9|00 PRINT|
|000005f0| 50 45 45 4b 28 35 36 33 | 32 30 29 3a 47 4f 54 4f |PEEK(563|20):GOTO|
|00000600| 39 30 30 0a 31 30 30 30 | 20 52 45 41 44 41 3a 46 |900.1000| READA:F|
|00000610| 4f 52 4e 3d 36 34 2a 31 | 33 54 4f 36 34 2a 31 34 |ORN=64*1|3TO64*14|
|00000620| 2d 33 3a 52 45 41 44 41 | 3a 50 4f 4b 45 4e 2c 41 |-3:READA|:POKEN,A|
|00000630| 3a 4e 45 58 54 3a 52 45 | 54 55 52 4e 0a 39 31 30 |:NEXT:RE|TURN.910|
|00000640| 30 20 4e 4f 3d 30 0a 39 | 31 31 30 20 54 4d 3d 30 |0 NO=0.9|110 TM=0|
|00000650| 3a 53 57 3d 31 0a 39 31 | 31 35 20 50 52 49 4e 54 |:SW=1.91|15 PRINT|
|00000660| 22 05 50 4c 41 59 20 41 | 47 41 49 4e 3f 20 97 59 |".PLAY A|GAIN? .Y|
|00000670| 45 53 20 4e 4f 91 22 0a | 39 31 32 30 20 49 46 20 |ES NO.".|9120 IF |
|00000680| 54 49 3c 54 4d 54 48 45 | 4e 39 31 35 30 0a 39 31 |TI<TMTHE|N9150.91|
|00000690| 33 30 20 50 52 49 4e 54 | 54 41 42 28 31 32 2b 4e |30 PRINT|TAB(12+N|
|000006a0| 4f 2a 34 29 3b 4d 49 44 | 24 28 22 05 97 22 2c 53 |O*4);MID|$("..",S|
|000006b0| 57 2c 31 29 3b 4d 49 44 | 24 28 22 59 45 53 4e 4f |W,1);MID|$("YESNO|
|000006c0| a0 22 2c 33 2a 4e 4f 2b | 31 2c 33 29 3b 22 91 22 |.",3*NO+|1,3);"."|
|000006d0| 0a 39 31 34 30 20 53 57 | 3d 33 2d 53 57 3a 54 4d |.9140 SW|=3-SW:TM|
|000006e0| 3d 54 49 2b 31 35 0a 39 | 31 35 30 20 4a 44 3d 50 |=TI+15.9|150 JD=P|
|000006f0| 45 45 4b 28 4a 53 29 41 | 4e 44 33 31 3a 4a 42 3d |EEK(JS)A|ND31:JB=|
|00000700| 28 4a 44 3c 31 36 29 3a | 4a 44 3d 4a 44 41 4e 44 |(JD<16):|JD=JDAND|
|00000710| 31 35 0a 39 31 36 30 20 | 49 46 4a 42 41 4e 44 4a |15.9160 |IFJBANDJ|
|00000720| 44 3d 31 35 54 48 45 4e | 59 4e 3d 28 4e 4f 3d 30 |D=15THEN|YN=(NO=0|
|00000730| 29 3a 52 45 54 55 52 4e | 0a 39 31 37 30 20 49 46 |):RETURN|.9170 IF|
|00000740| 28 4a 44 41 4e 44 38 29 | 3d 30 41 4e 44 4e 4f 3d |(JDAND8)|=0ANDNO=|
|00000750| 30 54 48 45 4e 4e 4f 3d | 31 3a 47 4f 54 4f 39 31 |0THENNO=|1:GOTO91|
|00000760| 31 35 0a 39 31 38 30 20 | 49 46 28 4a 44 41 4e 44 |15.9180 |IF(JDAND|
|00000770| 34 29 3d 30 41 4e 44 4e | 4f 3d 31 54 48 45 4e 4e |4)=0ANDN|O=1THENN|
|00000780| 4f 3d 30 3a 47 4f 54 4f | 39 31 31 35 0a 39 31 39 |O=0:GOTO|9115.919|
|00000790| 30 20 47 4f 54 4f 39 31 | 32 30 0a 35 30 30 30 30 |0 GOTO91|20.50000|
|000007a0| 20 44 41 54 41 36 32 2c | 30 2c 30 2c 30 2c 37 31 | DATA62,|0,0,0,71|
|000007b0| 2c 32 35 35 2c 32 32 36 | 2c 32 33 39 2c 36 30 2c |,255,226|,239,60,|
|000007c0| 32 34 37 2c 32 35 34 2c | 32 34 2c 31 32 37 2c 32 |247,254,|24,127,2|
|000007d0| 35 33 2c 32 35 35 2c 31 | 39 31 2c 32 33 37 2c 31 |53,255,1|91,237,1|
|000007e0| 39 33 2c 31 38 33 0a 35 | 30 30 30 31 20 44 41 54 |93,183.5|0001 DAT|
|000007f0| 41 32 33 37 2c 31 09 0a | 35 30 30 30 32 20 44 41 |A237,1..|50002 DA|
|00000800| 54 41 31 35 2c 32 35 35 | 2c 32 34 30 2c 32 33 39 |TA15,255|,240,239|
|00000810| 2c 32 35 35 2c 32 34 30 | 2c 32 35 35 2c 32 35 35 |,255,240|,255,255|
|00000820| 2c 32 34 37 2c 32 35 35 | 2c 32 35 35 2c 32 35 35 |,247,255|,255,255|
|00000830| 2c 32 35 35 2c 32 35 35 | 2c 32 35 35 2c 32 34 37 |,255,255|,255,247|
|00000840| 2c 32 35 35 0a 35 30 30 | 30 33 20 44 41 54 41 31 |,255.500|03 DATA1|
|00000850| 32 37 2c 32 34 33 2c 31 | 39 30 2c 32 33 39 2c 31 |27,243,1|90,239,1|
|00000860| 2c 32 35 35 2c 31 32 38 | 2c 30 2c 31 32 37 0a 36 |,255,128|,0,127.6|
|00000870| 31 30 30 30 20 43 52 54 | 3d 31 30 32 34 3a 56 49 |1000 CRT|=1024:VI|
|00000880| 43 3d 35 33 32 34 38 3a | 57 44 3d 34 30 3a 43 52 |C=53248:|WD=40:CR|
|00000890| 24 3d 43 48 52 24 28 31 | 33 29 3a 53 49 44 3d 35 |$=CHR$(1|3):SID=5|
|000008a0| 34 32 37 32 3a 4a 53 3d | 35 36 33 32 30 3a 43 4d |4272:JS=|56320:CM|
|000008b0| 3d 35 35 32 39 36 0a 36 | 31 30 31 30 20 51 4c 3d |=55296.6|1010 QL=|
|000008c0| 32 31 34 3a 51 49 3d 32 | 35 34 3a 52 45 54 55 52 |214:QI=2|54:RETUR|
|000008d0| 4e 0a 36 32 30 30 30 20 | 47 4f 53 55 42 36 31 30 |N.62000 |GOSUB610|
|000008e0| 30 30 3a 50 4f 4b 45 56 | 49 43 2b 32 33 2c 30 3a |00:POKEV|IC+23,0:|
|000008f0| 50 4f 4b 45 56 49 43 2b | 33 33 2c 30 3a 4c 4e 3d |POKEVIC+|33,0:LN=|
|00000900| 4c 45 4e 28 50 47 24 29 | 3a 54 42 3d 28 34 30 2d |LEN(PG$)|:TB=(40-|
|00000910| 4c 4e 29 2f 32 0a 36 32 | 30 31 30 20 50 52 49 4e |LN)/2.62|010 PRIN|
|00000920| 54 22 93 11 11 11 11 9e | 12 22 54 41 42 28 54 42 |T"......|."TAB(TB|
|00000930| 29 4c 45 46 54 24 28 22 | 20 20 20 20 20 20 20 20 |)LEFT$("| |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 2c 4c | | ",L|
|00000950| 4e 29 0a 36 32 30 32 30 | 20 50 52 49 4e 54 22 12 |N).62020| PRINT".|
|00000960| 22 54 41 42 28 54 42 29 | 50 47 24 3a 50 52 49 4e |"TAB(TB)|PG$:PRIN|
|00000970| 54 22 12 22 54 41 42 28 | 54 42 29 4c 45 46 54 24 |T"."TAB(|TB)LEFT$|
|00000980| 28 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |(" | |
|00000990| 20 20 20 20 20 20 20 22 | 2c 4c 4e 29 0a 36 32 30 | "|,LN).620|
|000009a0| 33 30 20 50 52 49 4e 54 | 22 11 11 22 54 41 42 28 |30 PRINT|".."TAB(|
|000009b0| 28 34 30 2d 4c 45 4e 28 | 41 55 24 29 29 2f 32 29 |(40-LEN(|AU$))/2)|
|000009c0| 41 55 24 0a 36 32 30 34 | 30 20 4d 53 24 3d 22 50 |AU$.6204|0 MS$="P|
|000009d0| 52 45 53 53 20 4b 45 59 | 20 54 4f 20 42 45 47 49 |RESS KEY| TO BEGI|
|000009e0| 4e 22 0a 36 32 30 36 30 | 20 50 52 49 4e 54 22 11 |N".62060| PRINT".|
|000009f0| 11 11 11 9f 22 54 41 42 | 28 54 42 29 4d 53 24 3a |...."TAB|(TB)MS$:|
|00000a00| 50 52 49 4e 54 22 11 11 | 11 11 11 11 11 9f 20 20 |PRINT"..|...... |
|00000a10| 20 20 20 20 20 20 20 22 | 09 0a | "|.. |
+--------+-------------------------+-------------------------+--------+--------+