2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     SN\.800
4 ! Utg}va  1.0      1983-06-04
5 ! av (c) Niklas Notteman
8 ! Ins{nt av Niklas Notteman, 995.
9 ! Programmet {r avsett f|r ABC800 C.
10 ! +++++++++++++++++++++++++++++++++++
100 ! ... ** SN\ ** ...
110 ! ABC800 C version
120 ! Program av Niklas Notteman (995)
130 ! 
140 FLOAT : EXTEND 
150 DIM Flinga%(77%)
160 FOR I%=0% TO 77%
170   Flinga%(I%)=RND*63%
180 NEXT I% 
190 ; CHR$(12%)
200 FOR Rad%=0% TO 21%
210   ; CUR(Rad%,0%) GWHT;
220 NEXT Rad% 
230 ; CUR(22%,5%) RED NWBG DBLE WHT ' Men se det sn|ar.. ' BLBG;
240 ! I'm dreaming of a white christmas
250 FOR I%=0% TO 77%
260   P%=Flinga%(I%) : Flinga%(I%)=(Flinga%(I%)-1%) AND 63%
270   TXPOINT I%,P%+6%,0% : TXPOINT I%,Flinga%(I%)+6%,1%
280 NEXT I% 
290 ; CHR$(7%);
300 GOTO 250
310 ! (Det g}r ocks} att g|ra ett 'IF TXPOINT(..'-
320 ! arrangemang, s} att sn|n ligger kvar)