home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / apfel_bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  116 lines
  1. 10 rem ********************************
  2. 11 rem *                              *
  3. 12 rem *         apfelprinter         *
  4. 13 rem *         written 1985         *
  5. 14 rem *        by peter siepen       *
  6. 15 rem *     von-stephan-strasse 6    *
  7. 16 rem *       4200 oberhausen 1      *
  8. 17 rem *                              *
  9. 18 rem ********************************
  10. 100 a=a+1:ifa=1thenload"apfel/obj",8,1
  11. 110 poke55,0:poke56,32:clr
  12. 120 rem *** speichergrenze setzen ***
  13. 130 :
  14. 140 :
  15. 1000 rem ********** menue ***********
  16. 1003 poke53280,11:poke53281,0:printchr$(5);
  17. 1005 printchr$(8)chr$(14)
  18. 1010 print"[147]"tab(15)"[205] e n u e"
  19. 1020 print"  1 [146] [194]erechnen"
  20. 1030 print"  2 [146] [196]rucken"
  21. 1040 print"  3 [146] [211]peichern"
  22. 1050 print"  4 [146] [204]aden"
  23. 1100 geta$:ifa$=""then1100
  24. 1110 ifval(a$)<1orval(a$)>4then1100
  25. 1120 on val(a$)goto2000,3000,5000,6000
  26. 1130 goto1000
  27. 1140 :
  28. 1150 :
  29. 1900 rem ****** werte eingeben *******
  30. 2000 print"[147] [215] e r t e :"
  31. 2010 input " [204]inker [210]and  ";li
  32. 2020 input " [210]echter [210]and ";re
  33. 2030 input " [213]nterer [210]and ";un
  34. 2040 input " [207]berer [210]and  ";ob
  35. 2050 input " [212]iefe        ";t
  36. 2060 ift<5ort>254then2050
  37. 2065 rem maschinenprg aufrufen
  38. 2070 poke821,0
  39. 2080 poke52999,t
  40. 2090 sys 49152,li,re,un,ob
  41. 2100 poke53280,0
  42. 2110 goto1000 : rem menue
  43. 2120 :
  44. 2130 :
  45. 3000 rem ********** drucken **********
  46. 3010 print"[147] [196] r u c k e n "
  47. 3020 print:print:print" [215]ollen [211]ie normal oder invers [196]rucken ?"
  48. 3030 geta$:ifa$<>"n"anda$<>"i"then3030
  49. 3040 ifa$="n"thenpoke820,0   :rem (NULL)aske
  50. 3050 ifa$="i"thenpoke820,255
  51. 3060 print:print:print" [198]ertig ?"
  52. 3070 geta$:ifa$=""then3070
  53. 3080 poke821,255 : rem aufruf mc-prg
  54. 3090 sys49161
  55. 3100 print"[147] [198]ertig"
  56. 3110 print:print" [215]ollen [211]ie die [215]erte ausdrucken lassen"
  57. 3120 geta$:ifa$<>"j"anda$<>"n"then3120
  58. 3130 ifa$="n"then1000  :rem menue
  59. 3140 open 4,4,7 :rem werte drucken
  60. 3150 fori=1to3:print#4:next
  61. 3160 print#4,"[204]inker [210]and  : ";li;
  62. 3170 print#4,chr$(16)"40";
  63. 3175 print#4,"[210]echter [210]and : ";re
  64. 3178 print#4,chr$(13)
  65. 3180 print#4,"[213]nterer [210]and : ";un;
  66. 3185 print#4,chr$(16)"40";
  67. 3190 print#4,"[207]berer [210]and  : ";ob
  68. 3200 print#4,chr$(13)
  69. 3210 print#4,"[212]iefe : ";peek(52999)
  70. 3220 close4
  71. 3230 goto1000 :rem menue
  72. 3240 :
  73. 3250 :
  74. 5000 rem ******** speichern *********
  75. 5005 print"[147] [211] p e i c h e r n"
  76. 5010 print:print:input " [206]ame ";na$
  77. 5015 rem name uebergeben
  78. 5020 iflen(na$)>16thenna$=left$(na$,16)
  79. 5030 fori=1tolen(na$)
  80. 5040 poke828+i-1,asc(mid$(na$,i,1))
  81. 5050 next
  82. 5055 poke822,len(na$)
  83. 5060 sys49155 : rem aufruf mc-prg
  84. 5070 open15,8,15 : rem fehlerkanal
  85. 5080 input#15,en,er$,a,a
  86. 5090 print""en,er$
  87. 5100 close15
  88. 5110 geta$:ifa$=""then5110
  89. 5120 goto1000: rem menue
  90. 5130 :
  91. 5140 :
  92. 6000 rem ********* laden ************
  93. 6005 print"[147] [204] a d e n"
  94. 6010 print:print:input " [206]ame ";na$
  95. 6015 rem name uebergeben
  96. 6020 iflen(na$)>16thenna$=left$(na$,16)
  97. 6030 fori=1tolen(na$)
  98. 6040 poke828+i-1,asc(mid$(na$,i,1))
  99. 6050 next
  100. 6055 poke822,len(na$)
  101. 6060 sys49158 : rem aufruf mc-prg
  102. 6070 open15,8,15 :rem fehlerkanal
  103. 6080 input#15,en,er$,a,a
  104. 6090 print""en,er$
  105. 6100 close15
  106. 6110 geta$:ifa$=""then6110
  107. 6115 rem werte ausgeben
  108. 6120 print"[210]echter [210]and : ";re
  109. 6130 print"[204]inker [210]and  : ";li
  110. 6140 print"[207]berer [210]and  : ";ob
  111. 6150 print"[213]nterer [210]and : ";un
  112. 6160 print"[212]iefe        : ";peek(52999)
  113. 6170 geta$:ifa$=""then6170
  114. 6180 goto1000:rem menue
  115. 6190 rem ende
  116.