1 SYS20000,A$:PRINTA$:GOTO1
1000 TAN
1010 TAN GETSTRING
1020 TAN
1030 SQR 20000
1040 TAN
1050 USR RNDAEFD TAN CKOM
1060 RETURN #RND2C TANKOMMA
1070 IF RND01FF
1080 USR RNDA560 TANZEILE HOLN
1090 RETURN RND200
1100 INT W1
1110 READ RNDABF3
1120 W1RETURN #0
1130 IF RND11
1140 RESTORE RND43
1150 RUN RND44
1160 USR RNDB08B TANSUCHT VAR.
1170 IF RND49
1180 RUN RND4A
1190 RETURN RND7A
1200 GOSUB RND7B
1210 IF RND4B
1220 RUN RND4C
1230 REM RND43
1240 GOSUB RND44
1250 RESTORE RND7A
1260 RUN RND7B
1270 RETURN RND7A
1280 LET #00
1290 < W2
1300 STEP
1301 W2REM #0
1310 USR RNDB489
1320 USR RNDB7E2
1330 USR RNDA9DA
1340 RETURN RND7A
1350 GOSUB RND7B
1360 IF RND43
1370 RUN RND44
1380 RETURN RND4B
1390 GOSUB RND4C
1400 IF RND7A
1410 RUN RND7B
1420 SYS
1430 TAN
READY.
