0 REM               PROGRAMMPRESSE
1 POKE56,25:CLR:GOSUB54:C=6405:DIMII%(800):X=1:POKE53280,12:POKE53281,12:PRINTCHR$(8)CHR$(14)CHR$(144):INPUT"NACH PRINT VERK. (JA=0, NEIN=1)0[157][157][157]";PR:IFPR<>0ANDPR<>1THENRUN
2 INPUT"PROGRAMMNAME";N$:IFN$=""THENRUN
3 OPEN2,8,2,N$+",P,R":Y=C
4 GET#2,A$:POKE Y,ASC(A$+CHR$(0)):IFST<>0THENCLOSE2:GOSUB51:GOTO7
5 Y=Y+1:IFY<53247THEN4
6 PRINT"PROGRAMM IST ZU LANG!":CLOSE2:GOSUB51:END
7 TI$="000000":PRINT" PASS 1":GOSUB33:N=5:QQ=0:L=C+6:I=L:GOTO23
8 I=L+QQ:N=N+1:IFUSR(I)=0ANDN>4THEN11
9 IFN>4THEN28
10 POKEL,USR(I):POKE216,1:PRINTCHR$(USR(L));:POKE216,0:L=L+1:GOTO8
11 IFUSR(I+1)=0ANDUSR(I+2)=0THENPOKEL,0:POKEL+1,0:POKEL+2,0:GOTO32
12 X=1:A=USR(I+3)+256*USR(I+4):IFSP=1THENSP=0:GOTO23
13 IFII%(X)=(A-32767)THEN23
14 X=X+1:IFX<TT+1THEN13
15 LL=I+5:F=F+3
16 U=USR(LL):IFU=139ORU=142ORU=143ORU=137THENSP=1
17 IFPR=1THEN:IFU=153THENSP=1
18 IFDA=1THEN:IFU=131THENSP=1
19 IFU=0THEN21
20 LL=LL+1:GOTO16
21 IFLL>(F+255)THEN9
22 POKEL,58:PRINT":";:QQ=QQ+4:Q=Q-4:L=L+1:GOTO8
23 LL=I+5
24 U=USR(LL):IFU=139ORU=142ORU=143ORU=137THENSP=1
25 IFPR=1THEN:IFU=153THENSP=1
26 IFU=0THEN9
27 LL=LL+1:GOTO24
28 IFUSR(I)=0THENN=0:F=I:PRINT:PRINT"";USR(I+3)+256*USR(I+4);"[146]";:GOTO30
29 GOTO10
30 IFUSR(I+1)=0ANDUSR(I+2)=0THENPOKEL,0:POKEL+1,0:POKEL+2,0:PRINT,L,Q:GOTO32
31 GOTO10
32 PRINT:PRINT:PRINTTI$:OPEN2,8,2,"PR-"+N$+",P,W":FORY=CTOQ:PRINT#2,CHR$(USR(Y));:NEXT:CLOSE2:GOSUB51:END
33 L=C+1:GOTO49
34 IFUSR(L)=0THEN49
35 U=USR(L):IFU=141ORU=137ORU=138ORU=167THEN37
36 L=L+1:GOTO34
37 L=L+1:IFUSR(L)=32THEN37
38 A=L:IFUSR(L)<48ORUSR(L)>57THEN34
39 L=L+1:IFUSR(L)<48ORUSR(L)>57THENCC=L:L=L-1:GOTO41
40 GOTO39
41 B=USR(L)-48:IFUSR(L+1)=44THENO=1
42 IFL=ATHEN47
43 L=L-1:B=B+(USR(L)-48)*10:IFL=ATHEN47
44 L=L-1:B=B+(USR(L)-48)*100:IFL=ATHEN47
45 L=L-1:B=B+(USR(L)-48)*1000:IFL=ATHEN47
46 L=L-1:B=B+(USR(L)-48)*10000:IFL<>ATHEN35
47 II%(X)=(B-32767):PRINT"SPRUNG NACH";B;:X=X+1:IFO=1THENO=0:L=CC:GOTO37
48 GOTO36
49 IFUSR(L+1)=0ANDUSR(L+2)=0THENQ=L+3:TT=X:PRINT:PRINT:PRINT" PASS 2":RETURN
50 PRINT:PRINTUSR(L+3)+256*USR(L+4),:L=L+5:GOTO34
51 OPEN1,8,15:PRINT:PRINT"";
52 GET#1,A$:PRINTA$;:IFST=0ANDA$<>CHR$(13)THEN52
53 PRINT#1,"M-W";CHR$(106);CHR$(0);CHR$(1);CHR$(133):PRINT#1,"I":PRINT#1,"M-W";CHR$(6);CHR$(0);CHR$(2);CHR$(36);CHR$(1):PRINT#1,"M-W";CHR$(0);CHR$(0);CHR$(1);CHR$(128):CLOSE1:RETURN
54 FORL=704TO738:READA:POKEL,A:NEXT:DATA165,20,72,165,21,72,32,247,183,165,1,72:DATA169,52,120,133,1,160,0,177,20,168,104:DATA133,1,88,104,133,21,104,133,20,76,162,179:POKE785,192:POKE786,2:RETURN