8-Bit Software Online Conversion

Electronics pictures - Listing

10REM This program prints out an AMX screen 20DEFFNS="AMXprt" 30ONERROR CLOSE#0:END 40MODE1 50PRINT"SELECT 1 OR 2" 60PRINT"1. Drawing 1" 70PRINT"2. Drawing 2" 80A$=GET$ 90IF A$="1" A$="DRAW1" 100IF A$="2" A$="DRAW2" 110F%=OPENIN A$ 120L%=&3000 130REPEAT 140?(L%+&FFFF0000)=BGET#F% EOR &FF 150L%=L%+1 160IFL%MOD&280=0 L%=L%+&80 170UNTILEOF#F% 180CLOSE#F% 190REPEATUNTILGET 200REM *GDUMP