1 IFPEEK(49152)+PEEK(49153)<>301THENLOAD"UHRZEIT",8,8
2 POKE53280,0:POKE53281,.
3 PRINT"[147][142]ZENTRALBUCHHALTUNG (ZEBUHA)       02.91
4 [153]"NIKOLAUS HEUSLER    /   MARKT & TECHNIK
5 PRINT"---------------------------------------
6 [153]"DATUM:            UHRZEIT:         VP.2
7 PRINT"---------------------------------------
8 [158]49152,1:UH[178][194](2)
9 [134]AA$(20):[153]:[153]
10 [135]A$,AA$(I):[139]A$[178]"#"[167]100
12 [153]:[151]646,1[170]H[172]11:[153]" "[199](I[170]65)" - "A$:I[178]I[170]1:H[178]1[171]H
14 [137]10
51 [131]AUSGABENVERWALTUNG,AUSGABEN
52 [131]EINNAHMENVERWALTUNG,EINNAHMEN
53 [131]G + V RECHNUNG,G+V RECHNUNG,GESAMTUEBERSICHT,GESAMT
58 [131]DIAGRAMM,DIAGRAMM,WOCHENTAGSAUSWERTUNG,WOTAG
59 [131]UEBERWEISUNG,UEBERWEISUNG,SCHECK EINREICHEN,SCHECK
60 [131]BAR-EINZAHLUNG,EINZAHLUNG,#,#
100 [139]UH[167][158]49155,128,A$:[153]"LIST"A$;
101 [139]UH[167][158]49155,0,A$:[153]"";[200](A$,5)
110 [161]A$:[139]A$[179]"A"[176]A$[177][199](I[170]64)[167]100
112 I[178][198](A$)[171]65
114 [153]"LOADSTOPL(null)"[199](34)AA$(I)[199](34)",8,0
116 PRINT"P[207]646,1:RUN
118 [153]""AA$(I)" WIRD GELADEN...STOP
120 POKE198,3:POKE631,19:POKE632,13:POKE633,13
300 :
301 :
400 REM BUCHHALTUNGS-SYSTEM C64         "       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
401 [143] NIKOLAUS HEUSLER
402 [143] ZWENGAUERWEG  18
403 [143] 8000 MUENCHEN 71                                                      .
404 [143] COPYRIGHT IS MOST STRENUOUSLY RESERVED. OUR LAWYERS ARE WATCHING !!
405 [143] BUT PLEASE COPY ME, I WANT TO TRAVEL...