home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 28 / 64er_Magazin_Sonderheft_28_19xx_Markt__Technik_de_Side_B.d64 / install (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  147 lines
  1. 10 rem
  2. 20 rem *******************************
  3. 30 rem *                             *
  4. 40 rem * name      : install         *
  5. 50 rem * datum     : 24.09.87        *
  6. 60 rem * geaendert : 12.02.88        *
  7. 70 rem *                             *
  8. 80 rem *******************************
  9. 90 rem
  10. 100 poke53280,0:poke53281,0:print""
  11. 110 print"[147]"
  12. 120 print"install datec":print:print
  13. 130 :
  14. 140 rem dateiname einlesen
  15. 150 :
  16. 160 restore
  17. 170 print"geben sie den namen der datei ein.":print:print
  18. 180 input n$:print:print
  19. 190 if len(n$)>12 then print"maximal 12 zeichen!":print:print:goto160
  20. 200 gosub 1000:rem laden
  21. 210 if f<>0 then 160
  22. 220 :
  23. 230 rem sekundaeradresse aendern
  24. 240 :
  25. 250 print"[147]"
  26. 260 sp=peek(50990)
  27. 270 print"sekundaeradresse drucker ";sp
  28. 280 gosub 950
  29. 290 if a$="n" then 390
  30. 300 i$=""
  31. 310 input"neue sekundaeradresse ";i$
  32. 320 if len(i$)=0 then 250
  33. 330 sp=val(i$)
  34. 340 if sp>255 then 310
  35. 350 poke 50990,sp:goto 250
  36. 360 :
  37. 370 rem codetabelle monitor/drucker
  38. 380 :
  39. 390 print"[147]"
  40. 400 forn=0to9
  41. 410 p1(n)=peek(51935+n)
  42. 420 p2(n)=peek(51945+n)
  43. 430 next n
  44. 440 :
  45. 450 print"monitor--> drucker":print
  46. 460 forn=0to9
  47. 470 print p1(n),p2(n)
  48. 480 next
  49. 490 gosub 950
  50. 500 if a$="n" then 730
  51. 510 :
  52. 520 print"[147]"
  53. 530 for n=0to9
  54. 540 print "bildschirm-code ";p1(n)
  55. 550 i$=""
  56. 560 input "neuer code      ";i$
  57. 570 if len(i$)=0 then 620
  58. 580 p1=val(left$(i$,3))
  59. 590 if p1>255 then p1=255
  60. 600 p1(n)=p1
  61. 610 :
  62. 620 print"drucker-code     ";p2(n)
  63. 630 i$=""
  64. 640 input "neuer code      ";i$
  65. 650 if len(i$)=0 then 690
  66. 660 p2=val(left$(i$,3))
  67. 670 if p2>255 then p2=255
  68. 680 p2(n)=p2
  69. 690 print"[147]"
  70. 700 next n
  71. 710 goto 450
  72. 720 :
  73. 730 print"[147]"
  74. 740 forn=0to9
  75. 750 poke(51935+n),p1(n)
  76. 760 poke(51945+n),p2(n)
  77. 770 next n
  78. 780 print "sekundaeradresse drucker ";sp
  79. 790 print "monitor--> drucker"
  80. 800 forn=0to9
  81. 810 print p1(n),p2(n)
  82. 820 next n
  83. 830 gosub 950
  84. 840 if a$="j"then 250
  85. 850 :
  86. 860 rem datei speichern
  87. 870 :
  88. 880 print"[147]"
  89. 890 print"datei wird mit den neuen werten":print"gespeichert."
  90. 900 gosub 1200
  91. 910 end
  92. 920 :
  93. 930 rem unterprogramme
  94. 940 :
  95. 950 print"aender j/n":print:print
  96. 960 get a$:if a$=""then 960
  97. 970 if a$<>"n" and a$<>"j" then 960
  98. 980 return
  99. 990 :
  100. 1000 rem maschinencode laden
  101. 1010 data 162,035,160,144,169,003,032
  102. 1020 data 189,255,169,001,162,008,160
  103. 1030 data 002,032,186,255,169,000,168
  104. 1040 data 076,213,255
  105. 1050 :
  106. 1060 for n=0to23
  107. 1070 read c:poke36864+n,c
  108. 1080 next n
  109. 1090 :
  110. 1100 l=len(n$)
  111. 1110 poke 36869,l
  112. 1120 forn=1tolen(n$)
  113. 1130 w=asc(mid$(n$,n,1))
  114. 1140 poke36898+n,w
  115. 1150 next n
  116. 1160 sys 36864
  117. 1170 gosub 1410
  118. 1180 return
  119. 1190 :
  120. 1200 rem maschinencode saven
  121. 1210 data 162,035,160,144,169,003,032
  122. 1220 data 189,255,169,001,162,008,160
  123. 1230 data 001,032,186,255,169,000,133
  124. 1240 data 096,169,192,133,097,162,000
  125. 1250 data 160,203,169,096,076,216,255
  126. 1260 data 064,058
  127. 1270 :
  128. 1280 for n=0to36
  129. 1290 read c:poke36864+n,c
  130. 1300 next n
  131. 1310 :
  132. 1320 l=len(n$)
  133. 1330 poke 36869,l+2
  134. 1340 forn=1tolen(n$)
  135. 1350 w=asc(mid$(n$,n,1))
  136. 1360 poke36900+n,w
  137. 1370 next n
  138. 1380 sys36864
  139. 1390 gosub 1410
  140. 1400 return
  141. 1410 :
  142. 1420 open 15,8,15
  143. 1430 input#15,f,f$
  144. 1440 if f<>0 then print f$:print:print
  145. 1450 close 15
  146. 1460 return
  147.