dos33fsprogs/appleiibot/snow.bas
2020-12-05 22:34:28 -05:00

3 lines
334 B
QBasic

1REM(V\J A_)Y4!+5P1YT!+5P!Y(\\J%A_Y_I_A_RHD!J A_H H@I_($]I_O7 D)ZRF*"\]I_I_X#D!&:!T .Z!A_Y_Q_\JTS 0 #& <! 08 3& , <! 9,!0 ,!/!0 ,?0!,!< ?!,!<' &#># 80 P1A,A2 *>W:&!$)H!A5G !4.1D,9).P ! #P! !#C(A+A,2,RP -
2FORI=0TO165:C%=(PEEK(2219+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C%+4*(PEEK(2054+I)-32-INT(C%/4)):NEXT:CALL768