1 DIMV(99):Z=49152:I=1:N$=CHR$(0):P$=".":E$="^":PRINT"":POKEZ,255
2 FORD=0TO6:READV$:PRINTV$:NEXT:DATA"[147][214]OKABELCHECKER [214]ERSION 1"," 1 [197]INGEBEN"
3 RESTORE:PRINT"[194]ITTE WAEHLEN [211]IE![145]":GETV$:IFV$=E$THENPRINT"[147][208]ROGRAMMENDE!":END
4 ON-(V$<"1"ORV$>"5")GOTO3:PRINT"[147]":ONVAL(V$)GOSUB5,8,14,16,19:GOTO2
5 PRINT"[147] [197]INGEBEN":V$="":INPUT" [214]OKABEL";V$:IFV$=""THEN5:DATA" 2 [193]BFRAGEN"
6 V$=V$+N$:V(I)=Z:I=I+1:IFV$=E$+N$THENI=I-1:POKEZ,255:RETURN:DATA" 3 [204]ADEN"
7 FORD=1TOLEN(V$):POKEZ,ASC(MID$(V$,D,1)):Z=Z+1:NEXT:GOTO5:DATA" 4 [211]ICHERN"
8 PRINT"[147] [193]BFRAGEN":A=INT(RND(P*A/Z)*(I-1))+1:P=V(A):IFA=>ITHENRETURN
9 W=PEEK(P):P=P+1:D=1:PRINTCHR$(W);:ON-(W<>0ANDW<>46)GOTO9:PRINT"[157] "
10 P=P-1:V$="":G$="":A$="":PRINTD;:INPUTV$:IFV$=E$THENRETURN:DATA" 5 [196]RUCKEN"
11 P=P+1:G$=G$+A$:A$=CHR$(PEEK(P)):ON1-(A$=P$ORA$=N$)GOTO11:DATA" ^ [194]EENDEN"
12 P=P+1:IFV$<>G$THENPRINT"[198]EHLER! [210]ICHTIG: ";G$
13 D=D+1:ON1-(PEEK(P-1)=0)GOTO10:PRINT"<[212]ASTE>":WAIT198,1:GETV$:GOTO8
14 GOSUB17:POKE780,0:SYS65493:I=1:Z=49152:FORC=0TO255
15 V(I)=Z:I=I+1:FORD=99TO0STEP-1:D=PEEK(Z):Z=Z+1:NEXT:C=PEEK(Z):NEXT:GOTO18
16 GOSUB17:POKE193,0:POKE194,192:POKE175,INT(Z/256)+1:SYS62957:GOTO18
17 PRINT"[147][204]ADEN/[211]ICHERN":INPUT"[206]AME";V$:SYS(57812)V$,8,1:PRINT"":RETURN
18 OPEN1,8,15:INPUT#1,W,F$,W,W:PRINTF$,"<[212]ASTE>":CLOSE1:WAIT198,1:GETV$:RETURN
19 OPEN1,3:P=49152:FORW=0TO255:W=PEEK(P):P=P+1:IFW=0THENPRINT:NEXT
20 PRINT#1,CHR$(W);:NEXT:PRINT"<[212]ASTE>":WAIT198,1:GETV$:CLOSE1:RETURN