home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / VIDEO-VANDAL / c64.bas
Unknown  |  2019-04-13  |  2.2 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: '0 REM JAX DISK ' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 20 20 | 20 20 20 20 4a 41 58 20 |0 REM | JAX |
|00000010| 44 49 53 4b 20 23 20 36 | 31 0a 31 20 52 45 4d 20 |DISK # 6|1.1 REM |
|00000020| 20 20 20 20 2a 2a 2a 56 | 49 44 45 4f 20 56 41 4e | ***V|IDEO VAN|
|00000030| 44 41 4c 2a 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |DAL*** | |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 57 52 49 54 54 45 | | WRITTE|
|00000050| 4e 20 42 59 20 44 41 56 | 45 20 44 55 4e 43 41 4e |N BY DAV|E DUNCAN|
|00000060| 0a 32 20 50 4f 4b 45 35 | 33 32 38 30 2c 36 3a 50 |.2 POKE5|3280,6:P|
|00000070| 4f 4b 45 35 33 32 38 31 | 2c 36 0a 33 20 50 52 49 |OKE53281|,6.3 PRI|
|00000080| 4e 54 22 93 8e 11 11 9a | 20 20 20 20 20 41 52 45 |NT".....| ARE|
|00000090| 20 59 4f 55 20 46 52 55 | 53 54 52 41 54 45 44 20 | YOU FRU|STRATED |
|000000a0| 41 54 20 43 4f 4d 50 55 | 54 45 52 20 20 20 20 20 |AT COMPU|TER |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 | | PR|
|000000c0| 4f 47 52 41 4d 4d 49 4e | 47 3f 00 0a 34 20 50 52 |OGRAMMIN|G?..4 PR|
|000000d0| 49 4e 54 22 11 11 20 20 | 54 48 45 4e 20 47 45 54 |INT".. |THEN GET|
|000000e0| 20 49 54 20 4f 55 54 20 | 4f 46 20 59 4f 55 52 20 | IT OUT |OF YOUR |
|000000f0| 53 59 53 54 45 4d 20 57 | 49 54 48 00 0a 35 20 50 |SYSTEM W|ITH..5 P|
|00000100| 52 49 4e 54 22 11 20 20 | 20 20 20 20 20 20 56 20 |RINT". | V |
|00000110| 49 20 44 20 45 20 4f 20 | 20 20 56 20 41 20 4e 20 |I D E O | V A N |
|00000120| 44 20 41 20 4c 20 20 20 | 20 20 20 20 20 20 20 20 |D A L | |
|00000130| 20 20 20 20 20 20 c5 c5 | c5 c5 c5 c5 c5 c5 c5 c5 | ..|........|
|00000140| c5 c5 c5 c5 c5 c5 c5 c5 | c5 c5 c5 c5 c5 00 0a 36 |........|.......6|
|00000150| 20 50 52 49 4e 54 22 11 | 11 20 20 20 20 55 53 45 | PRINT".|. USE|
|00000160| 20 4a 4f 59 53 54 49 43 | 4b 20 50 4f 52 54 20 32 | JOYSTIC|K PORT 2|
|00000170| 20 54 4f 20 4d 4f 56 45 | 20 55 46 4f 2e 00 0a 37 | TO MOVE| UFO...7|
|00000180| 20 50 52 49 4e 54 22 11 | 11 20 20 20 20 46 49 52 | PRINT".|. FIR|
|00000190| 45 20 42 55 54 54 4f 4e | 20 54 4f 20 5a 41 50 20 |E BUTTON| TO ZAP |
|000001a0| 42 41 44 20 50 52 4f 47 | 52 41 4d 2e 00 0a 38 20 |BAD PROG|RAM...8 |
|000001b0| 50 52 49 4e 54 22 11 11 | 20 20 49 27 4c 4c 20 4c |PRINT"..| I'LL L|
|000001c0| 49 53 54 20 54 48 45 20 | 50 52 4f 47 52 41 4d 20 |IST THE |PROGRAM |
|000001d0| 46 4f 52 20 59 4f 55 20 | 54 4f 20 5a 41 50 2e 00 |FOR YOU |TO ZAP..|
|000001e0| 0a 39 20 50 52 49 4e 54 | 22 11 11 20 20 20 50 52 |.9 PRINT|".. PR|
|000001f0| 45 53 53 20 3c 53 50 41 | 43 45 3e 20 41 4e 44 20 |ESS <SPA|CE> AND |
|00000200| 57 41 49 54 20 31 30 20 | 53 45 43 4f 4e 44 53 2e |WAIT 10 |SECONDS.|
|00000210| 00 0a 31 30 20 47 45 54 | 47 24 3a 49 46 47 24 3c |..10 GET|G$:IFG$<|
|00000220| 3e 22 20 22 54 48 45 4e | 31 30 0a 31 31 20 47 4f |>" "THEN|10.11 GO|
|00000230| 53 55 42 32 30 30 30 0a | 31 35 20 43 4d 3d 31 32 |SUB2000.|15 CM=12|
|00000240| 32 38 38 3a 43 58 3d 35 | 33 32 34 38 3a 47 4f 53 |288:CX=5|3248:GOS|
|00000250| 55 42 20 38 30 30 0a 32 | 30 20 50 4f 4b 45 20 35 |UB 800.2|0 POKE 5|
|00000260| 33 32 37 32 2c 28 50 45 | 45 4b 28 35 33 32 37 32 |3272,(PE|EK(53272|
|00000270| 29 41 4e 44 20 32 34 30 | 29 4f 52 20 31 32 0a 32 |)AND 240|)OR 12.2|
|00000280| 35 20 46 4f 52 20 49 3d | 32 34 30 20 54 4f 20 32 |5 FOR I=|240 TO 2|
|00000290| 34 37 3a 52 45 41 44 20 | 4e 3a 50 4f 4b 45 20 43 |47:READ |N:POKE C|
|000002a0| 4d 2b 49 2c 4e 3a 4e 45 | 58 54 0a 33 30 20 46 4f |M+I,N:NE|XT.30 FO|
|000002b0| 52 20 49 3d 38 30 30 20 | 54 4f 20 38 30 37 3a 52 |R I=800 |TO 807:R|
|000002c0| 45 41 44 20 4e 3a 50 4f | 4b 45 20 43 4d 2b 49 2c |EAD N:PO|KE CM+I,|
|000002d0| 4e 3a 4e 45 58 54 0a 33 | 35 20 46 4f 52 20 49 3d |N:NEXT.3|5 FOR I=|
|000002e0| 38 30 38 20 54 4f 20 38 | 31 35 3a 52 45 41 44 20 |808 TO 8|15:READ |
|000002f0| 4e 3a 50 4f 4b 45 20 43 | 4d 2b 49 2c 4e 3a 4e 45 |N:POKE C|M+I,N:NE|
|00000300| 58 54 0a 31 30 30 20 58 | 3d 31 39 38 34 3a 5a 3d |XT.100 X|=1984:Z=|
|00000310| 30 3a 41 20 3d 31 39 0a | 31 30 32 20 46 4f 52 20 |0:A =19.|102 FOR |
|00000320| 44 3d 30 20 54 4f 20 31 | 0a 31 30 35 20 46 3d 58 |D=0 TO 1|.105 F=X|
|00000330| 2b 41 0a 31 31 30 20 52 | 3d 50 45 45 4b 28 35 36 |+A.110 R|=PEEK(56|
|00000340| 33 32 30 29 41 4e 44 32 | 38 0a 31 31 35 20 49 46 |320)AND2|8.115 IF|
|00000350| 20 28 52 20 41 4e 44 20 | 31 36 29 3d 30 20 54 48 | (R AND |16)=0 TH|
|00000360| 45 4e 20 47 4f 53 55 42 | 20 37 30 30 0a 31 32 30 |EN GOSUB| 700.120|
|00000370| 20 49 46 20 28 52 20 41 | 4e 44 20 38 29 3d 30 20 | IF (R A|ND 8)=0 |
|00000380| 54 48 45 4e 20 41 3d 41 | 2b 31 0a 31 32 35 20 49 |THEN A=A|+1.125 I|
|00000390| 46 20 28 52 20 41 4e 44 | 34 29 3d 30 20 54 48 45 |F (R AND|4)=0 THE|
|000003a0| 4e 20 41 3d 41 2d 31 0a | 31 32 37 20 49 46 20 41 |N A=A-1.|127 IF A|
|000003b0| 3c 30 20 54 48 45 4e 20 | 41 3d 33 39 0a 31 32 39 |<0 THEN |A=39.129|
|000003c0| 20 49 46 20 41 3e 33 39 | 20 54 48 45 4e 20 41 3d | IF A>39| THEN A=|
|000003d0| 30 0a 31 33 30 20 50 4f | 4b 45 20 46 2c 33 32 3a |0.130 PO|KE F,32:|
|000003e0| 50 4f 4b 45 20 58 2b 41 | 2c 31 30 30 2b 44 3a 50 |POKE X+A|,100+D:P|
|000003f0| 4f 4b 45 58 2b 41 2b 35 | 34 32 37 32 2c 37 3a 4e |OKEX+A+5|4272,7:N|
|00000400| 45 58 54 0a 31 33 35 20 | 47 4f 54 4f 20 31 30 32 |EXT.135 |GOTO 102|
|00000410| 0a 37 30 30 20 51 31 3d | 58 2b 41 0a 37 30 35 20 |.700 Q1=|X+A.705 |
|00000420| 51 31 3d 51 31 2d 34 30 | 3a 49 46 20 51 31 3c 31 |Q1=Q1-40|:IF Q1<1|
|00000430| 30 32 34 20 54 48 45 4e | 20 50 4f 4b 45 35 33 32 |024 THEN| POKE532|
|00000440| 38 31 2c 37 3a 50 4f 4b | 45 35 33 32 38 30 2c 37 |81,7:POK|E53280,7|
|00000450| 3a 47 4f 53 55 42 32 30 | 33 30 3a 47 4f 54 4f 20 |:GOSUB20|30:GOTO |
|00000460| 37 33 30 0a 37 30 36 20 | 49 46 51 31 3d 31 30 36 |730.706 |IFQ1=106|
|00000470| 34 54 48 45 4e 50 4f 4b | 45 35 33 32 38 31 2c 37 |4THENPOK|E53281,7|
|00000480| 0a 37 30 37 20 49 46 20 | 50 45 45 4b 28 51 31 29 |.707 IF |PEEK(Q1)|
|00000490| 3c 3e 33 32 20 54 48 45 | 4e 20 5a 3d 31 0a 37 31 |<>32 THE|N Z=1.71|
|000004a0| 30 20 50 4f 4b 45 20 51 | 31 2c 33 30 3a 49 46 20 |0 POKE Q|1,30:IF |
|000004b0| 5a 3d 31 20 54 48 45 4e | 20 5a 3d 30 3a 50 4f 4b |Z=1 THEN| Z=0:POK|
|000004c0| 45 20 35 33 32 38 31 2c | 32 3a 50 4f 4b 45 20 35 |E 53281,|2:POKE 5|
|000004d0| 33 32 38 30 2c 32 3a 47 | 4f 54 4f 20 37 33 30 0a |3280,2:G|OTO 730.|
|000004e0| 37 31 35 20 47 4f 54 4f | 20 37 30 35 0a 37 33 30 |715 GOTO| 705.730|
|000004f0| 20 47 4f 53 55 42 31 30 | 30 30 3a 51 32 3d 58 2b | GOSUB10|00:Q2=X+|
|00000500| 41 0a 37 33 35 20 51 32 | 3d 51 32 2d 34 30 3a 49 |A.735 Q2|=Q2-40:I|
|00000510| 46 20 51 32 3d 51 31 20 | 54 48 45 4e 20 5a 3d 31 |F Q2=Q1 |THEN Z=1|
|00000520| 0a 37 34 30 20 50 4f 4b | 45 20 51 32 2c 33 32 3a |.740 POK|E Q2,32:|
|00000530| 49 46 20 5a 09 0a 37 34 | 35 20 47 4f 54 4f 20 37 |IF Z..74|5 GOTO 7|
|00000540| 33 35 0a 38 30 30 20 50 | 4f 4b 45 20 35 36 33 33 |35.800 P|OKE 5633|
|00000550| 34 2c 50 45 45 4b 28 35 | 36 33 33 34 29 41 4e 44 |4,PEEK(5|6334)AND|
|00000560| 20 32 35 34 0a 38 30 35 | 20 50 4f 4b 45 20 31 2c | 254.805| POKE 1,|
|00000570| 50 45 45 4b 28 31 29 41 | 4e 44 20 32 35 31 0a 38 |PEEK(1)A|ND 251.8|
|00000580| 31 30 20 46 4f 52 20 49 | 3d 30 20 54 4f 20 31 30 |10 FOR I|=0 TO 10|
|00000590| 32 33 3a 50 4f 4b 45 20 | 43 4d 2b 49 2c 50 45 45 |23:POKE |CM+I,PEE|
|000005a0| 4b 28 43 58 2b 49 29 3a | 4e 45 58 54 0a 38 31 35 |K(CX+I):|NEXT.815|
|000005b0| 20 50 4f 4b 45 20 31 2c | 50 45 45 4b 28 31 29 4f | POKE 1,|PEEK(1)O|
|000005c0| 52 20 34 0a 38 32 30 20 | 50 4f 4b 45 20 35 36 33 |R 4.820 |POKE 563|
|000005d0| 33 34 2c 50 45 45 4b 28 | 35 36 33 33 34 29 4f 52 |34,PEEK(|56334)OR|
|000005e0| 20 31 0a 38 32 35 20 52 | 45 54 55 52 4e 0a 38 39 | 1.825 R|ETURN.89|
|000005f0| 39 20 52 45 4d 20 4c 49 | 47 48 54 4e 49 4e 47 20 |9 REM LI|GHTNING |
|00000600| 42 4f 4c 54 0a 39 30 30 | 20 44 41 54 41 20 31 36 |BOLT.900| DATA 16|
|00000610| 2c 31 36 2c 33 32 2c 31 | 32 30 2c 34 2c 38 2c 38 |,16,32,1|20,4,8,8|
|00000620| 2c 38 0a 39 30 39 20 52 | 45 4d 20 55 46 4f 20 31 |,8.909 R|EM UFO 1|
|00000630| 0a 39 31 30 20 44 41 54 | 41 20 30 2c 32 34 2c 31 |.910 DAT|A 0,24,1|
|00000640| 32 36 2c 32 35 35 2c 31 | 37 31 2c 32 35 35 2c 33 |26,255,1|71,255,3|
|00000650| 36 2c 30 0a 39 31 39 20 | 52 45 4d 20 55 46 4f 20 |6,0.919 |REM UFO |
|00000660| 32 0a 39 32 30 20 44 41 | 54 41 20 30 2c 32 34 2c |2.920 DA|TA 0,24,|
|00000670| 31 32 36 2c 32 35 35 2c | 32 31 33 2c 32 35 35 2c |126,255,|213,255,|
|00000680| 33 36 2c 30 0a 31 30 30 | 30 20 50 4f 4b 45 20 35 |36,0.100|0 POKE 5|
|00000690| 34 32 39 36 2c 31 35 0a | 31 30 31 30 20 50 4f 4b |4296,15.|1010 POK|
|000006a0| 45 20 35 34 32 37 37 2c | 32 34 3a 50 4f 4b 45 20 |E 54277,|24:POKE |
|000006b0| 35 34 32 37 38 2c 32 33 | 37 0a 31 30 32 30 20 50 |54278,23|7.1020 P|
|000006c0| 4f 4b 45 20 35 34 32 38 | 34 2c 32 34 3a 50 4f 4b |OKE 5428|4,24:POK|
|000006d0| 45 20 35 34 32 38 35 2c | 32 33 37 0a 31 30 33 30 |E 54285,|237.1030|
|000006e0| 20 50 4f 4b 45 20 35 34 | 32 37 36 2c 31 32 39 3a | POKE 54|276,129:|
|000006f0| 50 4f 4b 45 20 35 34 32 | 38 33 2c 31 32 39 0a 31 |POKE 542|83,129.1|
|00000700| 30 34 30 20 50 4f 4b 45 | 20 35 34 32 37 32 2c 49 |040 POKE| 54272,I|
|00000710| 4e 54 28 52 4e 44 28 31 | 29 2a 35 30 29 0a 31 30 |NT(RND(1|)*50).10|
|00000720| 35 30 20 50 4f 4b 45 20 | 35 34 32 37 33 2c 49 4e |50 POKE |54273,IN|
|00000730| 54 28 52 4e 44 28 31 29 | 2a 34 29 2b 31 0a 31 30 |T(RND(1)|*4)+1.10|
|00000740| 36 30 20 50 4f 4b 45 20 | 35 34 32 37 39 2c 49 4e |60 POKE |54279,IN|
|00000750| 54 28 52 4e 44 28 31 29 | 2a 35 30 29 2b 35 30 0a |T(RND(1)|*50)+50.|
|00000760| 31 30 37 30 20 50 4f 4b | 45 20 35 34 32 38 30 2c |1070 POK|E 54280,|
|00000770| 49 4e 54 28 52 4e 44 28 | 31 29 2a 34 29 2b 35 0a |INT(RND(|1)*4)+5.|
|00000780| 31 30 38 30 20 50 4f 4b | 45 20 35 34 32 37 36 2c |1080 POK|E 54276,|
|00000790| 31 32 38 3a 50 4f 4b 45 | 09 0a 32 30 30 30 20 50 |128:POKE|..2000 P|
|000007a0| 4f 4b 45 37 36 38 2c 31 | 37 34 3a 50 4f 4b 45 37 |OKE768,1|74:POKE7|
|000007b0| 36 39 2c 31 36 37 3a 4c | 49 53 54 31 30 2d 37 30 |69,167:L|IST10-70|
|000007c0| 30 3a 50 4f 4b 45 37 36 | 38 2c 31 33 39 3a 50 4f |0:POKE76|8,139:PO|
|000007d0| 4b 45 37 36 39 2c 32 32 | 37 3a 52 45 54 55 52 4e |KE769,22|7:RETURN|
|000007e0| 0a 32 30 31 30 20 52 45 | 4d 20 20 20 4c 49 4e 45 |.2010 RE|M LINE|
|000007f0| 20 32 30 30 30 20 4c 49 | 53 54 53 20 54 48 45 20 | 2000 LI|STS THE |
|00000800| 50 52 4f 47 52 41 4d 20 | 20 20 20 20 20 20 20 20 |PROGRAM | |
|00000810| 20 20 20 20 54 48 45 4e | 20 47 4f 45 53 20 42 41 | THEN| GOES BA|
|00000820| 43 4b 20 54 4f 20 52 55 | 4e 4e 49 4e 47 2e 0a 32 |CK TO RU|NNING..2|
|00000830| 30 33 30 20 50 52 49 4e | 54 22 13 11 11 11 20 20 |030 PRIN|T".... |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000860| 20 20 20 20 20 20 22 3b | 0a 32 30 33 35 20 50 52 | ";|.2035 PR|
|00000870| 49 4e 54 22 05 20 20 20 | 57 4f 57 21 21 20 20 41 |INT". |WOW!! A|
|00000880| 20 50 52 4f 47 52 41 4d | 49 4e 47 20 42 52 45 41 | PROGRAM|ING BREA|
|00000890| 4b 54 48 52 4f 55 47 48 | 21 20 20 20 20 22 3b 0a |KTHROUGH|! ";.|
|000008a0| 32 30 34 30 20 50 52 49 | 4e 54 22 20 20 20 20 20 |2040 PRI|NT" |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008d0| 20 20 20 22 3b 3a 52 45 | 54 55 52 4e 0a | ";:RE|TURN. |
+--------+-------------------------+-------------------------+--------+--------+