1 IFPEEK(49153)<>225THENLOAD"UHRZEIT",8,8
2 CC$=CHR$(8)+CHR$(13)+"
4 RE$[178]"P
5 PRINT"[147][211]CHECKEINREICHUNGSFORMULARE BEDRUCKEN   ([203]OMPLETT)
6 [153]"NH-170291-ARR REV"RE$"":[141]1000
8 VO$[178]"(null)(null).(null)(null).91":[139]UH[167]VO$[178][201](A$,8)
9 [153]""VO$"ONON
10 INPUT"HEUT. [196]ATUM ";D$:REMA$="":GOSUB400
11 INPUT"[211]CHECKNUMMER ";SN$
13 INPUT"[194][204][218] BEZ. [194]ANK ";BZ$
14 IFLEN(BZ$)<>8THENPRINT"[145][145][145]":GOTO13
15 INPUT"[194]ETRAG [196][205] ";DM$
16 IFDM$=""THENPRINT"[145][145][145]":GOTO15
17 INPUT"[214]ERMERK ";VM$
18 IFLEN(VM$)>14THENPRINT"[145][145][145]":GOTO17
20 PRINT"[198]ORMULAR EINLEGEN:
30 [153]"STR$RUCKKOPFOBERKANTE AN ASCORMULAROBERKANTE
40 PRINT"[204]INKEN [210]AND AN RECHTEN [203]LEBSTREIFENRAND
45 [153]"8 LINES PER INCH (KLEINER ATNBSTAND)
50 POKE198,.:WAIT198,1
55 PRINT"[207]KAY. [196]RUCK LAEUFT
60 [159]4,4,7:[152]4,"-"CC$;
70 [152]4,"38"KC$:[152]4
90 [152]4,"05(null)IKOLAUS LEFT$EUSLER38"DG$"47"D$:DG$[178]"((null)(null)(null)RIGHT$VAL)
91 PRINT#4,"14[163][163][163][163][163][163][163]
100 [129]I[178]1[164]5:[152]4:[130]
101 [152]4,"05"SN$"20"BZ$"32+"DM$",-47"VM$CC$
109 [129]I[178]1[164]5:[152]4,"08-----":[152]4:[130]
112 [152]4,CC$"08EINER19XXXXXXX32+"DM$",-
114 CLOSE4
116 POKE198,.:PRINT"FUER DRUCK-WIEDERHOLUNG TASTE DRUECKEN
118 [146]198,1:[137]20
400 [129]F[178]1[164][195](A$):[151]630[170]F,[198]([202](A$,F)):[130]:[151]198,F[171]1:[142]
999 [128]
1000 [158]49152,1:UH[178][194](2)
1006 [139]UH[167][153]"(null)IT";:[137]1010
1008 [153]"(null)HNE";
1010 [153]" VALCHTZEITUHR ";:[139]UH[167][158]49155,0,A$:[153]A$;
1012 [153]
1014 KC$[178][199]([187](0)[172]26[170]65)[170][199]([187](0)[172]26[170]65)
1016 KC$[178]KC$[170][199]([187](0)[172]10[170]48)[170][199]([187](0)[172]10[170]48)[170]" V"[170]RE$
1018 [142]