This is an updated version of “The Picture” written in assembly. It uses a line drawing routine by Simeon Dwyer.
PROG : 16509
D-FILE: 17611
VARS : 18404
E-LINE: 18405
STKBOT: 18405
STKEND: 18405
9999 means line number
PRINT means treat as KEYWORD P
1 REM /L BY STEVEN REID 2021
* * THE PICTURE IN ASM * *
30241 )??ñô GOSUB KFAST LN ??
LPRINT /FOR ;AXAWARDRD2D2D;BKAK!
K!H"H"K"K£,7,7W7V7K£ -A-P-RND-ôô
ùô!ôúõùõù÷ùö÷!!!ô!ô!ò÷ò÷òöòöôõ
COPY LN HINKEY$U??ACS ?TAB ACS
INKEY$LN ³INKEY$TAN U??ACS ?""
CHR$ RNDLIST U??ACS ?""CHR$ I
LIST Y M??U??ACS ZM??KõYñM??U??
ACS ZM??K!U??ACS INT M??E£RND7)5
U??RETURN Cô?;(CLEAR ) U???;6
??TAN E??U??RETURN C$RETURN ñC-
RETURN òC3RETURN óCCTAN SIN ?
TAN ACS ·?TAN INT ?TAN ACS ??
TAN NOT ?TAN ACS *?TAN INPUT ÷?
TAN E??U??RETURN C$RETURN ñC-
RETURN òC3RETURN óCCTAN ·?TAN
ACS SIN ?TAN ??TAN ACS INT ?TAN
*?TAN ACS NOT ?TAN INPUT ÷?TAN
TAN U???U??(M??U???U??(M??5??QñU
??ACS ?C$YCOPY M??U??GOSUB ?M??U
???U??ACS B(M??U??M??U??M???U??(
C??VAL U??M??WM??U??M??LN 2
INKEY$U??ACS ?43U???U?? M??U???U
??(ACS B?U?? M??/$U??ACS B?U?? M
??AT (Q5??ACS :TAN U??M??U??M??
LN 2INKEY$TAN U???U??(M??U???U??
(M??5??QñACS ?C$YCOPY M??U??
GOSUB ?M??U???U??ACS B(M??U??M??
U??M???U??(C8?VAL U??M??WM??U??M
??LN 2INKEY$U??ACS ?43U???U?? M?
?U???U??(ACS B?U?? M??/$U??ACS B
?U?? M??AT (Q5??ACS :TAN 5??ACS
EXP U??M??U??M??U??M??U??M??U???
U??(KòGOSUB ??U???U??(KòGOSUB ?)
S)U???U??( AND CODE PILN W??
CODE PIU???U??( AND =PILN W??=PI
U???U??M???M??U???U??M???M??TAN
CHR$ RNDRETURN RNDKú5??) ?;
CHR$ RND51?) ?RZGOSUB ?CHR$ 5?
?) ?;51?) ?RZGOSUB ?ZRETURN C
3?U??5 ?FAST SGN ;(CLEAR ö÷ACS
XACS WKòACS CLEAR (PLOT ACS ?
COS ?GOSUB ??TAN ñòó?? òöôõòöô
õòññCOPY ôõ óöù£(<-;0369CFILNQT
WZINKEY$????????????????????????
??
30841 ????
2 RAND USR 16565
3 STOP
4 SAVE "PICASM"
5 RUN