home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / COLLISION DEMO 2.bas < prev    next >
BASIC Source File  |  1990-01-01  |  558 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: BASIC Source File (text/bas).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert BASIC Source File (text/bas) magic Supported
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Memotech MTX BASIC source (document/memotechMTXBASICSource) ext Unsupported
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
1% dexvert Text File (text/txt) fallback Supported
100% file ASCII text default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 50 4f 4b 45 | 20 37 36 38 2c 31 3a 20 |10 POKE| 768,1: |
|00000010| 50 4f 4b 45 20 37 36 39 | 2c 30 3a 20 50 4f 4b 45 |POKE 769|,0: POKE|
|00000020| 20 37 37 30 2c 34 0a 32 | 30 20 20 50 4f 4b 45 20 | 770,4.2|0 POKE |
|00000030| 37 37 31 2c 30 3a 20 50 | 4f 4b 45 20 37 37 32 2c |771,0: P|OKE 772,|
|00000040| 34 3a 20 50 4f 4b 45 20 | 37 37 33 2c 30 0a 33 30 |4: POKE |773,0.30|
|00000050| 20 20 50 4f 4b 45 20 32 | 33 32 2c 30 3a 20 50 4f | POKE 2|32,0: PO|
|00000060| 4b 45 20 32 33 33 2c 33 | 3a 20 52 45 4d 20 20 24 |KE 233,3|: REM $|
|00000070| 45 38 2c 45 39 3d 24 33 | 30 30 0a 34 30 20 20 48 |E8,E9=$3|00.40 H|
|00000080| 47 52 20 3a 20 48 43 4f | 4c 4f 52 3d 20 33 0a 35 |GR : HCO|LOR= 3.5|
|00000090| 30 20 20 48 4f 4d 45 20 | 0a 36 30 20 20 47 4f 53 |0 HOME |.60 GOS|
|000000a0| 55 42 20 31 38 30 0a 37 | 30 20 20 52 45 4d 20 20 |UB 180.7|0 REM |
|000000b0| 27 58 44 52 41 57 27 20 | 53 43 41 4e 4e 45 52 0a |'XDRAW' |SCANNER.|
|000000c0| 38 30 20 20 53 43 41 4c | 45 3d 20 38 30 0a 39 30 |80 SCAL|E= 80.90|
|000000d0| 20 20 46 4f 52 20 52 20 | 3d 20 30 20 54 4f 20 36 | FOR R |= 0 TO 6|
|000000e0| 33 0a 31 30 30 20 20 52 | 4f 54 3d 20 52 0a 31 31 |3.100 R|OT= R.11|
|000000f0| 30 20 20 58 44 52 41 57 | 20 31 20 41 54 20 31 34 |0 XDRAW| 1 AT 14|
|00000100| 30 2c 38 30 3a 20 52 45 | 4d 20 20 58 44 52 41 57 |0,80: RE|M XDRAW|
|00000110| 20 31 53 54 20 49 4d 41 | 47 45 0a 31 32 30 20 20 | 1ST IMA|GE.120 |
|00000120| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 32 35 3a |FOR I = |1 TO 25:|
|00000130| 20 4e 45 58 54 20 49 3a | 20 52 45 4d 20 20 44 45 | NEXT I:| REM DE|
|00000140| 4c 41 59 20 4c 4f 4f 50 | 0a 31 33 30 20 20 58 44 |LAY LOOP|.130 XD|
|00000150| 52 41 57 20 31 20 41 54 | 20 31 34 30 2c 38 30 3a |RAW 1 AT| 140,80:|
|00000160| 20 52 45 4d 20 20 27 45 | 52 41 53 45 27 20 49 4d | REM 'E|RASE' IM|
|00000170| 41 47 45 0a 31 34 30 20 | 20 56 54 41 42 20 32 32 |AGE.140 | VTAB 22|
|00000180| 3a 20 50 52 49 4e 54 20 | 20 50 45 45 4b 28 32 33 |: PRINT | PEEK(23|
|00000190| 34 29 3b 22 20 20 22 0a | 31 35 30 20 20 49 46 20 |4);" ".|150 IF |
|000001a0| 20 50 45 45 4b 28 32 33 | 34 29 20 3e 30 20 20 54 | PEEK(23|4) >0 T|
|000001b0| 48 45 4e 20 20 47 45 54 | 20 41 24 3a 20 49 46 20 |HEN GET| A$: IF |
|000001c0| 41 24 20 3d 20 22 58 22 | 20 20 54 48 45 4e 20 0a |A$ = "X"| THEN .|
|000001d0| 31 36 30 20 20 4e 45 58 | 54 20 52 0a 31 37 30 20 |160 NEX|T R.170 |
|000001e0| 20 47 4f 54 4f 20 39 30 | 0a 31 38 30 20 20 52 45 | GOTO 90|.180 RE|
|000001f0| 4d 20 20 43 52 45 41 54 | 45 20 46 49 45 4c 44 0a |M CREAT|E FIELD.|
|00000200| 31 39 30 20 20 48 50 4c | 4f 54 20 31 34 30 2c 31 |190 HPL|OT 140,1|
|00000210| 30 30 3a 20 48 50 4c 4f | 54 20 31 34 30 2c 31 30 |00: HPLO|T 140,10|
|00000220| 31 0a 32 30 30 20 20 52 | 45 54 55 52 4e 20 |1.200 R|ETURN |
+--------+-------------------------+-------------------------+--------+--------+