Michael Carroll on Nostr: npub178h85…rhyhr 5 MODE 5 10 SIZE%=6 15 XC%=600 20 YC%=500 40 READ X%,Y%,X1%,Y1% 45 ...
npub178h85fgemmdfrtwxq5uehw985m0ve7akcm60z9y5z845dd4hw5ds6rhyhr (npub178h…hyhr)
5 MODE 5
10 SIZE%=6
15 XC%=600
20 YC%=500
40 READ X%,Y%,X1%,Y1%
45 REM PRINT X%, Y%, X1%, Y1%
50 IF X%=999 THEN 100
60 FX%=X%*SIZE%+XC%
65 FY%=Y%*SIZE%+YC%
70 LX%=X1%*SIZE%+XC%
75 LY%=Y1%*SIZE%+YC%
85 MOVE FX%, FY%
86 DRAW LX%, LY%
87 MOVE FX%+1, FY%
88 DRAW LX%+1, LY%
90 GOTO 40
100 END
REM PASTE DATA FROM LINE 500 BELOW
5 MODE 5
10 SIZE%=6
15 XC%=600
20 YC%=500
40 READ X%,Y%,X1%,Y1%
45 REM PRINT X%, Y%, X1%, Y1%
50 IF X%=999 THEN 100
60 FX%=X%*SIZE%+XC%
65 FY%=Y%*SIZE%+YC%
70 LX%=X1%*SIZE%+XC%
75 LY%=Y1%*SIZE%+YC%
85 MOVE FX%, FY%
86 DRAW LX%, LY%
87 MOVE FX%+1, FY%
88 DRAW LX%+1, LY%
90 GOTO 40
100 END
REM PASTE DATA FROM LINE 500 BELOW