Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » HelixBasic/Examples/!Grid/BasicProg
HelixBasic/Examples/!Grid/BasicProg
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 |
| Filename: | HelixBasic/Examples/!Grid/BasicProg |
| Read OK: | ✔ |
| File size: | 01D1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
PROGRAMINFO "!Grid","Demonstrate HelixBasic","Phill Kent","1.00"
MAINICON {OPENWINDOW main|END|}
PROChelixbasic_windows
PROChelixbasic_menus
REM +--- The Main Procedure ---+
GRID main,1,&FF0000,50,50
CROSSHAIRS main,&00FF00
REPEAT
UNTIL FALSE
DEF PROChelixbasic_windows
WINDOW main
-10000,-10000,10000,10000
0,0,1000,1000
&FFFFFF
"Hello World"
WINDOWBARS ON,ON,ON,ON
ENDWINDOW
WINDOWHELP main,""
WINDOWMOUSE main,{}
ENDPROC
DEF PROChelixbasic_menus
ENDPROC
00000000 50 52 4f 47 52 41 4d 49 4e 46 4f 20 22 21 47 72 |PROGRAMINFO "!Gr|
00000010 69 64 22 2c 22 44 65 6d 6f 6e 73 74 72 61 74 65 |id","Demonstrate|
00000020 20 48 65 6c 69 78 42 61 73 69 63 22 2c 22 50 68 | HelixBasic","Ph|
00000030 69 6c 6c 20 4b 65 6e 74 22 2c 22 31 2e 30 30 22 |ill Kent","1.00"|
00000040 0a 4d 41 49 4e 49 43 4f 4e 20 7b 4f 50 45 4e 57 |.MAINICON {OPENW|
00000050 49 4e 44 4f 57 20 6d 61 69 6e 7c 45 4e 44 7c 7d |INDOW main|END|}|
00000060 0a 0a 50 52 4f 43 68 65 6c 69 78 62 61 73 69 63 |..PROChelixbasic|
00000070 5f 77 69 6e 64 6f 77 73 0a 50 52 4f 43 68 65 6c |_windows.PROChel|
00000080 69 78 62 61 73 69 63 5f 6d 65 6e 75 73 0a 52 45 |ixbasic_menus.RE|
00000090 4d 20 2b 2d 2d 2d 20 54 68 65 20 4d 61 69 6e 20 |M +--- The Main |
000000a0 50 72 6f 63 65 64 75 72 65 20 2d 2d 2d 2b 0a 0a |Procedure ---+..|
000000b0 47 52 49 44 20 6d 61 69 6e 2c 31 2c 26 46 46 30 |GRID main,1,&FF0|
000000c0 30 30 30 2c 35 30 2c 35 30 0a 43 52 4f 53 53 48 |000,50,50.CROSSH|
000000d0 41 49 52 53 20 6d 61 69 6e 2c 26 30 30 46 46 30 |AIRS main,&00FF0|
000000e0 30 0a 0a 52 45 50 45 41 54 0a 55 4e 54 49 4c 20 |0..REPEAT.UNTIL |
000000f0 46 41 4c 53 45 0a 0a 0a 44 45 46 20 50 52 4f 43 |FALSE...DEF PROC|
00000100 68 65 6c 69 78 62 61 73 69 63 5f 77 69 6e 64 6f |helixbasic_windo|
00000110 77 73 0a 57 49 4e 44 4f 57 20 6d 61 69 6e 0a 2d |ws.WINDOW main.-|
00000120 31 30 30 30 30 2c 2d 31 30 30 30 30 2c 31 30 30 |10000,-10000,100|
00000130 30 30 2c 31 30 30 30 30 0a 30 2c 30 2c 31 30 30 |00,10000.0,0,100|
00000140 30 2c 31 30 30 30 0a 26 46 46 46 46 46 46 0a 22 |0,1000.&FFFFFF."|
00000150 48 65 6c 6c 6f 20 57 6f 72 6c 64 22 0a 57 49 4e |Hello World".WIN|
00000160 44 4f 57 42 41 52 53 20 4f 4e 2c 4f 4e 2c 4f 4e |DOWBARS ON,ON,ON|
00000170 2c 4f 4e 0a 45 4e 44 57 49 4e 44 4f 57 0a 57 49 |,ON.ENDWINDOW.WI|
00000180 4e 44 4f 57 48 45 4c 50 20 6d 61 69 6e 2c 22 22 |NDOWHELP main,""|
00000190 0a 57 49 4e 44 4f 57 4d 4f 55 53 45 20 6d 61 69 |.WINDOWMOUSE mai|
000001a0 6e 2c 7b 7d 0a 0a 45 4e 44 50 52 4f 43 0a 0a 44 |n,{}..ENDPROC..D|
000001b0 45 46 20 50 52 4f 43 68 65 6c 69 78 62 61 73 69 |EF PROChelixbasi|
000001c0 63 5f 6d 65 6e 75 73 0a 45 4e 44 50 52 4f 43 0a |c_menus.ENDPROC.|
000001d0 0a |.|
000001d1 
.