/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLITZBASIC2V1,6AGA2.DMS / in.adf / examples / library / helloworld.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 54 68 69 73 20 | 6c 69 74 74 6c 65 20 64 |;.;This |little d|
|00000010| 65 6d 6f 20 73 68 6f 77 | 73 20 68 6f 77 20 74 6f |emo show|s how to|
|00000020| 20 75 73 65 20 41 6d 69 | 67 61 20 6c 69 62 72 61 | use Ami|ga libra|
|00000030| 72 79 20 63 61 6c 6c 73 | 00 3b 69 6e 20 79 6f 75 |ry calls|.;in you|
|00000040| 72 20 6f 77 6e 20 70 72 | 6f 67 72 61 6d 73 2e 00 |r own pr|ograms..|
|00000050| 3b 00 3b 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |;.;This |program |
|00000060| 72 65 71 75 69 72 65 73 | 20 74 68 65 20 41 6d 69 |requires| the Ami|
|00000070| 67 61 6c 69 62 73 2e 72 | 65 73 20 72 65 73 69 64 |galibs.r|es resid|
|00000080| 65 6e 74 20 66 69 6c 65 | 00 3b 74 6f 20 62 65 20 |ent file|.;to be |
|00000090| 70 72 65 73 65 6e 74 20 | 69 6e 20 61 20 27 62 6c |present |in a 'bl|
|000000a0| 69 74 7a 32 3a 27 20 64 | 69 72 65 63 74 6f 72 79 |itz2:' d|irectory|
|000000b0| 2c 20 61 6c 74 68 6f 75 | 67 68 20 74 68 69 73 00 |, althou|gh this.|
|000000c0| 3b 6d 61 79 20 62 65 20 | 63 68 61 6e 67 65 64 20 |;may be |changed |
|000000d0| 74 68 72 6f 75 67 68 20 | 74 68 65 20 63 6f 6d 70 |through |the comp|
|000000e0| 69 6c 65 72 20 6f 70 74 | 69 6f 6e 73 20 72 65 71 |iler opt|ions req|
|000000f0| 75 65 73 74 65 72 2e 00 | 00 3b 69 6e 69 74 69 61 |uester..|.;initia|
|00000100| 6c 69 7a 65 20 73 6f 6d | 65 20 73 74 72 69 6e 67 |lize som|e string|
|00000110| 73 2e 2e 2e 00 3b 00 73 | 74 69 74 6c 65 24 3d 22 |s....;.s|title$="|
|00000120| 4d 79 20 53 63 72 65 65 | 6e 22 00 77 74 69 74 6c |My Scree|n".wtitl|
|00000130| 65 24 3d 22 4d 79 20 57 | 69 6e 64 6f 77 22 00 68 |e$="My W|indow".h|
|00000140| 65 6c 6c 6f 24 3d 22 48 | 65 6c 6c 6f 20 57 6f 72 |ello$="H|ello Wor|
|00000150| 6c 64 22 00 00 3b 73 65 | 74 20 75 70 20 65 6e 74 |ld"..;se|t up ent|
|00000160| 72 69 65 73 20 66 6f 72 | 20 61 20 4e 65 77 53 63 |ries for| a NewSc|
|00000170| 72 65 65 6e 00 3b 00 6e | 65 77 73 63 72 65 65 6e |reen.;.n|ewscreen|
|00000180| 2e 4e 65 77 53 63 72 65 | 65 6e 5c 4c 65 66 74 45 |.NewScre|en\LeftE|
|00000190| 64 67 65 3d 30 2c 30 2c | 33 32 30 2c 32 30 30 2c |dge=0,0,|320,200,|
|000001a0| 33 2c 31 2c 32 2c 30 00 | 6e 65 77 73 63 72 65 65 |3,1,2,0.|newscree|
|000001b0| 6e 5c 54 79 70 65 3d 23 | 43 55 53 54 4f 4d 53 43 |n\Type=#|CUSTOMSC|
|000001c0| 52 45 45 4e 2c 30 2c 26 | 73 74 69 74 6c 65 24 2c |REEN,0,&|stitle$,|
|000001d0| 30 2c 30 00 00 3b 6f 70 | 65 6e 20 61 20 73 63 72 |0,0..;op|en a scr|
|000001e0| 65 65 6e 00 3b 00 2a 6d | 79 73 63 72 65 65 6e 2e |een.;.*m|yscreen.|
|000001f0| 53 63 72 65 65 6e 3d ff | 9d 28 6e 65 77 73 63 72 |Screen=.|.(newscr|
|00000200| 65 65 6e 29 00 00 3b 66 | 61 69 6c 65 64 3f 20 65 |een)..;f|ailed? e|
|00000210| 78 69 74 21 00 3b 00 80 | 0b 20 2a 6d 79 73 63 72 |xit!.;..|. *myscr|
|00000220| 65 65 6e 3d 30 20 80 21 | 20 80 05 20 65 78 69 74 |een=0 .!| .. exit|
|00000230| 31 00 00 3b 73 65 74 20 | 75 70 20 65 6e 74 72 69 |1..;set |up entri|
|00000240| 65 73 20 66 6f 72 20 61 | 20 6e 65 77 20 77 69 6e |es for a| new win|
|00000250| 64 6f 77 00 3b 00 6e 65 | 77 77 69 6e 64 6f 77 2e |dow.;.ne|wwindow.|
|00000260| 4e 65 77 57 69 6e 64 6f | 77 5c 4c 65 66 74 45 64 |NewWindo|w\LeftEd|
|00000270| 67 65 3d 30 2c 31 32 2c | 33 32 30 2c 31 38 38 2c |ge=0,12,|320,188,|
|00000280| 31 2c 32 2c 23 43 4c 4f | 53 45 57 49 4e 44 4f 57 |1,2,#CLO|SEWINDOW|
|00000290| 00 6e 65 77 77 69 6e 64 | 6f 77 5c 46 6c 61 67 73 |.newwind|ow\Flags|
|000002a0| 3d 23 57 49 4e 44 4f 57 | 41 43 54 49 56 45 7c 23 |=#WINDOW|ACTIVE|#|
|000002b0| 57 49 4e 44 4f 57 43 4c | 4f 53 45 7c 23 57 49 4e |WINDOWCL|OSE|#WIN|
|000002c0| 44 4f 57 53 49 5a 49 4e | 47 7c 23 57 49 4e 44 4f |DOWSIZIN|G|#WINDO|
|000002d0| 57 44 52 41 47 00 6e 65 | 77 77 69 6e 64 6f 77 5c |WDRAG.ne|wwindow\|
|000002e0| 46 69 72 73 74 47 61 64 | 67 65 74 3d 30 2c 30 2c |FirstGad|get=0,0,|
|000002f0| 26 77 74 69 74 6c 65 24 | 2c 2a 6d 79 73 63 72 65 |&wtitle$|,*myscre|
|00000300| 65 6e 2c 30 2c 33 32 2c | 33 32 2c 2d 31 2c 2d 31 |en,0,32,|32,-1,-1|
|00000310| 2c 23 43 55 53 54 4f 4d | 53 43 52 45 45 4e 00 00 |,#CUSTOM|SCREEN..|
|00000320| 3b 6f 70 65 6e 20 61 20 | 77 69 6e 64 6f 77 00 3b |;open a |window.;|
|00000330| 00 2a 6d 79 77 69 6e 64 | 6f 77 2e 57 69 6e 64 6f |.*mywind|ow.Windo|
|00000340| 77 3d ff 9e 28 6e 65 77 | 77 69 6e 64 6f 77 29 00 |w=..(new|window).|
|00000350| 00 3b 66 61 69 6c 65 64 | 3f 20 65 78 69 74 21 00 |.;failed|? exit!.|
|00000360| 3b 00 80 0b 20 2a 6d 79 | 77 69 6e 64 6f 77 3d 30 |;... *my|window=0|
|00000370| 20 80 21 20 80 05 20 65 | 78 69 74 32 00 00 3b 73 | .! .. e|xit2..;s|
|00000380| 65 74 20 75 70 20 65 6e | 74 72 69 65 73 20 66 6f |et up en|tries fo|
|00000390| 72 20 61 6e 20 49 6e 74 | 75 69 54 65 78 74 00 3b |r an Int|uiText.;|
|000003a0| 00 6d 79 74 65 78 74 2e | 49 6e 74 75 69 54 65 78 |.mytext.|IntuiTex|
|000003b0| 74 5c 46 72 6f 6e 74 50 | 65 6e 3d 31 2c 30 2c 31 |t\FrontP|en=1,0,1|
|000003c0| 2c 30 2c 30 2c 30 2c 30 | 2c 26 68 65 6c 6c 6f 24 |,0,0,0,0|,&hello$|
|000003d0| 2c 30 00 00 3b 63 61 6c | 6c 20 69 6e 74 75 69 74 |,0..;cal|l intuit|
|000003e0| 69 6f 6e 20 72 6f 75 74 | 69 6e 65 00 3b 00 ff a0 |ion rout|ine.;...|
|000003f0| 20 2a 6d 79 77 69 6e 64 | 6f 77 5c 52 50 6f 72 74 | *mywind|ow\RPort|
|00000400| 2c 6d 79 74 65 78 74 2c | 38 2c 31 36 00 00 3b 67 |,mytext,|8,16..;g|
|00000410| 65 74 20 75 73 65 72 70 | 6f 72 74 20 66 72 6f 6d |et userp|ort from|
|00000420| 20 77 69 6e 64 6f 77 00 | 3b 00 2a 75 73 65 72 70 | window.|;.*userp|
|00000430| 6f 72 74 2e 4d 73 67 50 | 6f 72 74 3d 2a 6d 79 77 |ort.MsgP|ort=*myw|
|00000440| 69 6e 64 6f 77 5c 55 73 | 65 72 50 6f 72 74 00 00 |indow\Us|erPort..|
|00000450| 3b 6c 6f 6f 70 20 75 6e | 74 69 6c 20 77 69 6e 64 |;loop un|til wind|
|00000460| 6f 77 20 69 73 20 63 6c | 6f 73 65 64 21 00 3b 00 |ow is cl|osed!.;.|
|00000470| 80 bb 00 00 20 20 3b 77 | 61 69 74 20 66 6f 72 20 |....  ;w|ait for |
|00000480| 61 20 6d 65 73 73 61 67 | 65 20 61 74 20 74 68 65 |a messag|e at the|
|00000490| 20 70 6f 72 74 3a 00 20 | 20 3b 00 20 20 fe bc 20 | port:. | ;.  .. |
|000004a0| 2a 75 73 65 72 70 6f 72 | 74 00 00 20 20 3b 67 65 |*userpor|t..  ;ge|
|000004b0| 74 20 74 68 65 20 6d 65 | 73 73 61 67 65 00 20 20 |t the me|ssage.  |
|000004c0| 3b 00 20 20 2a 6d 79 69 | 6e 74 75 69 2e 49 6e 74 |;.  *myi|ntui.Int|
|000004d0| 75 69 4d 65 73 73 61 67 | 65 3d fe ba 20 28 2a 75 |uiMessag|e=.. (*u|
|000004e0| 73 65 72 70 6f 72 74 29 | 00 00 20 20 3b 67 65 74 |serport)|..  ;get|
|000004f0| 20 77 68 61 74 20 49 20 | 6e 65 65 64 20 66 72 6f | what I |need fro|
|00000500| 6d 20 74 68 65 20 6d 65 | 73 73 61 67 65 00 20 20 |m the me|ssage.  |
|00000510| 3b 00 20 20 63 6c 61 73 | 73 2e 6c 3d 2a 6d 79 69 |;.  clas|s.l=*myi|
|00000520| 6e 74 75 69 5c 43 6c 61 | 73 73 00 00 20 20 3b 72 |ntui\Cla|ss..  ;r|
|00000530| 65 70 6c 79 20 74 6f 20 | 6d 65 73 73 61 67 65 20 |eply to |message |
|00000540| 41 53 41 50 21 00 20 20 | 3b 00 20 20 fe bb 20 2a |ASAP!.  |;.  .. *|
|00000550| 6d 79 69 6e 74 75 69 00 | 80 bc 20 63 6c 61 73 73 |myintui.|.. class|
|00000560| 3d 23 43 4c 4f 53 45 57 | 49 4e 44 4f 57 00 00 65 |=#CLOSEW|INDOW..e|
|00000570| 78 69 74 33 00 00 3b 63 | 6c 6f 73 65 20 74 68 65 |xit3..;c|lose the|
|00000580| 20 77 69 6e 64 6f 77 2e | 2e 2e 00 3b 00 ff 88 20 | window.|...;... |
|00000590| 2a 6d 79 77 69 6e 64 6f | 77 00 00 65 78 69 74 32 |*mywindo|w..exit2|
|000005a0| 00 00 3b 63 6c 6f 73 65 | 20 74 68 65 20 73 63 72 |..;close| the scr|
|000005b0| 65 65 6e 2e 2e 2e 00 3b | 00 ff 87 20 2a 6d 79 73 |een....;|... *mys|
|000005c0| 63 72 65 65 6e 00 00 65 | 78 69 74 31 00 00 3b 61 |creen..e|xit1..;a|
|000005d0| 6c 6c 20 64 6f 6e 65 21 | 00 3b 00 80 02 00 00    |ll done!|.;..... |
+--------+-------------------------+-------------------------+--------+--------+