Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » HelixBasic/Examples/!Graph/HelixInfo
HelixBasic/Examples/!Graph/HelixInfo
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/!Graph/HelixInfo |
Read OK: | ✔ |
File size: | 0CE9 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
Sun,07 Mar 1993.14:45:18 | Default !Boot file IconSprites <Obey$Dir>.!Sprites | Default !Run file RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator RMEnsure FPEmulator 2.70 Error You need FPEmulator 2.70 or later | RMEnsure Euclid 1.03 RMLoad <Obey$Dir>.EuclidX | RMEnsure TrackerModule 2.06 RMLOAD <Obey$Dir>.PlayerMod RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later RMEnsure HelixDemo 1.00 RMLoad <HelixSystem$Dir>.Modules.HelixDemo RMEnsure HelixDemo 1.00 Error You need HelixDemo 1.00 or later Iconsprites <Obey$Dir>.!Sprites WimpSlot -min 160K -max 160K <Obey$Dir>.!RunImage Place information about the program in this file REM +--- The Main Procedure ---+ PROCsetup_default_values PROClimits_definition SETSAVE filename$,"file_aff","Save Drawfile",save_procedure,&AFF REPEAT UNTIL FALSE !Graph Multi-tasking graphis package Authors Name 0.10 (date) OPENWINDOW main_window OPENMENU icon_bar,MOUSEPOSX-64,228 setup_default_values min_x=0 max_x=PI*2 min_y=-1 max_y=1 colour%=&0000FF eq$="SINx" build_graph step=(max_x-min_x)/500 scale=(max_y-min_y)/500 FOR x=min_x TO max_x STEP step y_pos=(EVAL(eq$)/scale)+250 POINT main_window,colour%,((x-min_x)/step)*2,y_pos NEXT save_procedure HOURGLASS ON SAVEDRAW main_window,filename$ HOURGLASS OFF limits_definition TEXT limits_window,black%,8,48,"Minimum y : " TEXT limits_window,black%,8,100,"Maximum y : " TEXT limits_window,black%,8,152,"Minimum x : " TEXT limits_window,black%,8,204,"Maximum x : " filter$="0123456789." EDITFIELD limits_window,edit1,200,168,14,14,1,max_x$=STR$(max_x),filter$ EDITFIELD limits_window,edit2,200,116,14,14,1,min_x$=STR$(min_x),filter$ EDITFIELD limits_window,edit3,200,64,14,14,1,max_y$=STR$(max_y),filter$ EDITFIELD limits_window,edit4,200,12,14,14,1,min_y$=STR$(min_y),filter$ EDITLINK limits_window,edit1,edit2,edit3,edit4 RECTANGLE FILL limits_window,&BBEEEE,8,-48,434,48 RECTANGLE limits_window,black%,8,-48,434,48 TEXT limits_window,black%,109,-12,"Update Values" MOUSEAREA limits_window,8,-48,434,48,{PROCupdate_limits} CLOSECOMMAND limits_window,{PROCupdate_limits} update_limits max_x=VAL(max_x$) min_x=VAL(min_x$) max_y=VAL(max_y$) min_y=VAL(min_y$) ����� h� <