home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / modul-schreiber (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  70 lines
  1. 100 rem ** hb-modul-schreiber **
  2. 110 dim an$(16),as$(16),ae$(16),ad$(16):cr$=chr$(13)
  3. 120 input"[147][205]odulnummer";mo
  4. 130 print"[197]ingabe, [211]chreiben, [206]eu, [201]nst, [196]el, [209]uit
  5. 140 [141] 240:[141]300
  6. 150 [161]t$:[139]t$[178]""[167]150
  7. 160 [139]t$[178]"q"[167][153]"":[128]
  8. 170 [139]t$[178]"s"[167][141]340:[137]150
  9. 180 [139]t$[178]"n"[167][138]
  10. 190 [139]t$[178]"e"[167][141]600
  11. 200 [139]t$[178]"i"[167][141]430
  12. 210 [139]t$[178]"d"[167][141]690
  13. 220 [137]150
  14. 230 [128]
  15. 240 na$[178][202]([196](mo),2,4)[170]"modul"
  16. 250 [159]15,8,15:[159] 1,8,3,na$[170]",s,r"
  17. 260 [132]1,ab$:ab[178][197](ab$)
  18. 270 [132]15,fe,un$,un$,un$:[139]fe[167][153]""[163]21)"(NULL)eer":[160]15:[142]
  19. 280 [129] k[178]1 [164] ab
  20. 290 [132]1,an$(k),as$(k),ae$(k),ad$(k):[130]:[160]1:[160]15:[142]
  21. 300 [153]"(NULL)ame               von     bis  str$aten"
  22. 310 [139]ab[178]0[167][153]"                                    ":[142]
  23. 320 [129]k[178]1[164]ab
  24. 330 [153]an$(k)[163]18)as$(k)[163]26)ae$(k)[163]34)ad$(k):[130]:[142]
  25. 340 [153]""[163]21)"(NULL)chreiben?"
  26. 350 [161]t$:[139]t$[178]"n"[167]420
  27. 360 [139]t$[179][177]"j"[167]350
  28. 370 [153]""[163]21)"str$iskette einlegen":[151]198,0:[146]198,1:[151]198,0
  29. 380 [159]15,8,15:[152]15,"s:"[170]na$:[160]15:[159] 1,8,3,na$[170]",s,w"
  30. 390 [152]1,[196](ab)
  31. 400 [129] k[178]1 [164] ab
  32. 410 [152]1,an$(k)cr$as$(k)cr$ae$(k)cr$ad$(k):[130]:[160]1
  33. 420 [153]""[163]21)"                 ":[142]
  34. 430 [153]""[163]21)"valinfuegen":[139]ab[178]0[167]ab[178]1:i[178]1:[137]540
  35. 440 :[139]ab[178]16[167]590
  36. 450 winp 0,5,0,ab[170]5,"","*";i$
  37. 460 [129]i[178]1[164][195](i$)
  38. 470 [139] [202](i$,i,1)[178]"*"[167]490
  39. 480 [130]:[141]300:[142]
  40. 490 ab[178]ab[170]1:[129]k[178]ab[164]i[169][171]1
  41. 500 an$(k)[178]an$(k[171]1):as$(k)[178]as$(k[171]1):ae$(k)[178]ae$(k[171]1):ad$(k)[178]ad$(k[171]1):[130]
  42. 510 an$(i)[178]"":as$(i)[178]"":ae$(i)[178]"":ad$(i)[178]"":[130]
  43. 520 [153]"":[129]j[178]1[164]ab:[153]"                                      ":[130]
  44. 530 [141]300:i[178]i[171]1
  45. 540 winp 0,i[170]4,15,i[170]4,"","dim";i$:an$(i)[178]i$
  46. 550 winp 18,i[170]4,22,i[170]4,"","input";i$:as$(i)[178]i$
  47. 560 winp 26,i[170]4,30,i[170]4,"","input";i$:ae$(i)[178]i$
  48. 570 [139][197](as$(i))[177][178][197](ae$(i))[167]550
  49. 580 winp 34,i[170]4,36,i[170]4,"","input";i$:ad$(i)[178]i$
  50. 590 [153]""[163]21)"         ":[142]
  51. 600 [139]ab[178]0[167][142]
  52. 610 [129]i[178]1[164]ab:k[178]i[170]4
  53. 620 winp 0,k,15,k,an$(i),"dim";i$:an$(i)[178]i$
  54. 630 winp 18,k,22,k,as$(i),"input";i$:as$(i)[178]i$
  55. 640 winp 26,k,30,k,ae$(i),"input";i$:ae$(i)[178]i$
  56. 650 [139][197](as$(i))[177][178][197](ae$(i))[167]630
  57. 660 winp 34,k,36,k,ad$(i),"input";i$:ad$(i)[178]i$
  58. 670 [130]
  59. 680 [142]
  60. 690 [153]""[163]21)"(NULL)oeschen":[139]ab[178]0[167]780
  61. 700 winp 0,5,0,ab[170]4,"","*";i$
  62. 710 [129]i[178]1[164][195](i$)
  63. 720 [139] [202](i$,i,1)[178]"*"[167]740
  64. 730 [130]:[141]300:[142]
  65. 740 ab[178]ab[171]1:[129]k[178]i[164]ab
  66. 750 an$(k)[178]an$(k[170]1):as$(k)[178]as$(k[170]1):ae$(k)[178]ae$(k[170]1):ad$(k)[178]ad$(k[170]1):[130]
  67. 760 [153]"":[129]j[178]1[164]ab[170]1:[153]"                                      "
  68. 770 [130]:[141]300
  69. 780 [153]""[163]21)"        ":[142]
  70.