home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / key-32 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  187 lines
  1. 10 REM       --- K E Y   3 2 ---
  2. 20 REM COPYRIGHT: SIEGBERT WERNER
  3. 30 REM BEETHOVENSTR. 59 SIEGEN 31
  4. 40 POKE53280,0:POKE53281,0:POKE646,15
  5. 42 A=A+1
  6. 44 IFA<2THENLOAD"M-KEY-32",8,1
  7. 50 SP=3:REM-------CURSOR IN SPALTE 3
  8. 60 GOSUB580:REM BILDSCHIRMAUFBAU
  9. 70 GOTO190:REM----CURSOR SETZEN
  10. 78 REM------------TASTATURABFRAGE
  11. 80 POKE198,0:WAIT198,1
  12. 90 GETA$
  13. 97 REM------------UNERWUENSCHTE TASTE?
  14. 98 REM------------Z.B.:RETURN,HOME,ECT.
  15. 99 REM------------DANN NICHT REAGIEREN
  16. 100 IFASC(A$)=17ORASC(A$)=145ORASC(A$)=148ORASC(A$)=20ORASC(A$)=147ORASC(A$)=19THEN190
  17. 105 IFASC(A$)=13THEN190
  18. 107 REM------------ABFRAGE DER ERLAUBTEN
  19. 108 REM------------TASTEN
  20. 109 REM------------CURSOR LINKS-TASTE?
  21. 110 IFASC(A$)=157THENSP=SP-2
  22. 120 IFSP<2THENSP=2:REM-CURSORFELDANFANG
  23. 129 REM------------CTRL MIT _ TASTE?
  24. 130 IFASC(A$)=6THENGOTO340  :REM PRG-START!
  25. 135 IFA$="\"THEN880
  26. 137 IFA$="[169]"THEN1810
  27. 140 IFA$="_"THENGOTO290
  28. 150 PRINTA$
  29. 160 IFA$="@"THENGOSUB400
  30. 170 IFSP=36THEN190:REM-CURSORFELDENDE
  31. 180 SP=SP+1:REM---CURSOR EINS RECHTS
  32. 189 REM------------CURSOR SETZEN
  33. 190 POKE211,SP
  34. 200 POKE214,23
  35. 210 SYS58732
  36. 218 REM------------SETZEN DES ZEIGERS
  37. 219 REM------------AUF DAS EINGABEFELD
  38. 220 CR=1024+(PEEK(214)+1)*40+PEEK(211)
  39. 230 POKECR,30:POKECR-1,67:POKECR+1,67
  40. 238 REM------------INVERTIEREN DER
  41. 239 REM------------ZAHLEN FUER F+STASTE
  42. 240 FR=PEEK(1947):SR=PEEK(1948)
  43. 250 IFFR<=127THENFR=FR+128
  44. 260 IFSR<=127THENSR=SR+128
  45. 270 POKE1947,FR:POKE1948,SR
  46. 279 REM------------NEUE TASTE ABFRAGEN
  47. 280 GOTO80
  48. 289 REM------------EINGABEFELD LOESCHEN
  49. 290 POKECR,67:POKECR-1,67:POKECR+1,67
  50. 300 SP=3
  51. 310 A$=""
  52. 320 FORI=0TO33:POKE1947+I,32:NEXTI
  53. 330 GOTO190
  54. 339 REM------------MASCHINENPRG.-START!
  55. 340 :A$=" "
  56. 350 SYS 52000:REM-IRQ AUF NEUE ROUTINE!
  57. 359 REM------------BEREITSCHAFTSBILD
  58. 360 PRINT"[147]"
  59. 370 PRINT"              K E Y   3 2             "
  60. 380 PRINT"----------------------------------------";
  61. 382 POKE211,0:POKE214,23:SYS58732
  62. 384 PRINT"----------------------------------------";
  63. 388 POKE211,0:POKE214,2:SYS58732
  64. 390 END
  65. 398 REM------------FUER F+S NUR ZAHLEN
  66. 399 REM------------ERLAUBEN!
  67. 400 T1=PEEK(1947)-128:T2=PEEK(1948)-128
  68. 402 IFT1<49ORT1>52THEN840
  69. 404 IFT2<48ORT2>55THEN840:REM-FEHLER
  70. 408 REM------------SPEICHERN? - ZEIGEN?
  71. 410 KF=PEEK(1949)
  72. 420 IFKF<>0THEN510
  73. 429 REM------------KEYBELEGUNG ZEIGEN
  74. 430 FZ=PEEK(1947):SZ=PEEK(1948)
  75. 440 PB=51968+(FZ-176)*256+(SZ-176)*32
  76. 450 FORI=0TO31:PE=PB+I:ZE=PEEK(PE)
  77. 460 IFZE=0THEN490:REM-TEXTENDE=@=0
  78. 470 POKE1949+I,ZE:REM-ZEICHENAUSGABE
  79. 480 NEXTI
  80. 490 SP=4:RETURN
  81. 500 REM------------KEYBELEG. SPEICHERN
  82. 510 FZ=PEEK(1947):SZ=PEEK(1948)
  83. 520 PB=51968+(FZ-176)*256+(SZ-176)*32
  84. 530 FORI=0TO31:PE=1949+I:ZE=PEEK(PE)
  85. 540 POKEPB+I,ZE
  86. 550 IFZE=0THEN290
  87. 560 NEXTI
  88. 570 GOTO290
  89. 579 REM------------BILDSCHIRMAUFBAU
  90. 580 PRINT"[147]                                        ";
  91. 590 PRINT"              K E Y   3 2               ";
  92. 600 PRINT"                                        [146]";
  93. 610 PRINT
  94. 620 PRINT" [213][195][195][195][195][195][195][195][195][201] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";
  95. 630 PRINT" [194]F-TASTEN[194] [194]S-TASTEN                 [194] ";
  96. 640 PRINT" [194]=       [194] [194]=                        [194] ";
  97. 650 PRINT" [194]1= F1+F2[194] [194]0= OHNE SONDERTASTE      [194] ";
  98. 660 PRINT" [194]2= F3+F4[194] [194]1= SHIFT                 [194] ";
  99. 670 PRINT" [194]3= F5+F6[194] [194]2= COMMODORE             [194] ";
  100. 680 PRINT" [194]4= F7+F8[194] [194]3= SHIFT+COMMODORE       [194] ";
  101. 690 PRINT" [202][195][178][195][195][195][195][195][195][203] [194]4= CTRL                  [194] ";
  102. 700 PRINT"   [194]        [194]5= SHIFT+CTRL            [194] ";
  103. 710 PRINT"   [194]        [194]6= COMMODORE+CTRL        [194] ";
  104. 720 PRINT"   [194][176][195][195][195][195][195][195][195][179]7= SHIFT+COMMODORE+CTRL  [194] ";
  105. 730 PRINT"   F[194]       [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";
  106. 740 PRINT"   [194]S       [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";
  107. 750 PRINT"   [194][194][176][195][195][195][195][195][195][179]TEXTEINGABE MIT @ BEENDEN[194] ";
  108. 760 PRINT"   [194][194][194]      [194]NUR @ HINTER F+S= AUSGABE[194] ";
  109. 770 PRINT"   [194][194][194]      [194]CTRL/_ =START  \= KEYLIST[194] ";
  110. 780 PRINT"   [194][194][194]      [194]SHIFT/\=SAVEN  _= LOESCH.[194] ";
  111. 785 PRINT"   [194][194][194]      [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";
  112. 790 PRINT" [213][195][219][219][219][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  113. 800 PRINT" [195]                                    [195]"
  114. 810 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
  115. 820 RETURN
  116. 830 REM--------------EINGABEFEHLER
  117. 831 REM--------------KENNTLICH MACHEN!
  118. 840 FORI=0TO31:READQ:POKE1949+I,Q:NEXTI
  119. 845 POKECR,67:POKECR-1,67:POKECR+1,67
  120. 850 RESTORE:SP=3:GOTO190
  121. 860 DATA14,21,18,32,6,5,19,20,7,5,12,5,7,20,5,32,26,1,8,12,5,14
  122. 870 DATA32,9,14,32,6,43,19,33,32,32
  123. 879 REM--------------KEYLISTING BLATT1
  124. 880 GOSUB900:SA=52224:GOSUB1600
  125. 890 GOTO1360
  126. 899 REM--------------KEYLISTING BILD
  127. 900 PRINT"[147]                                        ";
  128. 910 PRINT"  K E Y   3 2   -BLATT 1-  WERNER-MADE  ";
  129. 920 PRINT"                                        [146]";
  130. 930 PRINT
  131. 940 PRINT"    [176][195][195][195]SHIFT     1 / 2=SEITENWAHL"
  132. 950 PRINT"    [194][176][195][195]COMMODORE H    =RUECKSPRUNG"
  133. 960 PRINT"    [194][194][176][195]CTRL      CTRL/_=START HAUPTPRG.";
  134. 970 PRINT"    [194][194][194]"
  135. 1000 PRINT" F1+[215][215][215]=..............................."
  136. 1010 PRINT" F1+[209][215][215]=..............................."
  137. 1020 PRINT" F1+[215][209][215]=..............................."
  138. 1030 PRINT" F1+[209][209][215]=..............................."
  139. 1040 PRINT" F1+[215][215][209]=..............................."
  140. 1050 PRINT" F1+[209][215][209]=..............................."
  141. 1060 PRINT" F1+[215][209][209]=..............................."
  142. 1070 PRINT" F1+[209][209][209]=..............................."
  143. 1080 PRINT" F2+[215][215][215]=..............................."
  144. 1090 PRINT" F2+[209][215][215]=..............................."
  145. 1100 PRINT" F2+[215][209][215]=..............................."
  146. 1110 PRINT" F2+[209][209][215]=..............................."
  147. 1120 PRINT" F2+[215][215][209]=..............................."
  148. 1130 PRINT" F2+[209][215][209]=..............................."
  149. 1140 PRINT" F2+[215][209][209]=..............................."
  150. 1150 PRINT" F2+[209][209][209]=...............................";
  151. 1152 RETURN
  152. 1350 REM------------WELCHE AUSWAHLTASTE?
  153. 1360 POKE198,0:WAIT198,1
  154. 1370 GETB$
  155. 1380 IFASC(B$)=6THEN340
  156. 1390 IFB$="H"THEN50
  157. 1400 IFB$="1"THEN880
  158. 1405 IFB$="2"THEN1500
  159. 1410 GOTO1360
  160. 1498 REM------------KEYLISTING BLATT2
  161. 1499 REM------------AENDERUNG D. BILDES
  162. 1500 POKE1087,178
  163. 1502 FORI=0TO7:POKE1346+I*40,53:NEXTI
  164. 1504 FORI=0TO7:POKE1666+I*40,55:NEXTI
  165. 1507 REM------------LESEADRESSE AENDERN
  166. 1508 SA=52736:GOSUB1600
  167. 1510 GOTO1360
  168. 1599 REM------------AUSGABESCHLEIFE
  169. 1600 FL=1:FORHI=0TO15
  170. 1610 FORLO=0TO30
  171. 1620 PW=PEEK(SA+HI*32+LO)
  172. 1630 PS=1352+HI*40+LO
  173. 1640 IFPW=0THENFL=0
  174. 1650 IFFL=0THENPW=46:REM PUNKTE NACH TEXT
  175. 1660 POKEPS,PW
  176. 1670 NEXTLO
  177. 1680 FL=1
  178. 1690 NEXTHI
  179. 1700 RETURN
  180. 1800 REM           SAVEN DER BELEGUNG
  181. 1810 OPEN1,8,1,"@:M-KEY-32"
  182. 1820 A$=CHR$(32):B$=CHR$(203)
  183. 1830 PRINT#1,A$;B$;
  184. 1840 FORI=52000TO53248:A$=CHR$(PEEK(I)):PRINT#1,A$;:NEXTI
  185. 1950 CLOSE1
  186. 1960 GOTO50:REM------ZURUECK ZUM PRG.
  187.