100 INK 1,25:INK 0,9:BORDER 9:MODE 0
200 LOCATE 9,2
300 PRINT "\o/"
400 LOCATE 1,3
500 GOSUB 10000
600 FOR i=0 TO 7:LOCATE 1,i+4:GOSUB 20000:NEXT
700 LOCATE 1,12:GOSUB 10000
800 FOR i=0 TO 7:LOCATE 1,i+13:GOSUB 20000:NEXT
900 LOCATE 1,21:GOSUB 10000
1000 GOTO 1000
9999 END
10000 PRINT "+"+STRING$(8,"-")+"+"+STRING$(8,"-")+"+"
10100 RETURN
20000 PRINT "+";STRING$(8," ");"+";STRING$(8," ");"+"
20100 RETURN

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.