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