home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8702a.d64 / modul-schreiber (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.