home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93b.d64 / tast.-generator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.6 KB  |  84 lines
  1. 1000 REM    TASTATUR-GENERATOR
  2. 1010 REM
  3. 1020 REM 1985 VON MARKUS STECHER
  4. 1030 REM
  5. 1035 IFA=0THENA=1:LOAD"KEY-PROGGER",8,1
  6. 1040 POKE53280,0
  7. 1050 POKE53281,0
  8. 1060 SYS49152
  9. 1070 SYS49152+3
  10. 1080 DIMB$(255)
  11. 1090 GOSUB1700:GOSUB1740
  12. 1100 PRINT"[147]           TASTATUR-GENERATOR           ";CHR$(8)
  13. 1110 POKE1,53
  14. 1120 PRINT"WELCHE TASTE ? ";
  15. 1130 Z$=""
  16. 1140 GETA$:IFA$=""THEN1140
  17. 1150 IFA$=CHR$(13)THEN1180
  18. 1160 Z$=Z$+A$
  19. 1170 GOTO1140
  20. 1180 Z=VAL(Z$)
  21. 1190 PRINTCHR$(34);CHR$(20);CHR$(Z)
  22. 1200 B$=B$(Z):CR=0
  23. 1210 L=LEN(B$(Z))
  24. 1220 IFRIGHT$(B$,1)=CHR$(13)THENB$=LEFT$(B$,L-1):CR=1
  25. 1230 PRINT"ALTE BELEGUNG: ";CHR$(34);B$;CHR$(34);
  26. 1240 IFCRTHENPRINT"+CHR$(13)";
  27. 1250 PRINT:PRINT"NEUE BELEGUNG: [221]           [221][157][157][157][157][157][157][157][157][157][157][157][157]";CHR$(34);CHR$(20);
  28. 1260 POKE1,55
  29. 1270 F$=""
  30. 1280 GETA$:IFA$=""THEN1280
  31. 1290 IFA$=CHR$(20)THENPRINT:PRINT"[145][145][145][145]":GOTO1250
  32. 1300 IFA$=CHR$(13)THEN1370
  33. 1310 IFA$=CHR$(141)THEN1360
  34. 1320 IFLEN(F$)=10THEN1280
  35. 1330 PRINTA$;
  36. 1340 F$=F$+A$
  37. 1350 GOTO1280
  38. 1360 F$=F$+CHR$(13)
  39. 1370 IFF$=""THENF$=B$(Z)
  40. 1380 AL$=B$(Z)
  41. 1390 B$(Z)=F$
  42. 1400 PRINT
  43. 1410 PRINT"BITTE WAEHLEN:"
  44. 1420 PRINT"NAECHSTE EINGABE.............1"
  45. 1430 PRINT"LETZTE EINGABE LOESCHEN......2"
  46. 1440 PRINT"TASTATURBELEGUNG SPEICHERN...3"
  47. 1450 PRINT"ALTE BELEGUNG HERSTELLEN.....4"
  48. 1460 PRINT"ENDE.........................5"
  49. 1470 GETA$:IFA$<"1"ORA$>"5"THEN1470
  50. 1480 ONVAL(A$)GOTO1490,1500,1520,1610,1660
  51. 1490 GOTO1100
  52. 1500 B$(Z)=AL$
  53. 1510 GOTO1100
  54. 1520 INPUT"[147]NAME ";N$
  55. 1530 PRINT"<D>ISK ODER <T>APE ? ";
  56. 1540 GETG$:IFG$<>"D"ANDG$<>"T"THEN1540
  57. 1550 GA=1
  58. 1560 IFG$="D"THENGA=8
  59. 1570 PRINT"BITTE WARTEN"
  60. 1580 GOSUB1780
  61. 1590 SYS49152+12,N$,GA
  62. 1600 GOTO1100
  63. 1610 PRINT"[147]SOLL WIRKLICH DIE ALTE BELEGUNG"
  64. 1620 PRINT"HERGESTELLT WERDEN (J/N) ?"
  65. 1630 GETA$:IFA$=<>"J"ANDA$<>"N"THEN1630
  66. 1640 IFA$="J"THENSYS49152+9
  67. 1650 GOTO1100
  68. 1660 PRINT"[147] AUF WIEDERSEHEN !"
  69. 1670 GOSUB1780
  70. 1680 POKE1,53
  71. 1690 END
  72. 1700 FORI=0TO255
  73. 1710 #I,STR$(I)+CHR$(13)
  74. 1720 NEXTI
  75. 1730 RETURN
  76. 1740 FORI=0TO255
  77. 1750 B$(I)=CHR$(I)
  78. 1760 NEXTI
  79. 1770 RETURN
  80. 1780 FORI=0TO255
  81. 1790 #I,B$(I)
  82. 1800 NEXTI
  83. 1810 RETURN
  84.