0 POKE 45, 0 : POKE 46, 64 : CLR : DIM U, I, P, A$ : P=PEEK(186) : GOTO 10
4 A=02467 : E=..... + 1
5 SYS 57812 "UNTERPROGRAMM .", 8 : POKE 2, A-32768 AND 255 : POKE 3, A/256
6 POKE 780, 2 : POKE 781, E-32768 AND 255 : POKE 782, E/256 : SYS 65496 : END
10 FOR I=0 TO 1 STEP 0
20 IF U THEN PRINT "[213]NTERPROGRAMM" U "GELADEN."
30 PRINT "[215]ELCHES [213]NTERPROGRAMM NACHLADEN (1-3)?"
40 GET A$ : IF A$<"1" OR "3"<A$ GOTO 40
50 SYS 57812 "UNTERPROGRAMM "+A$, P, 1 : POKE 780, 0 : SYS 65493