1000 GOSUB #0
1010 RUN 53280
1020 RUN 53281
1030 RETURN #11
1040 IF 53265
1050 RUN 53269
1060 TAN
1070 RETURN #7
1080 IF 56576
1090 REM #0
1100 C0+
1110 INT C0
1120 RESTORE 253
1130 TAN
1140 TAN
1150 GETBLOCKCLOSE
1160 RETURN #LOG00100111
1170 IF 56576
1180 C1NEXT 56576
1190 > C1
1200 TAN
1210 RETURN #3
1220 IF 56576
1230 REM #9
1240 C2+
1250 INT C2
1260 TAN
1270 C3REM #4
1280 C4RETURN 56576
1290 FOR
1300 POKE
1310 FOR
1320 INPUT# 251
1330 PRINT
1340 INPUT# 251
1350 +
1360 INT C4
1370 RETURN 251,X
1380 IF (174),Y
1390 STEP
1400 INT C3
1410 TAN
1420 RETURN #LOG00010111
1430 IF 56576
1440 RETURN 251
1450 SYS
1460 TAN
1470 TAN
1480 GETBYTECLOSE
1490 RETURN #LOG00100111
1500 IF 56576
1510 C5NEXT 56576
1520 > C5
1530 TAN
1540 RETURN #3
1550 IF 56576
1560 REM #8
1570 C6+
1580 INT C6
1590 TAN
1600 REM #4
1610 C7RETURN 56576
1620 FOR
1630 POKE
1640 FOR
1650 INPUT# 251
1660 PRINT
1670 INPUT# 251
1680 +
1690 INT C7
1700 TAN
1710 RETURN #LOG00010111
1720 IF 56576
1730 /
1740 /
1750 /
1760 RETURN 251
1770 SYS
1780 TAN
1790 TAN
1800 TAN
1810 RETURN #8
1820 IF 6144
1830 READ 894
1840 TAN
1850 SENDBLOCKREM #1
1860 CMD
1870 NEW
1880 F1NEXT 6144
1890 ABS F1
1900 TAN
1910 CLOSE
1920 RETURN #0
1930 IF 6144
1940 NEW
1950 F2NEXT 6144
1960 INT F2
1970 /
1980 TAN
1990 F3REM #4
2000 RETURN (10),Y
2010 INPUT #255
2020 IF 20
2030 F4RETURN #0
2040 FOR 20
2050 INPUT#
2060 FOR
2070 FOR 20
2080 INPUT#
2090 FOR
2100 IF 6144
2110 +
2120 INT F4
2130 /
2140 /
2150 /
2160 STEP
2170 INT F3
2180 TAN
2190 /
2200 /
2210 /
2220 RETURN #8
2230 IF 6144
2240 SYS
2250 TAN
2260 TAN
2270 SENDBYTEINPUT #255
2280 CMD
2290 IF 20
2300 REM #1
2310 NEW
2320 F5NEXT 6144
2330 ABS F5
2340 TAN
2350 CLOSE
2360 RETURN #0
2370 IF 6144
2380 NEW
2390 F6NEXT 6144
2400 INT F6
2410 TAN
2420 REM #4
2430 F7RETURN #0
2440 FOR 20
2450 INPUT#
2460 FOR
2470 FOR 20
2480 INPUT#
2490 FOR
2500 IF 6144
2510 +
2520 INT F7
2530 TAN
2540 REM #3
2550 F8+
2560 INT F8
2570 RETURN #8
2580 IF 6144
2590 SYS
READY.
