1 SYS20000,0,1,0,5,3*16+3,6*16+14,7*16+8,5,34,1
2 SYS20037,25,27,40,50,98,210,250,258,282,284
3 END
4 TAN
1000 TAN
1010 TAN RASTER INTERRUPT
1020 TAN
1030 TAN 9.8.1985 CW
1040 TAN
1050 TAN
1060 SQR 20000
1070 TAN
1080 ZAEHLERFRE 252
1090 ANZAHLFRE 253
1100 ANZAHLTMPFRE 254
1110 TAN
1120 CHRGETFRE RND0073
1130 FRMNUMFRE RNDAD8A
1140 GETADRFRE RNDB7F7
1150 TAN
1160 TAN
1170 TAN
1180 EINSPRUNG1RETURN #0
1190 IF ANZAHLTMP
1200 TAN
1210 LOOP1USR GETNEXT
1220 < WEITER1
1230 TAN
1240 ON #0
1250 INT IQERR
1260 TAB(
1270 REM ANZAHLTMP
1280 IF BCOL,X
1290 DIM
1300 DIM
1310 DIM
1320 DIM
1330 IF FCOL,X
1340 TAN
1350 *
1360 RESTORE ANZAHLTMP
1370 LOAD #16
1380 < LOOP1
1390 READ OUTOFMEM
1400 TAN
1410 WEITER1SYS
1420 TAN
1430 TAN
1440 TAN
1450 EINSPRUNG2RETURN #0
1460 IF ANZAHLTMP
1470 TAN
1480 LOOP2USR GETNEXT
1490 < WEITER2
1500 TAN
1510 ON #1
1520 ABS PRUEFY
1530 < WERTOK
1540 TAN
1550 IQERRUSR RASTERAUS
1560 READ RNDB248
1570 TAN
1580 PRUEFYSTOP #56
1590 SGN IQERR
1600 RETURN #128
1610 TAN
1620 WERTOKEND #27
1630 REM ANZAHLTMP
1640 IF RASTERH,X
1650 TAB(
1660 IF RASTERL,X
1670 TAN
1680 *
1690 RESTORE ANZAHLTMP
1700 LOAD #16
1710 < LOOP2
1720 TAN
1730 OUTOFMEMUSR RASTERAUS
1740 READ RNDA435
1750 TAN
1760 TAN
1770 WEITER2RETURN ANZAHLTMP
1780 ABS RASTERAUS
1790 IF ANZAHL
1800 TAN
1810 RETURN 789
1820 ON #PEEKISR
1830 ABS WEITER3
1840 TAN
1850 CLOSE
1860 IF VECTORCOS1
1870 RETURN 788
1880 IF VECTOR
1890 RETURN #PEEKISR
1900 IF 789
1910 RETURN #ATNISR
1920 IF 788
1930 RETURN #129
1940 IF 53274
1950 RETURN #127
1960 IF 56333
1970 TAN
1980 RETURN 53280
1990 IF COLORS
2000 RETURN 53281
2010 IF COLORSCOS1
2020 TAN
2030 RETURN RASTERL
2040 IF 53266
2050 RETURN RASTERH
2060 IF 53265
2070 TAN
2080 REM #0
2090 RESTORE ZAEHLER
2100 TAN
2110 CMD
2120 TAN
2130 WEITER3SYS
2140 TAN
2150 TAN
2160 RASTERAUSCLOSE
2170 RETURN #128
2180 IF 53274
2190 RETURN VECTOR
2200 IF 788
2210 RETURN VECTORCOS1
2220 IF 789
2230 RETURN COLORS
2240 IF 53280
2250 RETURN COLORSCOS1
2260 IF 53281
2270 RETURN #129
2280 IF 56333
2290 CMD
2300 SYS
2310 TAN
2320 TAN
2330 GETNEXTGOSUB #0
2340 RETURN #RND2C TAN KOMMA
2350 ON (RND7A),Y TAN ZEICHEN
2360 INT NONEXT
2370 TAN
2380 USR CHRGET
2390 USR FRMNUM
2400 USR GETADR
2410 CONT
2420 SYS
2430 NONEXTPRINT#
2440 SYS
2450 TAN
2460 TAN
2470 TAN
2480 ISRRETURN 53273
2490 IF 53273
2500 CMD
2510 TAN
2520 REM ZAEHLER
2530 GOSUB RASTERL,X
2540 RETURN BCOL,X
2550 IF 53280
2560 RETURN FCOL,X
2570 IF 53281
2580 RUN 53266
2590 GOSUB RASTERH,X
2600 RUN 53265
2610 TAN
2620 *
2630 LOAD ANZAHL
2640 < ISR1
2650 REM #0
2660 ISR1RESTORE ZAEHLER
2670 TAN
2680 RETURN 56333
2690 DATA #1
2700 INT ISR2
2710 TAN
2720 OPEN
2730 FN
2740 OPEN
2750 SPC(
2760 OPEN
2770 LIST
2780 TAN
2790 ISR2POS 76 TAN READ
2800 TAN
2810 VECTORPOS 49,234
2820 TAN
2830 COLORSPOS 14,6
2840 TAN
2850 RASTERLPOS 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2860 RASTERHPOS 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2870 BCOLPOS 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
2880 FCOLPOS 15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
READY.
