10 REM PERSIAN 
20 REM ACORN COMPUTERS 
30 REM VERSION 2 / 16 NOV 81 
40 MODE1 
50 D%=4 
60 VDU 19,2,RND(3)+1,0,0,0 
70 VDU 19,3,RND(3)+4,0,0,0 
80 VDU 29,640;512; 
90 J1%=0 
100 FOR K%=500 TO 380 STEP -40 
110 REPEATJ2%=RND(3):UNTILJ2%<>J1% 
120 J1%=J2% 
130 GCOL 3, J1% 
140 FOR I%=-K% TO K% STEP D% 
150 MOVE K%,I% 
160 DRAW -K%,-I% 
170 MOVE I%,-K% 
180 DRAW -I%,K% 
190 NEXT 
200 NEXT