home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / NEW-YEARS-TREAT / c64.bas
Unknown  |  2019-04-13  |  2.6 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



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 3a 3a 46 4f 52 4b | 3d 31 54 4f 31 30 30 2a |0 ::FORK|=1TO100*|
|00000010| 47 3a 4e 45 58 54 3a 49 | 46 47 3e 30 54 48 45 4e |G:NEXT:I|FG>0THEN|
|00000020| 52 45 54 55 52 4e 3a 3a | 20 20 21 3a 3a 3a 3a 20 |RETURN::| !:::: |
|00000030| 4f 4e 4c 59 20 53 4d 41 | 52 54 20 50 45 4f 50 4c |ONLY SMA|RT PEOPL|
|00000040| 45 20 55 53 45 20 43 2d | 36 34 20 3a 3a 3a 3a 21 |E USE C-|64 ::::!|
|00000050| 0a 35 20 52 45 4d 20 41 | 55 54 48 4f 52 20 4f 46 |.5 REM A|UTHOR OF|
|00000060| 20 54 48 45 20 53 50 52 | 49 54 45 53 20 49 53 20 | THE SPR|ITES IS |
|00000070| 55 4e 4b 4e 4f 57 4e 2e | 20 20 20 20 20 20 20 20 |UNKNOWN.| |
|00000080| 20 4a 49 4d 20 47 52 45 | 45 4e 20 4d 45 53 53 45 | JIM GRE|EN MESSE|
|00000090| 44 20 55 50 20 54 48 45 | 20 52 45 53 54 2e 2e 2e |D UP THE| REST...|
|000000a0| 2e 0a 31 30 20 50 4f 4b | 45 35 33 32 38 30 2c 30 |..10 POK|E53280,0|
|000000b0| 3a 50 4f 4b 45 35 33 32 | 38 31 2c 30 3a 50 4f 4b |:POKE532|81,0:POK|
|000000c0| 45 35 33 32 36 35 2c 31 | 31 0a 31 32 20 50 52 49 |E53265,1|1.12 PRI|
|000000d0| 4e 54 22 93 20 20 20 20 | 20 20 20 20 20 20 1e 12 |NT". | ..|
|000000e0| 20 92 af 12 20 1d 20 c6 | 20 1d 20 c6 20 1d 20 c6 | ... . .| . . . .|
|000000f0| 20 1d 20 92 af 12 20 92 | 00 0a 31 34 20 50 52 49 | . ... .|..14 PRI|
|00000100| 4e 54 22 20 20 20 20 20 | 20 20 20 20 20 1c 12 20 |NT" | .. |
|00000110| 92 b7 12 20 1d 20 92 b7 | 12 20 1d 20 92 b7 b7 20 |... . ..|. . ... |
|00000120| 12 20 92 b7 b7 20 b7 12 | 20 92 b7 00 0a 31 35 20 |. ... ..| ....15 |
|00000130| 50 52 49 4e 54 22 20 20 | 20 20 11 1e bc 12 20 a2 |PRINT" | .... .|
|00000140| 20 1d 20 c6 1d 1d 20 a1 | 92 a1 12 20 92 20 20 20 | . ... .|... . |
|00000150| 12 20 92 b9 12 20 92 20 | 12 20 c6 1d 1d 20 c6 20 |. ... . |. ... . |
|00000160| 1d 20 c6 a7 92 20 22 0a | 31 36 20 50 52 49 4e 54 |. ... ".|16 PRINT|
|00000170| 22 20 20 20 20 20 1c 12 | 20 1d 20 1d 20 92 a2 a2 |" ..| . . ...|
|00000180| 1d 12 20 be bc 20 92 20 | 20 20 b7 12 20 92 b7 20 |.. .. . | .. .. |
|00000190| 12 20 92 a2 a2 20 12 20 | 92 b7 12 20 1d 20 92 df |. ... . |... . ..|
|000001a0| 12 df 00 0a 32 30 20 47 | 4f 53 55 42 31 37 30 3a |....20 G|OSUB170:|
|000001b0| 47 4f 53 55 42 31 35 35 | 3a 50 4f 4b 45 35 33 32 |GOSUB155|:POKE532|
|000001c0| 36 35 2c 32 37 3a 47 3d | 32 30 3a 47 4f 53 55 42 |65,27:G=|20:GOSUB|
|000001d0| 0a 32 35 20 50 4f 4b 45 | 32 30 34 30 2c 31 33 3a |.25 POKE|2040,13:|
|000001e0| 44 49 4d 4d 28 33 39 29 | 2c 4e 28 33 39 29 0a 33 |DIMM(39)|,N(39).3|
|000001f0| 30 20 50 3d 38 33 32 3a | 51 31 3d 31 3a 52 3d 32 |0 P=832:|Q1=1:R=2|
|00000200| 35 35 3a 53 3d 35 34 32 | 39 36 3a 56 3d 35 33 32 |55:S=542|96:V=532|
|00000210| 34 38 0a 33 35 20 46 4f | 52 4a 3d 30 54 4f 33 38 |48.35 FO|RJ=0TO38|
|00000220| 3a 52 45 41 44 4b 2c 4c | 3a 4d 28 4a 29 3d 4b 3a |:READK,L|:M(J)=K:|
|00000230| 4e 28 4a 29 3d 4c 3a 4e | 45 58 54 3a 46 4f 52 4a |N(J)=L:N|EXT:FORJ|
|00000240| 3d 30 54 4f 34 3a 52 45 | 41 44 4b 2c 4c 3a 50 4f |=0TO4:RE|ADK,L:PO|
|00000250| 4b 45 56 2b 4b 2c 4c 3a | 4e 45 58 54 0a 34 30 20 |KEV+K,L:|NEXT.40 |
|00000260| 50 4f 4b 45 56 2c 52 2d | 32 32 35 2a 52 4e 44 28 |POKEV,R-|225*RND(|
|00000270| 31 29 3a 5a 3d 31 30 30 | 2a 52 4e 44 28 31 29 2b |1):Z=100|*RND(1)+|
|00000280| 35 30 0a 34 35 20 50 4f | 4b 45 56 2b 33 39 2c 51 |50.45 PO|KEV+39,Q|
|00000290| 31 3a 50 4f 4b 45 50 2b | 31 38 2c 31 36 3a 46 4f |1:POKEP+|18,16:FO|
|000002a0| 52 59 3d 32 33 30 54 4f | 5a 53 54 45 50 2d 31 3a |RY=230TO|ZSTEP-1:|
|000002b0| 50 4f 4b 45 56 2b 31 2c | 59 3a 4e 45 58 54 3a 47 |POKEV+1,|Y:NEXT:G|
|000002c0| 4f 53 55 42 31 34 30 0a | 35 30 20 50 4f 4b 45 35 |OSUB140.|50 POKE5|
|000002d0| 33 32 38 31 2c 31 3a 50 | 4f 4b 45 35 33 32 38 30 |3281,1:P|OKE53280|
|000002e0| 2c 31 3a 46 4f 52 4a 3d | 31 54 4f 33 3a 4e 45 58 |,1:FORJ=|1TO3:NEX|
|000002f0| 54 3a 50 4f 4b 45 35 33 | 32 38 31 2c 30 3a 50 4f |T:POKE53|281,0:PO|
|00000300| 4b 45 35 33 32 38 30 2c | 30 0a 35 35 20 46 4f 52 |KE53280,|0.55 FOR|
|00000310| 4a 3d 30 54 4f 33 38 3a | 50 4f 4b 45 50 2b 4d 28 |J=0TO38:|POKEP+M(|
|00000320| 4a 29 2c 4e 28 4a 29 3a | 4e 45 58 54 3a 58 31 3d |J),N(J):|NEXT:X1=|
|00000330| 49 4e 54 28 52 4e 44 28 | 31 29 2a 34 29 2b 31 0a |INT(RND(|1)*4)+1.|
|00000340| 36 30 20 46 4f 52 4b 3d | 30 54 4f 31 30 30 2a 58 |60 FORK=|0TO100*X|
|00000350| 31 3a 4e 45 58 54 3a 51 | 3d 51 2b 31 3a 51 31 3d |1:NEXT:Q|=Q+1:Q1=|
|00000360| 51 3a 49 46 51 31 3d 32 | 54 48 45 4e 51 31 3d 37 |Q:IFQ1=2|THENQ1=7|
|00000370| 0a 36 35 20 49 46 51 3d | 38 54 48 45 4e 51 3d 31 |.65 IFQ=|8THENQ=1|
|00000380| 0a 37 30 20 46 4f 52 4a | 3d 30 54 4f 33 38 3a 50 |.70 FORJ|=0TO38:P|
|00000390| 4f 4b 45 50 2b 4d 28 4a | 29 2c 30 3a 50 4f 4b 45 |OKEP+M(J|),0:POKE|
|000003a0| 56 2b 31 2c 50 45 45 4b | 28 56 2b 31 29 2b 31 3a |V+1,PEEK|(V+1)+1:|
|000003b0| 47 3d 2e 31 3a 47 4f 53 | 55 42 3a 4e 45 58 54 0a |G=.1:GOS|UB:NEXT.|
|000003c0| 37 35 20 47 4f 54 4f 34 | 30 0a 38 30 20 44 41 54 |75 GOTO4|0.80 DAT|
|000003d0| 41 20 30 31 39 2c 30 34 | 30 2c 30 31 36 2c 30 31 |A 019,04|0,016,01|
|000003e0| 37 2c 30 32 32 2c 30 31 | 36 2c 30 31 33 2c 31 33 |7,022,01|6,013,13|
|000003f0| 30 0a 38 35 20 44 41 54 | 41 20 30 32 35 2c 31 33 |0.85 DAT|A 025,13|
|00000400| 31 2c 30 31 30 2c 30 34 | 31 2c 30 32 38 2c 30 34 |1,010,04|1,028,04|
|00000410| 30 2c 30 31 35 2c 30 30 | 37 0a 39 30 20 44 41 54 |0,015,00|7.90 DAT|
|00000420| 41 20 30 31 37 2c 31 39 | 32 2c 30 30 37 2c 31 30 |A 017,19|2,007,10|
|00000430| 38 2c 30 30 36 2c 30 33 | 30 2c 30 30 38 2c 32 34 |8,006,03|0,008,24|
|00000440| 30 0a 39 35 20 44 41 54 | 41 20 30 30 34 2c 30 36 |0.95 DAT|A 004,06|
|00000450| 38 2c 30 30 39 2c 30 39 | 37 2c 30 31 31 2c 30 31 |8,009,09|7,011,01|
|00000460| 32 2c 30 31 32 2c 31 32 | 38 0a 31 30 30 20 44 41 |2,012,12|8.100 DA|
|00000470| 54 41 20 30 31 34 2c 30 | 30 32 2c 30 30 31 2c 31 |TA 014,0|02,001,1|
|00000480| 33 31 2c 30 30 30 2c 30 | 30 33 2c 30 30 32 2c 31 |31,000,0|03,002,1|
|00000490| 32 38 0a 31 30 35 20 44 | 41 54 41 20 30 31 38 2c |28.105 D|ATA 018,|
|000004a0| 30 35 36 2c 30 32 30 2c | 30 35 36 2c 30 32 31 2c |056,020,|056,021,|
|000004b0| 30 36 34 2c 30 32 33 2c | 30 30 34 0a 31 31 30 20 |064,023,|004.110 |
|000004c0| 44 41 54 41 20 30 32 34 | 2c 31 32 39 2c 30 32 36 |DATA 024|,129,026|
|000004d0| 2c 30 30 32 2c 30 32 37 | 2c 30 30 36 2c 30 32 39 |,002,027|,006,029|
|000004e0| 2c 31 39 32 0a 31 31 35 | 20 44 41 54 41 20 30 33 |,192.115| DATA 03|
|000004f0| 31 2c 30 36 38 2c 30 33 | 34 2c 30 36 38 2c 30 33 |1,068,03|4,068,03|
|00000500| 30 2c 30 30 38 2c 30 33 | 32 2c 30 33 32 0a 31 32 |0,008,03|2,032.12|
|00000510| 30 20 44 41 54 41 20 30 | 33 37 2c 31 39 38 2c 30 |0 DATA 0|37,198,0|
|00000520| 33 33 2c 30 31 36 2c 30 | 33 35 2c 30 31 09 0a 31 |33,016,0|35,01..1|
|00000530| 32 35 20 44 41 54 41 20 | 30 33 36 2c 30 31 36 2c |25 DATA |036,016,|
|00000540| 30 33 38 2c 30 31 36 2c | 30 34 33 2c 31 33 30 2c |038,016,|043,130,|
|00000550| 30 33 33 2c 30 30 30 0a | 31 33 30 20 44 41 54 41 |033,000.|130 DATA|
|00000560| 20 30 32 31 2c 30 30 31 | 2c 30 33 32 2c 30 30 30 | 021,001|,032,000|
|00000570| 2c 30 32 33 2c 30 30 31 | 2c 30 32 39 2c 30 30 31 |,023,001|,029,001|
|00000580| 0a 31 33 35 20 3a 0a 31 | 34 30 20 53 3d 35 34 32 |.135 :.1|40 S=542|
|00000590| 37 32 3a 46 4f 52 54 3d | 30 54 4f 32 33 3a 50 4f |72:FORT=|0TO23:PO|
|000005a0| 4b 45 53 2b 54 2c 30 3a | 4e 45 58 54 3a 50 4f 4b |KES+T,0:|NEXT:POK|
|000005b0| 45 53 2b 32 34 2c 31 35 | 3a 58 3d 49 4e 54 28 52 |ES+24,15|:X=INT(R|
|000005c0| 4e 44 28 31 29 2a 31 30 | 29 2b 32 0a 31 34 35 20 |ND(1)*10|)+2.145 |
|000005d0| 50 4f 4b 45 53 2b 35 2c | 39 3a 50 4f 4b 45 53 2b |POKES+5,|9:POKES+|
|000005e0| 31 2c 58 20 3a 50 4f 4b | 45 53 2b 34 2c 31 32 38 |1,X :POK|ES+4,128|
|000005f0| 3a 47 3d 2e 30 30 31 3a | 47 4f 53 55 42 0a 31 35 |:G=.001:|GOSUB.15|
|00000600| 30 20 50 4f 4b 45 53 2b | 34 2c 31 32 39 3a 52 45 |0 POKES+|4,129:RE|
|00000610| 54 55 52 4e 0a 31 35 35 | 20 50 52 49 4e 54 22 11 |TURN.155| PRINT".|
|00000620| 22 54 41 42 28 31 31 29 | 22 1c 12 a1 20 a2 20 92 |"TAB(11)|"... . .|
|00000630| 20 20 20 20 20 20 20 20 | 20 af 00 0a 31 36 30 20 | | ...160 |
|00000640| 50 52 49 4e 54 54 41 42 | 28 31 31 29 22 1c 12 a1 |PRINTTAB|(11)"...|
|00000650| 20 92 ac a2 92 20 12 20 | c6 92 20 bc 12 20 a2 20 | .... . |.. .. . |
|00000660| 92 20 12 a3 92 20 12 20 | c6 92 00 0a 31 36 35 20 |. ... . |....165 |
|00000670| 50 52 49 4e 54 54 41 42 | 28 31 31 29 22 1e 12 a1 |PRINTTAB|(11)"...|
|00000680| 20 92 a2 12 20 92 20 12 | 20 92 a2 a2 20 12 20 92 | ... . .| ... . .|
|00000690| 20 12 20 92 20 12 20 92 | 20 12 20 92 a2 a2 13 22 | . . . .| . ...."|
|000006a0| 3a 52 45 54 55 52 4e 0a | 31 37 30 20 50 52 49 4e |:RETURN.|170 PRIN|
|000006b0| 54 22 11 11 95 12 cd 20 | 20 20 20 20 20 20 20 20 |T"..... | |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 ce 92 22 | | .."|
|000006e0| 3b 0a 31 37 35 20 50 52 | 49 4e 54 22 95 12 20 92 |;.175 PR|INT".. .|
|000006f0| 05 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|00000700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000710| 3d 3d 3d 3d 3d 3d 3d 95 | 12 20 92 22 3b 0a 31 38 |=======.|. .";.18|
|00000720| 30 20 50 52 49 4e 54 22 | 12 20 92 05 3d 3d 3d 1e |0 PRINT"|. ..===.|
|00000730| 12 cd 20 df 92 05 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.. ...==|========|
|00000740| 3d 3d 3d 1e 12 cd 20 20 | 20 20 20 df 92 05 3d 3d |===... | ...==|
|00000750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 95 12 20 92 22 3b |========|==.. .";|
|00000760| 0a 31 38 35 20 50 52 49 | 4e 54 22 12 20 92 05 3d |.185 PRI|NT". ..=|
|00000770| 3d 3d 1e 12 20 1c 20 20 | 92 05 3d 3d 09 00 12 cd |==.. . |..==....|
|00000780| 20 20 20 20 20 df 92 05 | 3d 3d 3d 1e 12 20 1c 20 | ...|===.. . |
|00000790| 20 20 20 20 20 92 05 3d | 3d 3d 1e 12 cd 20 20 20 | ..=|==... |
|000007a0| 20 20 df 05 92 3d 3d 95 | 12 20 92 22 3b 0a 31 39 | ...==.|. .";.19|
|000007b0| 30 20 50 52 49 4e 54 22 | 12 20 92 05 3d 3d 3d 1e |0 PRINT"|. ..===.|
|000007c0| 12 20 1c 20 20 92 05 3d | 3d 3d 1e 12 20 1c 20 20 |. . ..=|==.. . |
|000007d0| 20 20 20 20 92 05 3d 3d | 3d 1e 12 20 1c 20 20 92 | ..==|=.. . .|
|000007e0| 05 3d 12 1e 20 1c 20 20 | 92 05 3d 3d 3d 1e 12 20 |.=.. . |..===.. |
|000007f0| 1c 20 20 20 20 20 20 92 | 05 3d 3d 95 12 20 92 22 |. .|.==.. ."|
|00000800| 3b 0a 31 39 35 20 50 52 | 49 4e 54 22 12 20 92 05 |;.195 PR|INT". ..|
|00000810| 3d 3d 3d 1e 12 20 1c 20 | 20 92 05 3d 3d 3d 1e 12 |===.. . | ..===..|
|00000820| 20 1c 20 20 92 05 3d 12 | 1e 20 1c 20 20 92 05 3d | . ..=.|. . ..=|
|00000830| 3d 3d 1e 12 20 1c 20 20 | 1e 20 cd 1c 20 20 92 05 |==.. . |. .. ..|
|00000840| 3d 3d 3d 1e 12 20 1c 20 | 20 92 05 3d 3d 3d 3d 3d |===.. . | ..=====|
|00000850| 3d 95 12 20 92 22 3b 0a | 32 30 30 20 50 52 49 4e |=.. .";.|200 PRIN|
|00000860| 54 22 12 20 92 05 3d 3d | 3d 1e 12 20 1c 20 20 92 |T". ..==|=.. . .|
|00000870| 05 3d 3d 3d 1e 12 20 1c | 20 20 1e 20 cd 1c 20 20 |.===.. .| . .. |
|00000880| 92 05 3d 3d 3d 1e df 12 | 1c 20 20 20 20 20 20 92 |..===...|. .|
|00000890| 05 3d 3d 3d 1e 12 20 1c | 20 20 1e 20 20 20 df 92 |.===.. .| . ..|
|000008a0| 05 3d 3d 95 12 20 92 22 | 3b 0a 32 30 35 20 50 52 |.==.. ."|;.205 PR|
|000008b0| 49 4e 54 22 12 20 92 05 | 3d 3d 3d 1e 12 20 1c 20 |INT". ..|===.. . |
|000008c0| 20 92 05 3d 3d 3d 1e df | 1c 12 20 20 20 20 20 20 | ..===..|.. |
|000008d0| 92 05 3d 3d 3d 3d 3d 3d | 3d 1e 12 20 1c 20 20 92 |..======|=.. . .|
|000008e0| 05 3d 3d 3d 1e 12 20 1c | 12 20 20 20 20 20 20 92 |.===.. .|. .|
|000008f0| 05 3d 3d 95 12 20 92 22 | 3b 0a 32 31 30 20 50 52 |.==.. ."|;.210 PR|
|00000900| 49 4e 54 22 12 20 92 05 | 3d 3d 3d 1e 12 20 1c 20 |INT". ..|===.. . |
|00000910| 20 92 05 3d 3d 3d 3d 3d | 3d 3d 1e 12 20 1c 20 20 | ..=====|==.. . |
|00000920| 92 05 3d 3d 3d 1e 12 cd | 20 20 20 cd 1c 20 20 92 |..===...| .. .|
|00000930| 05 3d 3d 3d 1e 12 20 1c | 20 20 92 05 3d 1e 12 20 |.===.. .| ..=.. |
|00000940| 1c 20 20 92 05 3d 3d 95 | 12 20 92 22 3b 0a 32 31 |. ..==.|. .";.21|
|00000950| 35 20 50 52 49 4e 54 22 | 12 20 92 05 3d 3d 3d 1e |5 PRINT"|. ..===.|
|00000960| df 1c 12 20 20 92 05 3d | 3d 3d 1e 12 cd 20 20 20 |... ..=|==... |
|00000970| cd 1c 20 20 92 05 3d 3d | 3d 1e df 1c 12 20 20 20 |.. ..==|=.... |
|00000980| 20 20 20 92 05 3d 3d 3d | 1e 12 20 1c 20 20 1e 20 | ..===|.. . . |
|00000990| cd 1c 20 20 09 00 3d 3d | 95 12 20 92 22 3b 0a 32 |.. ..==|.. .";.2|
|000009a0| 32 30 20 50 52 49 4e 54 | 22 12 20 92 05 3d 3d 3d |20 PRINT|". ..===|
|000009b0| 3d 3d 3d 3d 3d 3d 1e df | 1c 12 20 20 20 20 20 20 |======..|.. |
|000009c0| 92 05 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 1e |..======|=======.|
|000009d0| df 12 1c 20 20 20 20 20 | 20 92 05 3d 3d 95 12 20 |... | ..==.. |
|000009e0| 92 22 3b 0a 32 32 35 20 | 50 52 49 4e 54 22 95 12 |.";.225 |PRINT"..|
|000009f0| 20 92 05 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ..=====|========|
|00000a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 95 12 20 92 22 3b 0a |========|=.. .";.|
|00000a20| 32 33 30 20 50 52 49 4e | 54 22 95 12 ce 20 20 20 |230 PRIN|T"... |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a50| 20 20 20 cd 92 22 3a 52 | 45 54 55 52 4e 0a | ..":R|ETURN. |
+--------+-------------------------+-------------------------+--------+--------+