1 PRINT:PRINT:PRINT 2 PRINT"RECORDER (Y/N)";:INPUT A$ 3 IF A$="Y" THEN 20000 5 GOSUB 10000 10 CLEAR 20 X=53776 30 PEN=32 40 POKE 530,1 50 DIM A(350) 100 IF PEN =32 THEN CR=43 150 IF PEN=161 THEN CR=187 200 POKE X,CR 210 POKE 57088,127 220 K=PEEK(57088) 230 IF K=127 THEN GOSUB 1000 240 IF K=191 THEN GOSUB 2000 250 IF K=223 THEN GOSUB 3000 260 IF K=239 THEN 4000 265 IF K=253 THEN GOSUB 30000 270 POKE 57088,223 280 K=PEEK(57088) 290 IF K=127 THEN GOSUB 6000 300 IF K=191 THEN GOSUB 7000 310 POKE 57088,253 320 K=PEEK(57088) 330 IF K=251 THEN GOSUB 8000 340 IF K=253 THEN GOSUB 5000 350 GOTO 210 1000 PEN=32 1100 A(I)=1:I=I+1 1200 GOTO 9000 2000 PEN=161 2100 A(I)=2:I=I+1 2200 GOTO 9000 3000 GOTO 5 3100 A(I)=3:I=I+1 3200 GOTO 9000 4000 PRINT"SAVE (Y/N)"; 4050 INPUT A$ 4100 IF A$<>"Y" THEN POKE 530,0:END 4200 PRINT"1. EIN BUCHSTABE EINTIPPEN" 4210 PRINT"2. RECORDER BEREITMACHEN" 4220 PRINT"3. RETURN DRUECKEN" 4230 PRINT"4. WARTEN BIS # ERSCHEINT" 4240 PRINT"5. RECORDER STARTEN" 4250 INPUT A$ 4260 POKE 517,255 4270 FOR T=0 TO 500 4280 NEXTT 4290 PRINT"#" 4300 FOR T=0 TO 3000 4350 NEXTT 4400 PRINTI-1 4450 FOR T=0 TO 500:NEXT 4500 FOR X=0 TO I-1 4550 PRINTA(X) 4600 NEXT X 4650 FOR T=0 TO 500:NEXT 4700 POKE 517,0 4750 POKE 530,0 4800 END 5000 IF X<53381 THEN 9000 5100 POKE X,PEN 5200 X=X-32 5250 A(I)=4:I=I+1 5300 GOTO 9000 6000 IF X>54236 THEN 9000 6100 POKE X,PEN 6200 X=X+32 6250 A(I)=5:I=I+1 6300 GOTO 9000 7000 BD=53349+32*INT((X-53349)/32) 7100 IF X=BD THEN 9000 7200 POKE X,PEN 7300 X=X-1 7350 A(I)=6:I=I+1 7400 GOTO 9000 8000 BD=53372+32*INT((X-53372)/32) 8100 IF X=BD THEN 9000 8200 POKE X,PEN 8300 X=X+1 8350 A(I)=7:I=I+1 8400 GOTO 9000 9000 B=PEEK(57088) 9100 IF B=K THEN 9000 9200 IF PEN=32 THEN CR=43 9250 IF PEN=161 THEN CR=187 9300 POKE X,CR 9350 RETURN 10000 FOR E=53248 TO 54271 10100 POKE E,32 10200 NEXT E 10300 RETURN 20000 PRINT"1. EIN BUCHSTABE EINTIPPEN":PRINT"2. RECORDER STARTEN" 20100 PRINT"3. DRUECKEN" 20200 INPUT A$ 20300 POKE 515,255 20400 INPUT P 20450 DIMA(350) 20500 FOR L=0 TO P 20600 INPUT A(L) 20700 NEXT L 20800 POKE 515,0 20900 K=0 20950 I=P+1 20999 POKE 530,1 21000 GOSUB 30000 21200 GOTO 100 30000 P=I-1:I=0 30010 PEN=32:CR=43 30020 X=53776 30030 GOSUB 10000 31000 FOR L=0 TO P 32000 ON A(L) GOSUB 1000,2000,3000,5000,6000,7000,8000 33000 NEXT L 34000 RETURN OK