home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh68a.d64 / scheck (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.2 KB  |  43 lines
  1. 1 IFPEEK(49153)<>225THENLOAD"UHRZEIT",8,8
  2. 2 CC$=CHR$(8)+CHR$(13)+"
  3. 4 RE$[178]"P
  4. 5 PRINT"[147][211]CHECKEINREICHUNGSFORMULARE BEDRUCKEN   ([203]OMPLETT)
  5. 6 [153]"NH-170291-ARR REV"RE$"":[141]1000
  6. 8 VO$[178]"(null)(null).(null)(null).91":[139]UH[167]VO$[178][201](A$,8)
  7. 9 [153]""VO$"ONON
  8. 10 INPUT"HEUT. [196]ATUM ";D$:REMA$="":GOSUB400
  9. 11 INPUT"[211]CHECKNUMMER ";SN$
  10. 13 INPUT"[194][204][218] BEZ. [194]ANK ";BZ$
  11. 14 IFLEN(BZ$)<>8THENPRINT"[145][145][145]":GOTO13
  12. 15 INPUT"[194]ETRAG [196][205] ";DM$
  13. 16 IFDM$=""THENPRINT"[145][145][145]":GOTO15
  14. 17 INPUT"[214]ERMERK ";VM$
  15. 18 IFLEN(VM$)>14THENPRINT"[145][145][145]":GOTO17
  16. 20 PRINT"[198]ORMULAR EINLEGEN:
  17. 30 [153]"STR$RUCKKOPFOBERKANTE AN ASCORMULAROBERKANTE
  18. 40 PRINT"[204]INKEN [210]AND AN RECHTEN [203]LEBSTREIFENRAND
  19. 45 [153]"8 LINES PER INCH (KLEINER ATNBSTAND)
  20. 50 POKE198,.:WAIT198,1
  21. 55 PRINT"[207]KAY. [196]RUCK LAEUFT
  22. 60 [159]4,4,7:[152]4,"-"CC$;
  23. 70 [152]4,"38"KC$:[152]4
  24. 90 [152]4,"05(null)IKOLAUS LEFT$EUSLER38"DG$"47"D$:DG$[178]"((null)(null)(null)RIGHT$VAL)
  25. 91 PRINT#4,"14[163][163][163][163][163][163][163]
  26. 100 [129]I[178]1[164]5:[152]4:[130]
  27. 101 [152]4,"05"SN$"20"BZ$"32+"DM$",-47"VM$CC$
  28. 109 [129]I[178]1[164]5:[152]4,"08-----":[152]4:[130]
  29. 112 [152]4,CC$"08EINER19XXXXXXX32+"DM$",-
  30. 114 CLOSE4
  31. 116 POKE198,.:PRINT"FUER DRUCK-WIEDERHOLUNG TASTE DRUECKEN
  32. 118 [146]198,1:[137]20
  33. 400 [129]F[178]1[164][195](A$):[151]630[170]F,[198]([202](A$,F)):[130]:[151]198,F[171]1:[142]
  34. 999 [128]
  35. 1000 [158]49152,1:UH[178][194](2)
  36. 1006 [139]UH[167][153]"(null)IT";:[137]1010
  37. 1008 [153]"(null)HNE";
  38. 1010 [153]" VALCHTZEITUHR ";:[139]UH[167][158]49155,0,A$:[153]A$;
  39. 1012 [153]
  40. 1014 KC$[178][199]([187](0)[172]26[170]65)[170][199]([187](0)[172]26[170]65)
  41. 1016 KC$[178]KC$[170][199]([187](0)[172]10[170]48)[170][199]([187](0)[172]10[170]48)[170]" V"[170]RE$
  42. 1018 [142]
  43.