1 IFPEEK(51201)<>253THENLOAD"USING",8,8
10 INPUT"BETRAG IN DM";DM
20 SYS51200,DM,15,128,1,2,42,2,BE$
30 PRINT"BETRAG: DM ";BE$
40 END