home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_B.d64 / super-hardcopy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  117 lines
  1. 10 rem*********************************
  2. 11 rem*                               *
  3. 12 rem*         super-hardcopy        *
  4. 13 rem*                               *
  5. 14 rem*    1985 by christian stetter  *
  6. 15 rem*                               *
  7. 16 rem*          haydnstr.17          *
  8. 17 rem*                               *
  9. 18 rem*        8850 donauwoerth       *
  10. 19 rem*                               *
  11. 20 rem*********************************
  12. 100 poke 53281,006
  13. 110 poke45,140:poke46,020
  14. 120 poke47,003:poke48,021
  15. 130 poke49,250:poke50,021
  16. 140 f$(0)=" schwarz   :"
  17. 150 f$(1)=" weiss     :"
  18. 160 f$(2)=" rot       :"
  19. 170 f$(3)=" tuerkis   :"
  20. 180 f$(4)=" violett   :"
  21. 190 f$(5)=" gruen     :"
  22. 200 f$(6)=" blau      :"
  23. 210 f$(7)=" gelb      :"
  24. 220 f$(8)=" orange    :"
  25. 230 f$(9)=" braun     :"
  26. 240 f$(10)=" hellrot   :"
  27. 250 f$(11)=" grau 1    :"
  28. 260 f$(12)=" grau 2    :"
  29. 270 f$(13)=" hellgruen :"
  30. 280 f$(14)=" hellblau  :"
  31. 290 f$(15)=" grau 3    :"
  32. 300 ae%=0:print"[147][154]         *** super hardcopy ***"
  33. 310 print"     [157]   1985 by christian stetter"
  34. 320 gosub830:gosub860:gosub890:gosub900:gosub910:gosub920:gosub930:gosub970
  35. 330 print"";:gosub830
  36. 340 geta$:ifa$=""then340
  37. 350 ifa$=chr$(157)thenae%=1:print"[145][145]";:gosub830
  38. 360 ifa$=chr$(29)thenae%=0:print"[145][145]";:gosub830
  39. 370 ifa$<>chr$(13)then340
  40. 380 print"[145][145][154]";:gosub830:ifae%=0then 730
  41. 390 print"";:gosub860
  42. 400 geta$:ifa$=""then400
  43. 410 ifa$=chr$(157)thenin%=0:print"[145][145]";:gosub860
  44. 420 ifa$=chr$(29)thenin%=1:print"[145][145]";:gosub860
  45. 430 ifa$<>chr$(13)then400
  46. 440 print"[145][145][154]";:gosub860
  47. 450 print"";:gosub890:printtab(15)"[145]";:inputga%
  48. 460 print"[145][154]";:gosub890
  49. 470 print"";:gosub900:printtab(15)"[145]";:inputsa%
  50. 480 print"[145][154]";:gosub900
  51. 490 print"";:gosub910:printtab(15)"[145]";:inputst$:gosub1020
  52. 500 print"[145][154]";:gosub910
  53. 510 print"";:gosub920:printtab(15)"[145]";:inputgr$:gosub1100
  54. 520 print"[145][154]";:gosub920
  55. 530 print"";:gosub930:poke214,11:sys58732
  56. 540 geta$:ifa$=chr$(141)then print"[145][154]":gosub930:goto730
  57. 550 ifa$=chr$(13)then 580
  58. 560 ifa$<"0" or a$>"5" then 540
  59. 570 ct%=val(a$):goto 530
  60. 580 print"[154]";:gosub930
  61. 590 poke214,14:sys58732
  62. 600 for i=0 to 7
  63. 610 print"";f$(i)f%(i,ct%);
  64. 620 poke213,19:input"[157][157][157][157]";f%(i,ct%)
  65. 630 if f%(i,ct%)<0 or f%(i,ct%)>8 then printtab(15)"[145]";:goto620
  66. 640 print"[145][154]";f$(i)f%(i,ct%)
  67. 650 nexti
  68. 660 poke214,14:sys58732
  69. 670 for i=8 to 15
  70. 680 printtab(23)"";f$(i);f%(i,ct%);
  71. 690 input"[157][157][157][157]";f%(i,ct%)
  72. 700 if f%(i,ct%)<0 or f%(i,ct%)>8 then printtab(38)"[145]";:goto620
  73. 710 printtab(23)"[145][154]";f$(i)f%(i,ct%)
  74. 720 nexti
  75. 730 poke214,22:sys58732
  76. 740 ae%=0:print"";:gosub970
  77. 750 geta$:ifa$=""then750
  78. 760 ifa$=chr$(157)thenae%=1:print"[145][145]";:gosub970
  79. 770 ifa$=chr$(29)thenae%=0:print"[145][145]";:gosub970
  80. 780 ifa$<>chr$(13)then750
  81. 790 print"[145][145][154]";:gosub970:ifae%=0then 820
  82. 800 poke45,011:poke46,033
  83. 810 print"[147]save"chr$(34)"@0:super-hardcopy"chr$(34)",8":end
  84. 820 sys05714
  85. 830 print"parameter aendern: ";
  86. 840 if ae%=0thenprint"ja/nein[146]":return
  87. 850 print"ja[146]/nein":return
  88. 860 print"interface      : ";
  89. 870 ifin%=0thenprint"centronics[146]/seriell":return
  90. 880 print"centronics/seriell[146]":return
  91. 890 print" geraetenummer :"ga%:return
  92. 900 print" sekundaeradr. :"sa%:return
  93. 910 print" start-sequenz :";:gosub980:return
  94. 920 print" grafik-sequenz:";:gosub990:return
  95. 930 print"farbcodetabelle:"ct%"[154]"
  96. 940 for i=0 to 7
  97. 950 printf$(i)f%(i,ct%)tab(23)f$(i+8)f%(i+8,ct%)
  98. 960 nexti:return
  99. 970 print" speichern: ";:goto840
  100. 980 fori=0toas%:by=st%(i):gosub1000:print" "by$;:next:print:return
  101. 990 fori=0toag%:by=gr%(i):gosub1000:print" "by$;:next:print:return
  102. 1000 by%=by/16:by$=chr$(48+by%-(by%>9)*7):by%=byand15
  103. 1010 by$=by$+chr$(48+by%-(by%>9)*7):return
  104. 1020 st$=st$+" ":as%=-1:b$="":fori=1tolen(st$)
  105. 1030 a$=mid$(st$,i,1)
  106. 1040 ifa$=" "thengosub1070:goto1060
  107. 1050 b$=b$+a$:nexti
  108. 1060 as%=as%+1:st%(as%)=by:nexti:return
  109. 1070 b$=right$("00"+b$,2):by=0
  110. 1080 forj=1to2:b%=asc(b$):b%=b%-48+(b%>64)*7
  111. 1090 b$=mid$(b$,2):by=16*by+b%:next:return
  112. 1100 gr$=gr$+" ":ag%=-1:b$="":fori=1tolen(gr$)
  113. 1110 a$=mid$(gr$,i,1)
  114. 1120 ifa$=" "thengosub1070:goto1140
  115. 1130 b$=b$+a$:nexti
  116. 1140 ag%=ag%+1:gr%(ag%)=by:nexti:return
  117.