Home » Archimedes archive » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 » !AWApr94/Goodies/NumberCon/!NumConv/!RunImage
!AWApr94/Goodies/NumberCon/!NumConv/!RunImage
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 » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 |
Filename: | !AWApr94/Goodies/NumberCon/!NumConv/!RunImage |
Read OK: | ✔ |
File size: | 1B34 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10ON ERROR REPORT : PRINT " at line ";ERL : END 20 30DIM chunk% 4096 40DIM mem% 2048 50DIM messagebit% 256 60DIM convert 256 70DIM buf% 256 80DIM menu% 128 90DIM descripter% 16 100 110PROCinitialise 120PROCloadtemplates 130PROCicon 140PROCmenu 150PROCbanner 160 170REPEAT 180SYS "WimpExt_PrePoll" 190SYS "Wimp_Poll",,chunk% TO reason% 200SYS "WimpExt_Action",task%,chunk%,reason% 210CASE reason% OF 220WHEN 0 : PROCnull 230WHEN 1 : PROCredraw 240WHEN 2 : SYS "WimpExt_OpenLinked",,chunk% 250WHEN 3 : SYS "WimpExt_CloseLinked",,chunk% 260WHEN 6 : PROCmousepressed 270WHEN 9 : PROCmenuselection 280WHEN 17,18,19 : PROCusermessage 290ENDCASE 300UNTIL FALSE 310END 320 330DEF PROCinitialise 340SYS "Wimp_Initialise",200,&4B534154,"Number Converter" TO ,task% 350SYS "WimpExt_Initialise",,task%,%100110010 360ENDPROC 370 380DEF PROCloadtemplates 390length%=&800 400DIM indirect% length% 410workspace%=indirect% 420SYS "Wimp_OpenTemplate",,"<NumConv$Dir>.Templates" 430SYS "Wimp_LoadTemplate",,chunk%,workspace%,indirect%+length%,-1,"Info",0 TO,,workspace% 440SYS "Wimp_CreateWindow",,chunk% TO info% 450SYS "Wimp_LoadTemplate",,chunk%,workspace%,indirect%+length%,-1,"Main",0 TO,,workspace% 460SYS "Wimp_CreateWindow",,chunk% TO main% 470SYS "Wimp_LoadTemplate",,chunk%,workspace%,indirect%+length%,-1,"Banner",0 TO,,workspace% 480SYS "Wimp_CreateWindow",,chunk% TO banner% 490SYS "Wimp_CloseTemplate" 500ENDPROC 510 520DEF PROCmenu 530$menu% ="NumConv" 540menu%?12 = 7 550menu%?13 = 2 560menu%?14 = 7 570menu%?15 = 0 580menu%!16 = &70 590menu%!20 = 40 600menu%!24 = 0 610 620menu%!28 = 0 630menu%!32 = info% 640menu%!36 = &7000011 650$(menu%+40) = "Info" 660 670menu%!52 = 128 680menu%!56 = -1 690menu%!60 = &7000011 700$(menu%+64) = "Quit" 710ENDPROC 720 730DEF PROCicon 740SYS "WimpExt_IconBarSprite",,,-1,"!NumConv",,3 TO iconbarhandle% 750ENDPROC 760 770DEF PROCusermessage 780FOR message%=0TO&FF STEP 4 790messagebit%!message%=chunk%!message% 800NEXT 810CASE messagebit%!16 OF 820WHEN 0 : PROCshutdown 830WHEN &00502: PROCsendhelp 840ENDCASE 850ENDPROC 860 870DEF PROCerror 880ON ERROR OFF 890CASE ERR OF 900 WHEN 20 910 SYS "Wimp_ReportError","