home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / ARROW / c64.bas
Unknown  |  2019-04-13  |  1.3 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 ' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 22 41 | 52 52 4f 57 22 0a 31 20 |0 REM "A|RROW".1 |
|00000010| 50 4f 4b 45 35 34 32 37 | 37 2c 31 39 30 0a 32 20 |POKE5427|7,190.2 |
|00000020| 50 4f 4b 45 35 34 32 37 | 38 2c 32 34 38 0a 33 20 |POKE5427|8,248.3 |
|00000030| 50 4f 4b 45 35 34 32 37 | 36 2c 31 37 0a 34 20 50 |POKE5427|6,17.4 P|
|00000040| 4f 4b 45 35 33 32 38 30 | 2c 30 0a 35 20 50 4f 4b |OKE53280|,0.5 POK|
|00000050| 45 35 33 32 38 31 2c 30 | 0a 31 30 30 20 50 52 49 |E53281,0|.100 PRI|
|00000060| 4e 54 22 93 11 12 20 41 | 52 52 4f 57 20 92 20 20 |NT"... A|RROW .  |
|00000070| 20 20 4a 49 4d 20 42 55 | 54 54 45 52 46 49 45 4c |  JIM BU|TTERFIEL|
|00000080| 44 22 0a 31 30 31 20 50 | 52 49 4e 54 22 11 12 20 |D".101 P|RINT".. |
|00000090| 30 37 2f 31 35 2f 38 33 | 20 92 20 20 20 20 41 44 |07/15/83| .    AD|
|000000a0| 41 50 54 45 44 20 54 4f | 20 54 48 45 20 43 2d 36 |APTED TO| THE C-6|
|000000b0| 34 00 0a 31 30 32 20 50 | 52 49 4e 54 22 11 12 20 |4..102 P|RINT".. |
|000000c0| 30 37 2f 31 35 2f 38 33 | 20 92 20 20 20 20 41 44 |07/15/83| .    AD|
|000000d0| 44 45 44 20 4a 4f 59 53 | 54 49 43 4b 20 4f 50 54 |DED JOYS|TICK OPT|
|000000e0| 49 4f 4e 00 0a 31 30 36 | 20 50 52 49 4e 54 22 20 |ION..106| PRINT" |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |        |       R|
|00000100| 49 43 4b 20 43 52 4f 4e | 45 00 0a 31 30 37 20 50 |ICK CRON|E..107 P|
|00000110| 52 49 4e 54 22 20 20 20 | 20 20 20 20 20 20 20 20 |RINT"   |        |
|00000120| 20 20 20 20 20 31 31 31 | 20 47 52 45 45 4e 42 52 |     111| GREENBR|
|00000130| 49 41 52 20 4c 4e 2e 00 | 0a 31 30 38 20 50 52 49 |IAR LN..|.108 PRI|
|00000140| 4e 54 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |NT"     |        |
|00000150| 20 20 20 4a 41 43 4b 53 | 4f 4e 20 54 4e 2e 20 33 |   JACKS|ON TN. 3|
|00000160| 38 33 30 35 00 0a 31 30 | 39 20 50 52 49 4e 54 22 |8305..10|9 PRINT"|
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 28 39 30 31 29 20 36 36 | 38 2d 38 39 35 38 00 0a |(901) 66|8-8958..|
|00000190| 31 31 30 20 50 52 49 4e | 54 0a 31 32 30 20 50 52 |110 PRIN|T.120 PR|
|000001a0| 49 4e 54 22 11 47 55 49 | 44 45 20 54 48 45 20 4d |INT".GUI|DE THE M|
|000001b0| 4f 56 49 4e 47 20 27 53 | 4e 41 4b 45 27 20 57 49 |OVING 'S|NAKE' WI|
|000001c0| 54 48 20 4b 45 59 53 3a | 22 0a 31 33 30 20 50 52 |TH KEYS:|".130 PR|
|000001d0| 49 4e 54 22 20 32 28 44 | 4f 57 4e 29 2c 20 34 28 |INT" 2(D|OWN), 4(|
|000001e0| 4c 45 46 54 29 2c 20 36 | 28 52 49 47 48 54 29 2c |LEFT), 6|(RIGHT),|
|000001f0| 20 38 28 55 50 29 22 0a | 31 34 30 20 50 52 49 4e | 8(UP)".|140 PRIN|
|00000200| 54 22 11 44 4f 4e 27 54 | 20 48 49 54 20 54 48 45 |T".DON'T| HIT THE|
|00000210| 20 42 4f 55 4e 44 41 52 | 59 20 28 4f 52 20 59 4f | BOUNDAR|Y (OR YO|
|00000220| 55 52 53 45 4c 46 29 3b | 22 0a 31 35 30 20 50 52 |URSELF);|".150 PR|
|00000230| 49 4e 54 22 2e 2e 54 52 | 59 20 54 4f 20 48 49 54 |INT"..TR|Y TO HIT|
|00000240| 20 54 48 45 20 42 4f 58 | 45 53 20 46 4f 52 20 50 | THE BOX|ES FOR P|
|00000250| 4f 49 4e 54 53 2e 22 0a | 31 36 30 20 50 52 49 4e |OINTS.".|160 PRIN|
|00000260| 54 22 11 59 4f 55 20 48 | 41 56 45 20 36 30 20 53 |T".YOU H|AVE 60 S|
|00000270| 45 43 4f 4e 44 53 20 4f | 46 20 50 4c 41 59 2e 20 |ECONDS O|F PLAY. |
|00000280| 47 4f 4f 44 20 4c 55 43 | 4b 21 22 0a 31 37 30 20 |GOOD LUC|K!".170 |
|00000290| 50 52 49 4e 54 22 11 20 | 20 20 20 20 20 4a 20 12 |PRINT". |     J .|
|000002a0| 4a 4f 59 53 54 49 43 4b | 92 20 20 20 20 20 20 20 |JOYSTICK|.       |
|000002b0| 4b 20 12 4b 45 59 42 4f | 41 52 44 00 0a 31 38 30 |K .KEYBO|ARD..180|
|000002c0| 20 47 45 54 5a 24 3a 49 | 46 5a 24 3d 22 22 47 4f | GETZ$:I|FZ$=""GO|
|000002d0| 54 4f 31 38 30 0a 31 38 | 31 20 49 46 5a 24 3d 22 |TO180.18|1 IFZ$="|
|000002e0| 4a 22 54 48 45 4e 50 43 | 3d 31 3a 47 4f 54 4f 31 |J"THENPC|=1:GOTO1|
|000002f0| 39 30 3a 52 45 4d 20 50 | 43 20 49 53 20 50 52 4f |90:REM P|C IS PRO|
|00000300| 43 45 53 53 20 43 4f 44 | 45 20 46 4f 52 20 53 55 |CESS COD|E FOR SU|
|00000310| 42 52 4f 55 54 49 4e 45 | 20 53 45 4c 45 43 54 49 |BROUTINE| SELECTI|
|00000320| 4f 4e 0a 31 38 32 20 49 | 46 5a 24 3d 22 4b 22 54 |ON.182 I|FZ$="K"T|
|00000330| 48 45 4e 50 43 3d 30 3a | 47 4f 54 4f 31 39 30 0a |HENPC=0:|GOTO190.|
|00000340| 31 38 33 20 47 4f 54 4f | 31 38 30 0a 31 39 30 20 |183 GOTO|180.190 |
|00000350| 44 49 4d 50 28 32 35 35 | 29 2c 44 28 33 29 2c 56 |DIMP(255|),D(3),V|
|00000360| 28 38 29 2c 48 28 38 29 | 2c 54 28 38 29 2c 52 28 |(8),H(8)|,T(8),R(|
|00000370| 38 29 3a 4b 3d 2e 31 0a | 32 30 30 20 44 28 30 29 |8):K=.1.|200 D(0)|
|00000380| 3d 32 32 3a 44 28 31 29 | 3d 36 30 3a 44 28 32 29 |=22:D(1)|=60:D(2)|
|00000390| 3d 36 32 3a 44 28 33 29 | 3d 33 30 0a 32 31 30 20 |=62:D(3)|=30.210 |
|000003a0| 54 39 3d 31 30 32 34 3a | 54 36 3d 33 35 39 39 3a |T9=1024:|T6=3599:|
|000003b0| 50 52 49 4e 54 43 48 52 | 24 28 31 34 29 3a 50 52 |PRINTCHR|$(14):PR|
|000003c0| 49 4e 54 43 48 52 24 28 | 38 29 0a 32 32 30 20 4d |INTCHR$(|8).220 M|
|000003d0| 31 3d 35 34 32 39 36 3a | 4d 32 3d 35 34 32 37 33 |1=54296:|M2=54273|
|000003e0| 3a 4d 33 3d 35 32 32 37 | 32 0a 32 33 30 20 50 4f |:M3=5227|2.230 PO|
|000003f0| 4b 45 35 33 32 38 31 2c | 31 33 3a 50 52 49 4e 54 |KE53281,|13:PRINT|
|00000400| 22 8e 93 20 20 20 53 43 | 4f 52 45 3a 20 30 22 3a |"..   SC|ORE: 0":|
|00000410| 50 52 49 4e 54 22 41 22 | 3a 50 4f 4b 45 35 33 32 |PRINT"A"|:POKE532|
|00000420| 38 31 2c 38 30 0a 32 34 | 30 20 46 4f 52 4a 3d 30 |81,80.24|0 FORJ=0|
|00000430| 54 4f 38 31 3a 49 46 50 | 45 45 4b 28 54 39 2b 4a |TO81:IFP|EEK(T9+J|
|00000440| 29 3c 3e 31 54 48 45 4e | 4e 45 58 54 4a 0a 32 35 |)<>1THEN|NEXTJ.25|
|00000450| 30 20 4c 3d 4a 3a 46 4f | 52 4a 3d 54 39 2b 4c 54 |0 L=J:FO|RJ=T9+LT|
|00000460| 4f 54 39 2b 32 2a 4c 2d | 31 3a 50 4f 4b 45 4a 2c |OT9+2*L-|1:POKEJ,|
|00000470| 38 31 3a 50 4f 4b 45 4a | 2b 32 33 2a 4c 2c 38 31 |81:POKEJ|+23*L,81|
|00000480| 3a 4e 45 58 54 4a 0a 32 | 36 30 20 46 4f 52 4a 3d |:NEXTJ.2|60 FORJ=|
|00000490| 54 39 2b 32 2a 4c 54 4f | 54 39 2b 32 34 2a 4c 53 |T9+2*LTO|T9+24*LS|
|000004a0| 54 45 50 4c 3a 50 4f 4b | 45 4a 2c 38 31 3a 50 4f |TEPL:POK|EJ,81:PO|
|000004b0| 4b 45 4a 2b 4c 2d 31 2c | 38 31 3a 4e 45 58 54 0a |KEJ+L-1,|81:NEXT.|
|000004c0| 32 37 30 20 56 3d 35 3a | 48 3d 35 3a 56 31 3d 30 |270 V=5:|H=5:V1=0|
|000004d0| 3a 48 31 3d 31 3a 50 32 | 3d 31 30 3a 44 31 3d 32 |:H1=1:P2|=10:D1=2|
|000004e0| 0a 32 38 30 20 54 49 24 | 3d 22 30 30 30 30 30 30 |.280 TI$|="000000|
|000004f0| 22 0a 32 39 30 20 50 52 | 49 4e 54 22 13 22 3b 52 |".290 PR|INT".";R|
|00000500| 49 47 48 54 24 28 54 49 | 24 2c 32 29 3a 49 46 54 |IGHT$(TI|$,2):IFT|
|00000510| 49 3e 54 36 47 4f 54 4f | 36 32 30 0a 33 30 30 20 |I>T6GOTO|620.300 |
|00000520| 49 46 50 43 3d 30 54 48 | 45 4e 47 45 54 5a 24 3a |IFPC=0TH|ENGETZ$:|
|00000530| 49 46 5a 24 3d 22 22 47 | 4f 54 4f 33 33 30 09 0a |IFZ$=""G|OTO330..|
+--------+-------------------------+-------------------------+--------+--------+