/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / CyberShape / CyberShape.bb2

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 c3 00 c3 01 20 30 2c | 22 74 6f 70 61 7a 2e 66 |..... 0,|"topaz.f|
|00000010| 6f 6e 74 22 2c 38 00 80 | 03 20 76 65 72 73 69 6f |ont",8..|. versio|
|00000020| 6e 24 3d 20 22 43 79 62 | 65 72 53 68 61 70 65 20 |n$= "Cyb|erShape |
|00000030| 76 30 2e 39 31 7c 43 6f | 70 79 72 69 67 68 74 20 |v0.91|Co|pyright |
|00000040| 3f 20 31 39 39 37 20 62 | 79 20 4a 1c 72 67 65 6e |? 1997 b|y J.rgen|
|00000050| 20 4b 6c 65 69 6e 22 00 | 80 03 20 76 65 72 73 69 | Klein".|.. versi|
|00000060| 24 3d 20 22 24 56 45 52 | 3a 20 43 79 62 65 72 53 |$= "$VER|: CyberS|
|00000070| 68 61 70 65 20 76 30 2e | 39 31 20 28 30 36 2e 31 |hape v0.|91 (06.1|
|00000080| 32 2e 39 37 29 20 43 6f | 70 79 72 69 67 68 74 20 |2.97) Co|pyright |
|00000090| 3f 20 31 39 39 37 20 62 | 79 20 4a 1c 72 67 65 6e |? 1997 b|y J.rgen|
|000000a0| 20 4b 6c 65 69 6e 22 00 | 80 03 20 76 65 72 73 24 | Klein".|.. vers$|
|000000b0| 3d 20 dc 94 28 76 65 72 | 73 69 6f 6e 24 2c 31 36 |= ..(ver|sion$,16|
|000000c0| 29 00 80 03 20 41 64 72 | 65 73 73 65 24 3d 22 44 |)... Adr|esse$="D|
|000000d0| 6f 72 6e 62 61 63 68 73 | 74 72 2e 20 32 32 7c 44 |ornbachs|tr. 22|D|
|000000e0| 2d 36 31 34 34 30 20 4f | 62 65 72 75 72 73 65 6c |-61440 O|berursel|
|000000f0| 7c 7c 65 6d 61 69 6c 3a | 20 6b 6c 65 69 6e 32 31 |||email:| klein21|
|00000100| 40 69 62 6d 2e 6e 65 74 | 22 00 80 03 20 57 65 62 |@ibm.net|"... Web|
|00000110| 53 69 74 65 24 3d 22 68 | 74 74 70 3a 2f 2f 77 77 |Site$="h|ttp://ww|
|00000120| 77 2e 67 65 6f 63 69 74 | 69 65 73 2e 63 6f 6d 2f |w.geocit|ies.com/|
|00000130| 54 69 6d 65 73 53 71 75 | 61 72 65 2f 35 31 32 33 |TimesSqu|are/5123|
|00000140| 2f 69 6e 64 65 78 2e 68 | 74 6d 6c 22 00 00 00 80 |/index.h|tml"....|
|00000150| 03 20 6c 66 2e 73 3d dc | 86 28 31 30 29 00 80 03 |. lf.s=.|.(10)...|
|00000160| 20 6c 66 6e 2e 73 3d dc | 86 28 31 30 29 2b dc 86 | lfn.s=.|.(10)+..|
|00000170| 28 30 29 00 80 03 20 42 | 6f 6f 74 24 3d 97 90 00 |(0)... B|oot$=...|
|00000180| 00 80 04 20 44 61 74 65 | 6e 24 28 31 32 29 00 00 |... Date|n$(12)..|
|00000190| 80 03 20 2a 46 43 5f 43 | 61 74 3d f3 94 28 30 2c |.. *FC_C|at=..(0,|
|000001a0| 22 43 79 62 65 72 53 68 | 61 70 65 2e 63 61 74 61 |"CyberSh|ape.cata|
|000001b0| 6c 6f 67 22 2c 30 29 00 | 80 0b 20 2a 46 43 5f 43 |log",0).|.. *FC_C|
|000001c0| 61 74 00 20 20 20 80 16 | 20 69 3d 31 20 80 18 20 |at.   ..| i=1 .. |
|000001d0| 31 32 00 20 20 20 80 03 | 20 44 61 74 65 6e 24 28 |12.   ..| Daten$(|
|000001e0| 69 29 3d b3 88 28 f3 87 | 28 2a 46 43 5f 43 61 74 |i)=..(..|(*FC_Cat|
|000001f0| 2c 69 2c 30 29 2c 30 29 | 00 20 20 20 80 17 20 69 |,i,0),0)|.   .. i|
|00000200| 00 20 20 20 f3 81 28 2a | 46 43 5f 43 61 74 29 00 |.   ..(*|FC_Cat).|
|00000210| 80 22 00 20 20 20 80 c8 | 20 44 61 74 65 6e 00 20 |.".   ..| Daten. |
|00000220| 20 20 80 16 20 69 3d 31 | 20 80 18 20 31 32 00 20 |  .. i=1| .. 12. |
|00000230| 20 20 20 20 20 80 1b 20 | 44 61 74 65 6e 24 28 69 |     .. |Daten$(i|
|00000240| 29 00 20 20 20 80 17 20 | 69 00 80 c0 00 00 80 09 |).   .. |i.......|
|00000250| 2e 73 20 43 6f 6e 76 65 | 72 74 20 7b 54 65 78 74 |.s Conve|rt {Text|
|00000260| 24 7d 00 20 20 20 80 03 | 20 4e 65 77 24 3d dc 8a |$}.   ..| New$=..|
|00000270| 28 54 65 78 74 24 2c 22 | 7c 22 2c dc 86 28 31 30 |(Text$,"||",..(10|
|00000280| 29 29 00 20 20 20 80 09 | 20 80 07 20 4e 65 77 24 |)).   ..| .. New$|
|00000290| 00 80 02 20 80 09 00 00 | 80 09 2e 77 20 47 65 74 |... ....|...w Get|
|000002a0| 53 63 72 65 65 6e 44 61 | 74 61 20 7b 53 63 72 65 |ScreenDa|ta {Scre|
|000002b0| 65 6e 4e 72 7d 00 20 20 | 20 80 15 20 53 63 72 42 |enNr}.  | .. ScrB|
|000002c0| 2e 77 00 20 20 20 80 15 | 20 53 63 72 48 2e 77 00 |.w.   ..| ScrH.w.|
|000002d0| 20 20 20 53 63 72 65 65 | 6e 50 74 72 2e 6c 20 20 |   Scree|nPtr.l  |
|000002e0| 3d 20 da 02 2e 6c 20 28 | 80 b8 20 cf 01 20 28 53 |= ...l (|.. .. (S|
|000002f0| 63 72 65 65 6e 4e 72 29 | 29 00 20 20 20 53 63 72 |creenNr)|).   Scr|
|00000300| 42 2e 77 20 20 20 20 20 | 20 20 3d 20 da 02 2e 77 |B.w     |  = ...w|
|00000310| 20 28 53 63 72 65 65 6e | 50 74 72 2b 31 32 29 00 | (Screen|Ptr+12).|
|00000320| 20 20 20 53 63 72 48 2e | 77 20 20 20 20 20 20 20 |   ScrH.|w       |
|00000330| 3d 20 da 02 2e 77 20 28 | 53 63 72 65 65 6e 50 74 |= ...w (|ScreenPt|
|00000340| 72 2b 31 34 29 00 20 20 | 20 46 6f 6e 74 50 74 72 |r+14).  | FontPtr|
|00000350| 2e 6c 20 20 20 20 3d 20 | da 02 2e 6c 20 28 53 63 |.l    = |...l (Sc|
|00000360| 72 65 65 6e 50 74 72 2b | 34 30 29 00 20 20 20 46 |reenPtr+|40).   F|
|00000370| 6f 6e 74 48 65 69 67 68 | 74 2e 77 20 3d 20 da 02 |ontHeigh|t.w = ..|
|00000380| 2e 77 20 28 46 6f 6e 74 | 50 74 72 2b 34 29 00 20 |.w (Font|Ptr+4). |
|00000390| 20 20 80 09 20 80 07 20 | 46 6f 6e 74 48 65 69 67 |  .. .. |FontHeig|
|000003a0| 68 74 00 80 02 20 80 09 | 00 00 cf 02 20 30 00 d0 |ht... ..|.... 0..|
|000003b0| 03 20 30 2c 30 00 00 c5 | 35 20 24 32 30 30 30 30 |. 0,0...|5 $20000|
|000003c0| 30 00 00 92 85 20 30 2c | 30 2c 44 61 74 65 6e 24 |0.... 0,|0,Daten$|
|000003d0| 28 31 29 00 92 86 20 30 | 2c 30 2c 30 2c 30 2c 44 |(1)... 0|,0,0,0,D|
|000003e0| 61 74 65 6e 24 28 32 29 | 2c 22 6f 22 00 92 86 20 |aten$(2)|,"o"... |
|000003f0| 30 2c 30 2c 30 2c 31 2c | 44 61 74 65 6e 24 28 33 |0,0,0,1,|Daten$(3|
|00000400| 29 2c 22 73 22 00 92 86 | 20 30 2c 30 2c 30 2c 32 |),"s"...| 0,0,0,2|
|00000410| 00 92 86 20 30 2c 30 2c | 30 2c 33 2c 44 61 74 65 |... 0,0,|0,3,Date|
|00000420| 6e 24 28 34 29 2c 22 3f | 22 00 92 86 20 30 2c 30 |n$(4),"?|"... 0,0|
|00000430| 2c 30 2c 34 2c 44 61 74 | 65 6e 24 28 35 29 2c 22 |,0,4,Dat|en$(5),"|
|00000440| 71 22 00 00 80 03 20 54 | 69 74 48 2e 6c 3d 47 65 |q".... T|itH.l=Ge|
|00000450| 74 53 63 72 65 65 6e 44 | 61 74 61 7b 30 7d 2b 33 |tScreenD|ata{0}+3|
|00000460| 00 00 00 c5 01 20 30 2c | 28 53 63 72 42 2f 32 29 |..... 0,|(ScrB/2)|
|00000470| 2d 31 36 30 2c 28 53 63 | 72 48 2f 32 29 2d 31 30 |-160,(Sc|rH/2)-10|
|00000480| 30 2b 54 69 74 48 2c 33 | 32 30 2c 32 30 30 2c 20 |0+TitH,3|20,200, |
|00000490| 24 32 30 31 34 30 45 2c | 76 65 72 73 24 2c 30 2c |$20140E,|vers$,0,|
|000004a0| 31 2c 31 00 00 c5 0a 20 | 30 00 92 83 20 30 00 00 |1,1.... |0... 0..|
|000004b0| cd 0f 20 31 2c 3f 50 69 | 63 00 c5 3e 20 31 2c 30 |.. 1,?Pi|c..> 1,0|
|000004c0| 2c 30 00 00 80 03 20 77 | 69 6e 2e 6c 3d da 02 2e |,0.... w|in.l=...|
|000004d0| 6c 28 80 b8 20 c5 01 20 | 28 30 29 29 00 80 03 20 |l(.. .. |(0))... |
|000004e0| 67 61 64 2e 6c 3d da 02 | 2e 6c 28 77 69 6e 2e 6c |gad.l=..|.l(win.l|
|000004f0| 2b 36 32 29 00 80 03 20 | 6e 67 61 64 2e 6c 3d da |+62)... |ngad.l=.|
|00000500| 02 2e 6c 28 da 02 2e 6c | 28 67 61 64 2e 6c 29 29 |..l(...l|(gad.l))|
|00000510| 00 da 01 2e 77 20 6e 67 | 61 64 2b 20 38 2c 33 32 |....w ng|ad+ 8,32|
|00000520| 30 00 da 01 2e 77 20 6e | 67 61 64 2b 31 30 2c 32 |0....w n|gad+10,2|
|00000530| 30 30 00 00 00 2e 53 74 | 61 72 74 00 00 80 bb 00 |00....St|art.....|
|00000540| 20 20 65 76 2e 6c 20 3d | 20 c5 02 00 20 20 80 03 |  ev.l =| ...  ..|
|00000550| 20 45 76 24 3d dd 83 28 | 65 76 29 2b 22 45 76 65 | Ev$=..(|ev)+"Eve|
|00000560| 6e 74 43 6f 64 65 3a 20 | 22 2b dd 83 28 c5 40 29 |ntCode: |"+..(.@)|
|00000570| 00 20 20 c6 94 20 30 2c | 33 2c 45 76 24 00 20 20 |.  .. 0,|3,Ev$.  |
|00000580| 80 0e 20 65 76 00 20 20 | 20 20 80 0f 20 32 35 36 |.. ev.  |  .. 256|
|00000590| 00 20 20 20 20 20 20 80 | 0e 20 c5 08 00 20 20 20 |.      .|. ...   |
|000005a0| 20 20 20 20 20 80 0f 20 | 30 3a 20 80 06 20 4c 6f |     .. |0: .. Lo|
|000005b0| 61 64 00 20 20 20 20 20 | 20 20 20 80 0f 20 31 3a |ad.     |   .. 1:|
|000005c0| 20 80 06 20 53 61 76 65 | 00 20 20 20 20 20 20 20 | .. Save|.       |
|000005d0| 20 80 0f 20 33 3a 20 80 | 06 20 41 62 6f 75 74 00 | .. 3: .|. About.|
|000005e0| 20 20 20 20 20 20 20 20 | 80 0f 20 34 3a 20 80 02 |        |.. 4: ..|
|000005f0| 00 20 20 20 20 20 20 80 | 02 20 80 0e 00 20 20 20 |.      .|. ...   |
|00000600| 20 80 0f 20 24 32 30 30 | 00 20 20 20 20 20 20 20 | .. $200|.       |
|00000610| 20 80 06 20 51 75 69 74 | 00 20 20 20 20 80 0f 20 | .. Quit|.    .. |
|00000620| 24 32 30 30 30 30 30 00 | 20 20 20 20 20 80 0e 20 |$200000.|     .. |
|00000630| c5 40 00 20 20 20 20 20 | 20 20 20 80 0f 20 20 32 |.@.     |   ..  2|
|00000640| 37 3a 20 80 06 20 51 75 | 69 74 00 20 20 20 20 20 |7: .. Qu|it.     |
|00000650| 20 80 02 20 80 0e 00 20 | 20 80 02 20 80 0e 00 80 | .. ... | .. ....|
|00000660| c7 00 00 2e 51 75 69 74 | 00 20 20 20 80 03 20 54 |....Quit|.   .. T|
|00000670| 65 78 74 24 3d 43 6f 6e | 76 65 72 74 7b 76 65 72 |ext$=Con|vert{ver|
|00000680| 73 69 6f 6e 24 2b 6c 66 | 2b 6c 66 2b 44 61 74 65 |sion$+lf|+lf+Date|
|00000690| 6e 24 28 36 29 7d 00 20 | 20 20 80 03 20 63 68 65 |n$(6)}. |  .. che|
|000006a0| 63 6b 3d 9b 01 20 28 76 | 65 72 73 24 2c 54 65 78 |ck=.. (v|ers$,Tex|
|000006b0| 74 24 2c 44 61 74 65 6e | 24 28 37 29 2c 31 2c 31 |t$,Daten|$(7),1,1|
|000006c0| 2c 34 29 00 20 20 20 80 | 0e 20 63 68 65 63 6b 00 |,4).   .|. check.|
|000006d0| 20 20 20 80 0f 20 31 00 | 20 20 20 20 20 20 c5 3c |   .. 1.|      .<|
|000006e0| 20 30 00 20 20 20 20 20 | 20 fe 8c 00 20 20 20 20 | 0.     | ...    |
|000006f0| 20 20 80 02 00 20 20 20 | 80 02 20 80 0e 00 80 07 |  ...   |.. .....|
|00000700| 00 00 00 00 2e 4c 6f 61 | 64 00 20 20 20 9b 0e 20 |.....Loa|d.   .. |
|00000710| 30 2c 44 61 74 65 6e 24 | 28 31 31 29 00 20 20 20 |0,Daten$|(11).   |
|00000720| 80 03 20 6e 6e 24 3d 22 | 22 00 20 20 20 80 03 20 |.. nn$="|".   .. |
|00000730| 6e 6e 24 3d 9b 02 28 44 | 61 74 65 6e 24 28 31 30 |nn$=..(D|aten$(10|
|00000740| 29 2c 66 6e 24 29 00 20 | 20 20 80 0b 20 20 6e 6e |),fn$). |  ..  nn|
|00000750| 24 3c 3e 22 22 00 20 20 | 20 20 20 20 80 03 20 66 |$<>"".  |    .. f|
|00000760| 6e 24 3d 6e 6e 24 00 20 | 20 20 20 20 20 cd 01 20 |n$=nn$. |     .. |
|00000770| 30 2c 66 6e 24 00 20 20 | 20 20 20 20 c5 3e 20 30 |0,fn$.  |    .> 0|
|00000780| 2c 30 2c 30 00 20 20 20 | 80 c0 00 80 07 00 00 2e |,0,0.   |........|
|00000790| 53 61 76 65 00 20 20 20 | 80 03 20 73 61 2e 6c 3d |Save.   |.. sa.l=|
|000007a0| 80 b8 20 cd 0c 28 30 29 | 00 20 20 20 80 03 20 67 |.. ..(0)|.   .. g|
|000007b0| 61 2e 6c 3d da 02 2e 6c | 28 73 61 2b 31 34 29 00 |a.l=...l|(sa+14).|
|000007c0| 20 20 20 80 03 20 73 69 | 7a 65 2e 77 3d da 02 2e |   .. si|ze.w=...|
|000007d0| 6c 28 73 61 2b 32 36 29 | 00 20 20 20 80 03 20 6e |l(sa+26)|.   .. n|
|000007e0| 6e 24 3d 22 22 00 20 20 | 20 80 03 20 6e 6e 24 3d |n$="".  | .. nn$=|
|000007f0| 9b 09 28 44 61 74 65 6e | 24 28 31 32 29 2c 73 6e |..(Daten|$(12),sn|
|00000800| 24 29 00 20 20 20 80 0b | 20 6e 6e 24 3c 3e 22 22 |$).   ..| nn$<>""|
|00000810| 00 20 20 20 20 20 20 80 | 03 20 73 6e 24 3d 6e 6e |.      .|. sn$=nn|
|00000820| 24 00 20 20 20 20 20 20 | 80 03 20 73 6e 2e 6c 3d |$.      |.. sn.l=|
|00000830| b5 81 28 73 6e 24 29 00 | 20 20 20 20 20 20 80 03 |..(sn$).|      ..|
|00000840| 20 66 68 2e 6c 3d fe 01 | 28 73 6e 2c 31 30 30 34 | fh.l=..|(sn,1004|
|00000850| 29 00 20 20 20 20 20 20 | 76 6f 69 64 3d fe 04 28 |).      |void=..(|
|00000860| 66 68 2c 73 61 2c 33 32 | 29 00 20 20 20 20 20 20 |fh,sa,32|).      |
|00000870| 76 6f 69 64 3d fe 04 28 | 66 68 2c 67 61 2c 73 69 |void=..(|fh,ga,si|
|00000880| 7a 65 29 00 20 20 20 20 | 20 20 76 6f 69 64 3d fe |ze).    |  void=.|
|00000890| 02 28 66 68 29 00 20 20 | 20 80 c0 00 80 07 00 00 |.(fh).  | .......|
|000008a0| 2e 41 62 6f 75 74 00 20 | 20 20 80 03 20 54 65 78 |.About. |  .. Tex|
|000008b0| 74 24 3d 43 6f 6e 76 65 | 72 74 7b 76 65 72 73 69 |t$=Conve|rt{versi|
|000008c0| 6f 6e 24 2b 6c 66 2b 41 | 64 72 65 73 73 65 24 2b |on$+lf+A|dresse$+|
|000008d0| 6c 66 2b 57 65 62 53 69 | 74 65 24 2b 6c 66 2b 6c |lf+WebSi|te$+lf+l|
|000008e0| 66 2b 44 61 74 65 6e 24 | 28 39 29 7d 00 20 20 20 |f+Daten$|(9)}.   |
|000008f0| 80 03 20 63 68 65 63 6b | 3d 9b 01 20 28 76 65 72 |.. check|=.. (ver|
|00000900| 73 24 2c 54 65 78 74 24 | 2c 44 61 74 65 6e 24 28 |s$,Text$|,Daten$(|
|00000910| 38 29 2c 31 2c 31 2c 34 | 29 00 00 80 07 00 00 00 |8),1,1,4|).......|
|00000920| 2e 44 61 74 65 6e 00 80 | 1a 2e 73 20 22 50 72 6f |.Daten..|..s "Pro|
|00000930| 6a 65 63 74 22 00 80 1a | 2e 73 20 22 4f 70 65 6e |ject"...|.s "Open|
|00000940| 20 20 20 22 00 80 1a 2e | 73 20 22 53 61 76 65 22 |   "....|s "Save"|
|00000950| 00 80 1a 2e 73 20 22 41 | 62 6f 75 74 22 00 80 1a |....s "A|bout"...|
|00000960| 2e 73 20 22 51 75 69 74 | 22 00 80 1a 2e 73 20 22 |.s "Quit|"....s "|
|00000970| 44 6f 20 79 6f 75 20 72 | 65 61 6c 6c 79 20 77 61 |Do you r|eally wa|
|00000980| 6e 74 20 74 6f 20 71 75 | 69 74 20 3f 22 00 80 1a |nt to qu|it ?"...|
|00000990| 2e 73 20 22 54 68 61 6e | 78 2c 20 4d 61 73 74 65 |.s "Than|x, Maste|
|000009a0| 72 20 46 72 65 65 4a 61 | 63 6b 7c 53 6f 72 72 79 |r FreeJa|ck|Sorry|
|000009b0| 2c 20 6d 79 20 66 61 75 | 6c 74 20 21 22 00 80 1a |, my fau|lt !"...|
|000009c0| 2e 73 20 22 54 68 61 6e | 78 2c 20 4d 61 73 74 65 |.s "Than|x, Maste|
|000009d0| 72 20 46 72 65 65 4a 61 | 63 6b 22 00 80 1a 2e 73 |r FreeJa|ck"....s|
|000009e0| 20 22 43 6f 6e 76 65 72 | 74 73 20 2e 69 66 66 20 | "Conver|ts .iff |
|000009f0| 32 20 2e 73 68 61 70 65 | 20 28 65 76 65 6e 20 6f |2 .shape| (even o|
|00000a00| 6e 20 63 66 78 20 73 79 | 73 74 65 6d 73 21 29 22 |n cfx sy|stems!)"|
|00000a10| 00 80 1a 2e 73 20 22 4c | 6f 61 64 69 6e 67 20 2e |....s "L|oading .|
|00000a20| 69 66 66 20 2e 2e 2e 22 | 00 80 1a 2e 73 20 22 23 |iff ..."|....s "#|
|00000a30| 3f 2e 69 66 66 22 00 80 | 1a 2e 73 20 22 53 61 76 |?.iff"..|..s "Sav|
|00000a40| 69 6e 67 20 2e 73 68 61 | 70 65 20 2e 2e 2e 22 00 |ing .sha|pe ...".|
|00000a50| 00 80 bf 20 22 42 6c 69 | 74 7a 32 3a 2e 67 66 78 |... "Bli|tz2:.gfx|
|00000a60| 2f 22 00 2e 50 69 63 00 | 80 2a 20 22 43 79 62 65 |/"..Pic.|.* "Cybe|
|00000a70| 72 53 68 61 70 65 2e 73 | 68 61 70 65 22 00 00 00 |rShape.s|hape"...|
+--------+-------------------------+-------------------------+--------+--------+