home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / scheck (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  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.