home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28b.d64 / install (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.