home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SINGLE DOT SHAPE TABLE DEMO.bas < prev    next >
BASIC Source File  |  1990-01-01  |  1006 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| 30 20 20 52 45 4d 20 20 | 42 4f 58 20 44 45 4d 4f |0 REM |BOX DEMO|
|00000010| 0a 35 20 20 52 45 4d 20 | 20 50 4f 4b 45 20 27 44 |.5 REM | POKE 'D|
|00000020| 4f 54 27 20 53 48 41 50 | 45 20 54 41 42 4c 45 0a |OT' SHAP|E TABLE.|
|00000030| 31 30 20 20 50 4f 4b 45 | 20 37 36 38 2c 31 3a 20 |10 POKE| 768,1: |
|00000040| 50 4f 4b 45 20 37 36 39 | 2c 30 3a 20 50 4f 4b 45 |POKE 769|,0: POKE|
|00000050| 20 37 37 30 2c 34 0a 31 | 35 20 20 50 4f 4b 45 20 | 770,4.1|5 POKE |
|00000060| 37 37 31 2c 30 3a 20 50 | 4f 4b 45 20 37 37 32 2c |771,0: P|OKE 772,|
|00000070| 34 3a 20 50 4f 4b 45 20 | 37 37 33 2c 30 0a 32 30 |4: POKE |773,0.20|
|00000080| 20 20 50 4f 4b 45 20 32 | 33 32 2c 30 3a 20 50 4f | POKE 2|32,0: PO|
|00000090| 4b 45 20 32 33 33 2c 33 | 3a 20 52 45 4d 20 20 24 |KE 233,3|: REM $|
|000000a0| 45 38 2c 45 39 3d 24 33 | 30 30 0a 32 35 20 20 48 |E8,E9=$3|00.25 H|
|000000b0| 47 52 20 3a 20 48 43 4f | 4c 4f 52 3d 20 33 0a 33 |GR : HCO|LOR= 3.3|
|000000c0| 30 20 20 47 4f 53 55 42 | 20 32 30 30 0a 33 35 20 |0 GOSUB| 200.35 |
|000000d0| 58 20 3d 20 31 34 30 3a | 59 20 3d 20 38 30 3a 20 |X = 140:|Y = 80: |
|000000e0| 52 45 4d 20 20 53 54 41 | 52 54 49 4e 47 20 50 4f |REM STA|RTING PO|
|000000f0| 53 49 54 49 4f 4e 0a 34 | 30 20 48 20 3d 20 35 30 |SITION.4|0 H = 50|
|00000100| 3a 57 20 3d 20 37 35 3a | 20 52 45 4d 20 20 48 45 |:W = 75:| REM HE|
|00000110| 49 47 48 54 2c 20 57 49 | 44 54 48 0a 31 30 30 20 |IGHT, WI|DTH.100 |
|00000120| 20 52 45 4d 20 20 44 52 | 41 57 20 46 52 41 4d 45 | REM DR|AW FRAME|
|00000130| 0a 31 30 35 20 20 52 4f | 54 3d 20 31 36 3a 20 53 |.105 RO|T= 16: S|
|00000140| 43 41 4c 45 3d 20 57 0a | 31 31 30 20 20 58 44 52 |CALE= W.|110 XDR|
|00000150| 41 57 20 31 20 41 54 20 | 58 2c 59 0a 31 31 35 20 |AW 1 AT |X,Y.115 |
|00000160| 20 58 44 52 41 57 20 31 | 20 41 54 20 58 2c 59 20 | XDRAW 1| AT X,Y |
|00000170| 2b 48 0a 31 32 30 20 20 | 52 4f 54 3d 20 33 32 3a |+H.120 |ROT= 32:|
|00000180| 20 53 43 41 4c 45 3d 20 | 48 0a 31 32 35 20 20 58 | SCALE= |H.125 X|
|00000190| 44 52 41 57 20 31 20 41 | 54 20 58 2c 59 0a 31 33 |DRAW 1 A|T X,Y.13|
|000001a0| 30 20 20 58 44 52 41 57 | 20 31 20 41 54 20 58 20 |0 XDRAW| 1 AT X |
|000001b0| 2b 57 2c 59 0a 31 33 35 | 20 20 47 45 54 20 41 24 |+W,Y.135| GET A$|
|000001c0| 0a 31 34 30 20 20 52 4f | 54 3d 20 31 36 3a 20 53 |.140 RO|T= 16: S|
|000001d0| 43 41 4c 45 3d 20 57 0a | 31 34 35 20 20 58 44 52 |CALE= W.|145 XDR|
|000001e0| 41 57 20 31 20 41 54 20 | 58 2c 59 0a 31 35 30 20 |AW 1 AT |X,Y.150 |
|000001f0| 20 58 44 52 41 57 20 31 | 20 41 54 20 58 2c 59 20 | XDRAW 1| AT X,Y |
|00000200| 2b 48 0a 31 35 35 20 20 | 52 4f 54 3d 20 33 32 3a |+H.155 |ROT= 32:|
|00000210| 20 53 43 41 4c 45 3d 20 | 48 0a 31 36 30 20 20 58 | SCALE= |H.160 X|
|00000220| 44 52 41 57 20 31 20 41 | 54 20 58 2c 59 0a 31 36 |DRAW 1 A|T X,Y.16|
|00000230| 35 20 20 58 44 52 41 57 | 20 31 20 41 54 20 58 20 |5 XDRAW| 1 AT X |
|00000240| 2b 57 2c 59 0a 31 37 30 | 20 20 49 46 20 41 24 20 |+W,Y.170| IF A$ |
|00000250| 3d 20 20 43 48 52 24 28 | 38 29 20 20 54 48 45 4e |= CHR$(|8) THEN|
|00000260| 20 58 20 3d 20 58 20 2d | 31 3a 20 49 46 20 58 20 | X = X -|1: IF X |
|00000270| 3c 30 20 20 54 48 45 4e | 20 58 20 3d 20 30 0a 31 |<0 THEN| X = 0.1|
|00000280| 37 35 20 20 49 46 20 41 | 24 20 3d 20 20 43 48 52 |75 IF A|$ = CHR|
|00000290| 24 28 32 31 29 20 20 54 | 48 45 4e 20 58 20 3d 20 |$(21) T|HEN X = |
|000002a0| 58 20 2b 31 3a 20 49 46 | 20 58 20 2b 57 20 3e 32 |X +1: IF| X +W >2|
|000002b0| 37 39 20 20 54 48 45 4e | 20 58 20 2d 32 37 39 20 |79 THEN| X -279 |
|000002c0| 2d 57 0a 31 38 30 20 20 | 49 46 20 41 24 20 3d 20 |-W.180 |IF A$ = |
|000002d0| 20 43 48 52 24 28 31 30 | 29 20 20 54 48 45 4e 20 | CHR$(10|) THEN |
|000002e0| 59 20 3d 20 59 20 2b 31 | 3a 20 49 46 20 59 20 2b |Y = Y +1|: IF Y +|
|000002f0| 48 20 3e 31 35 39 20 20 | 54 48 45 4e 20 59 20 3d |H >159 |THEN Y =|
|00000300| 20 31 35 39 20 2d 48 0a | 31 38 35 20 20 49 46 20 | 159 -H.|185 IF |
|00000310| 41 24 20 3d 20 20 43 48 | 52 24 28 31 31 29 20 20 |A$ = CH|R$(11) |
|00000320| 54 48 45 4e 20 59 20 3d | 20 59 20 2d 31 3a 20 49 |THEN Y =| Y -1: I|
|00000330| 46 20 59 20 3c 30 20 20 | 54 48 45 4e 20 59 20 3d |F Y <0 |THEN Y =|
|00000340| 20 30 0a 31 39 30 20 20 | 49 46 20 41 24 20 3d 20 | 0.190 |IF A$ = |
|00000350| 22 51 22 20 20 54 48 45 | 4e 20 20 54 45 58 54 20 |"Q" THE|N TEXT |
|00000360| 3a 20 45 4e 44 20 0a 31 | 39 35 20 20 47 4f 54 4f |: END .1|95 GOTO|
|00000370| 20 31 30 35 0a 32 30 30 | 20 20 52 45 4d 20 20 43 | 105.200| REM C|
|00000380| 52 45 41 54 45 20 46 49 | 45 4c 44 0a 32 30 35 20 |REATE FI|ELD.205 |
|00000390| 20 46 4f 52 20 49 20 3d | 20 31 20 54 4f 20 35 30 | FOR I =| 1 TO 50|
|000003a0| 0a 32 31 30 20 58 20 3d | 20 20 52 4e 44 28 31 29 |.210 X =| RND(1)|
|000003b0| 20 2a 32 37 39 3a 59 20 | 3d 20 20 52 4e 44 28 31 | *279:Y |= RND(1|
|000003c0| 29 20 2a 31 35 39 0a 32 | 31 35 20 20 48 50 4c 4f |) *159.2|15 HPLO|
|000003d0| 54 20 58 2c 59 0a 32 32 | 30 20 20 4e 45 58 54 20 |T X,Y.22|0 NEXT |
|000003e0| 49 0a 32 32 35 20 20 52 | 45 54 55 52 4e 20 |I.225 R|ETURN |
+--------+-------------------------+-------------------------+--------+--------+