10 GOTO220
20 POKE646,14:GET#2,A$
30 IFA$=""GOTO165
40 B=ASC(A$)
50 IFB=GTHENIFATHENA=H:GOTO120
60 IFB=GTHENA=I
70 IFA=HGOTO120
80 IFB>JTHENIFB<KTHENPRINT#4,A$;:GOTO20
90 IFB>LTHENPRINT#4,A$;:GOTO20
100 B$=","+RIGHT$(STR$(B),LEN(STR$(B))-1)
110 POKE646,I:PRINT#4,B$;:GOTO20
120 IFB>MTHENIFB<NTHENPRINT#4,A$(B-P);:GOTO20
130 IFB>NTHENIFB<QTHENPRINT#4,A$(B-R);:GOTO20
140 IFB>JTHENPRINT#4,A$;:GOTO20
150 PRINT#4,CHR$(5)","RIGHT$(STR$(B),LEN(STR$(B))-1);:GOTO20
165 FORZ=1TO3:GET#2,A$:NEXTZ
170 GET#2,B$:A$=A$+CHR$(.):B$=B$+CHR$(.)
180 IFST=66THENCLOSE1:CLOSE2:PRINT#4:CLOSE4:END
190 C=ASC(A$):D=ASC(B$):E=256*D+C
200 A$=STR$(E):B$=RIGHT$(A$,LEN(A$)-1)+" "
210 PRINT:PRINT#4,B$;:A=.:GOTO20
220 CLR:PRINTCHR$(142)CHR$(147)CHR$(5)"
230 [153]"  =  = (null)RIGHT$ OR=^ ^(null)RIGHT$ (null)RIGHT$= (null)RIGHT$ (null)RIGHT$ ^(null)RIGHT$ OR^ ORRIGHT$
240 PRINT"  [221]  [221] [202][201]  [221]  [171][177][201] [221][202][179] [171][179] [221]  [171][177][201] [171]  [171][179]
250 [153]"  /EXP >CLOSEMID$(null)  >  EXP MID$ > > (null)MID$ MID$(null) EXP MID$ /EXP >MID$
260 PRINTTAB(17)"BY
270 [153][163]8)"I.C.G. BERLIN IN 1985 "[199](154)
280 G[178]34:I[178]1:J[178]31:K[178]128:L[178]159:M[178]127:N[178]204:P[178]128:Q[178]256:R[178]205
290 [153][163]7)"DISKETTE EINLEGEN ! (CTRL)":[151]649,.:[146]653,4:[151]649,10
300 [159]1,8,15,"I0":[153][163]4)
310 [133]"PROGRAMMNAME ";NA$
320 [159]2,8,0,"0:"[170]NA$
330 [132]1,EN,EN$
340 [139]EN[167][153][163]17)""EN:[153][163]20[171][181]([195](EN$)[173]2))EN$:[128]
350 [134]A$(75):[129]Z[178].[164]75:[135]A$(Z):[130]Z:[153][199](147)
360 [129]Z[178].[164]1:[161]#2,A$:[130]Z:[159]4,4:[137]165
370 [131]END,FOR,NEXT,DATA,"INPUT#"
380 [131]INPUT,DIM,READ,LET,GOTO,RUN
390 [131]IF,RESTORE,GOSUB,RETURN
400 [131]REM,STOP,ON,WAIT,LOAD,SAVE
410 [131]VERIFY,DEF,POKE,"PRINT#",PRINT
420 [131]CONT,LIST,CLR,CMD,SYS,OPEN
430 [131]CLOSE,GET,NEW,"TAB(",TO,FN
440 [131]"SPC(",THEN,NOT,STEP,+
450 [131]-,*,/,^,AND,OR,">"
460 [131]=,"<",SGN,INT,ABS,USR,FRE
470 [131]POS,SQR,RND,LOG,EXP,COS,SIN
480 [131]TAN,ATN,PEEK,LEN,"STR$",VAL
490 [131]ASC,"CHR$","LEFT$","RIGHT$"
500 [131]"MID$",GO