2 A=PEEK(50053):B=PEEK(50054):C=PEEK(50055):D=A*100+B*10+C:G$="000":A$=STR$(D)
3 E=LEN(A$)-1:A$=LEFT$(G$,3-E)+RIGHT$(A$,E)
4 A=PEEK(50050):B=PEEK(50051):C=PEEK(50052):D=A*100+B*10+C:B$=STR$(D)
5 E=LEN(B$)-1:B$=LEFT$(G$,3-E)+RIGHT$(B$,E)
6 A=VAL(A$):B=VAL(B$)
7 IFB<79THENB1=1:GOTO13
8 IFB<165THENB1=2:GOTO13
9 IFB<256THENB1=3:GOTO13
10 IFB<332THENB1=4:GOTO13
11 IFB<350THENB1=5:GOTO13
12 B1=6
13 IFA<79THENA1=1:GOTO19
14 IFA<165THENA1=2:GOTO19
15 IFA<256THENA1=3:GOTO19
16 IFA<332THENA1=4:GOTO19
17 IFA<350THENA1=5:GOTO19
18 A1=6
19 IFA1=B1THEN22
20 PRINT"[159][147][194]ITTE [196]ISKETTENSEITE"A1"EINLEGEN."
21 POKE198,0:WAIT198,1
22 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8"
23 PRINT"RUN"
24 POKE631,13:POKE632,13:POKE198,2