1000 OPEN1,3:OPEN2,0:SYS49152
1010 INPUT#2,A$
1020 PRINTCHR$(13)"";:GET#1,B$:PRINT""CHR$(34);:POKE212,0:PRINT"";
1030 INPUT#1,A$:PRINT""B$:B$=B$+A$:PRINTB$:GOTO1010
1040 :
1050 TANSAVE "",8
1060 TAN THE 68000
1070 TAN CROSS ASSEMBLER
1080 TAN (C) 1985 BY
1090 TAN COSMOS VERIFY.
1100 TAN 4. 11. 1985
1110 TAN
1120 TAN
1130 SQR 49152
1140 TAN
1150 VFRE 53248
1160 SIFRE 54272
1170 SPXFRE V
1180 SPYFRE SPXCOS1
1190 X9FRE VCOS16
1200 TAN
1210 GETFRE RNDFFE4
1220 BSOUTFRE RNDFFD2
1230 SETCURSORFRE RNDE56C
1240 TAN
1250 SPALTEFRE 211
1260 ZEILEFRE 214
1270 CURSORFRE 204
1280 TTMPFRE 205
1290 TABPTRFRE 206
1300 TAN
1310 INITRETURN #11
1320 IF 2040
1330 REM #63
1340 RETURN #0
1350 L1IF 704,X
1360 +
1370 AND L1
1380 RESTORE 766
1390 CLOSE
1400 RETURN #ATNISR
1410 IF 788
1420 RETURN #PEEKISR
1430 IF 789
1440 CMD
1450 TAN
1460 TAN
1470 RETURN #0
1480 REM #24
1490 INIT1IF SI,X
1500 +
1510 AND INIT1
1520 TAN
1530 RESTORE 650
1540 RETURN #3 TAN CYAN
1550 IF 646
1560 TAN
1570 SYS
1580 TAN
1590 TAN
1600 ISRRETURN VCOS21
1610 DATA #254
1620 REM CURSOR
1630 INT ISR1
1640 END #1
1650 ISR1IF VCOS21
1660 RETURN X9
1670 DATA #254
1680 REM SPALTE
1690 *
1700 LOAD #32
1710 < ISR2
1720 END #1
1730 ISR2IF X9
1740 NEW
1750 FOR
1760 FOR
1770 FOR
1780 IF SPX
1790 RETURN ZEILE
1800 FOR
1810 FOR
1820 FOR
1830 PRINT#
1840 LET #37
1850 IF SPY
1860 TAN
1870 RETURN 198
1880 IF TTMP
1890 USR RNDEA87 TAN T'ABFRAGE
1900 RETURN #0
1910 IF 199
1920 IF 212
1930 IF 216
1940 RETURN 646
1950 IF VCOS39
1960 TAN
1970 RETURN 198
1980 ON TTMP
1990 ABS ISRAUS
2000 GOSUB #2
2010 RUN SICOS24
2020 GOSUB #48
2030 ISR3GET
2040 INT ISR3
2050 RUN SICOS24
2060 TAN
2070 RETURN 203
2080 ON #57 TAN ""
2090 INT ISRAUS
2100 WAIT 198
2110 REM 654 TAN SHIFT
2120 INT ISR6
2130 TAN
2140 +
2150 ISR5*
2160 LOAD #6
2170 ABS ISRAUS
2180 RETURN TABTAB,X
2190 ON SPALTE
2200 < ISR5
2210 ABS ISR5
2220 IF SPALTE
2230 USR SETCURSOR
2240 READ ISRAUS
2250 TAN
2260 ISR6REM #6
2270 ISR7+
2280 OR ISRAUS
2290 RETURN TABTAB,X
2300 ON SPALTE
2310 SGN ISR7
2320 IF SPALTE
2330 USR SETCURSOR
2340 TAN
2350 TAN
2360 ISRAUSUSR RNDFFEA
2370 READ RNDEA7E
2380 TAN
2390 TAN
2400 TABTABPOS 0,5,13,18,30,39
READY.
