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