home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 14 / Tiger_Disk_014_19xx_Tiger-Crew-Disk_de_Side_A.d64 / input-routine (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  111 lines
  1. 10 poke53281,11:poke53280,11:poke646,15
  2. 20 print"[147]            input-routine"
  3. 30 print"          von   till zieger
  4. 40 [129]t[178]1[164]2000:[130]:[137]880
  5. 50 [137] 450
  6. 60 :
  7. 70 [143] input-routine
  8. 80 [143] -------------
  9. 90 :
  10. 100 [151] 198,0:ys[178][194](211):yc[178]ys
  11. 110 [139] [195](y$)[177][178]yl [167] [137] 130
  12. 120 y$[178]y$[170]" ":[137] 110
  13. 130 [151] 211,ys:[153] y$;:[151] 211,yc
  14. 140 [151] 204,0
  15. 150 [161] yt$:[139] yt$[178]""[167] [137] 150
  16. 160 [151] 204,1
  17. 170 yt[178][198](yt$):yc[178][194](211)
  18. 180 [139] yt[178]13 [167] [151] 211,ys:[153] y$:[142]
  19. 190 [139] yt[178]29 [167] [137] 350
  20. 200 [139] yt[178]157 [167] [137] 370
  21. 210 [139] yt[178]147 [167] [151] 211,ys:y$[178]" ":yc[178]ys:[137] 110
  22. 220 [139] yt[178]148 [167] [137] 390
  23. 230 [139] yt[178]20 [167] [137] 420
  24. 240 [139] yt[178]19 [167] yc[178]ys:[137] 130
  25. 250 [145] yf [137] 290,310,330
  26. 260 y$[178][200](y$,yc[171]ys)[170]yt$[170][201](y$,ys[170]yl[171]yc[171]1):[153] yt$;
  27. 270 [139] [194](211)[177]ys[171]1[170]yl [167] [153] [199](157);
  28. 280 [137] 140
  29. 290 [139] yt[179]48 [176] yt[177]57 [167] [137] 140
  30. 300 [137] 260
  31. 310 [139] yt[179]32 [176](yt[177]32 [175] yt[179]40)[176] yt[177]57 [167] [137] 140
  32. 320 [137] 260
  33. 330 [139] yt[179]32 [176](yt[177]95 [175] yt[179]193)[176] yt[177]218 [167] [137] 140
  34. 340 [137] 260
  35. 350 [139] [194](211)[177]ys[171]2[170]yl [167] [137] 140
  36. 360 yc[178]yc[170]1:[137] 130
  37. 370 [139] [194](211)[178]ys [167] [137] 140
  38. 380 yc[178]yc[171]1:[137] 130
  39. 390 [139] yf[178]1 [167] [137] 140
  40. 400 yc[178][194](211):y$[178][200](y$,yc[171]ys)[170]" "[170][202](y$,yc[171]ys[170]1,ys[170]yl[171]yc[171]1)
  41. 410 [151] 211,ys:[153] y$;:[151] 211,yc:[137] 140
  42. 420 yc[178][194](211):y$[178][200](y$,yc[171]ys)[170][201](y$,ys[170]yl[171]yc[171]1)[170]" "
  43. 430 [151] 211,ys:[153] y$;:[151] 211,yc:[137] 140
  44. 440 :
  45. 450 [143] hauptprogramm
  46. 460 [143] -------------
  47. 470 :
  48. 480 [153] [199](147);[199](14)
  49. 490 [153]"         right$nput-peekeispiel"
  50. 500 [153]"         ==============":[153]
  51. 510 [153]"valingaben"
  52. 520 [153]"--------":[153]
  53. 530 [153]"numerisch: ";:yl[178]5:yf[178]1:y$[178]nu$:[141] 60:nu$[178]y$
  54. 540 [153]
  55. 550 [153]"kaufmaennisch: ";:yl[178]10:yf[178]2:y$[178]ka$:[141] 60:ka$[178]y$
  56. 560 [153]
  57. 570 [153]"alphanumerisch: ";:yl[178]15:yf[178]3:y$[178]al$:[141] 60:al$[178]y$
  58. 580 [153]:[153]
  59. 590 [153]"atnusgaben"
  60. 600 [153]"--------"
  61. 610 [153] nu$
  62. 620 [153] ka$
  63. 630 [153] al$
  64. 640 [153]"nochmal zeigen ?"
  65. 650 [161]xx$:[139]xx$[178]""[167]650
  66. 660 [139]xx$[178]"j" [137] 450
  67. 670 [128]
  68. 680 :
  69. 690 [153]"loadexterne variablen
  70. 700 print"-----------------
  71. 710 [153]"yl = maximallaenge der variable
  72. 720 print"     (1 bis 40)
  73. 730 [153]"yf = art der eingabe:
  74. 740 print" 1 - numerisch (ziffern 0 bis 9)
  75. 750 [153]" 2 - kaufmaennisch (ziffern,
  76. 760 print"     math. zeichen, leerzeichen)
  77. 770 [153]" 3 - alphanumerisch (wie 2 + buch-
  78. 780 print"     staben und sonderzeichen)
  79. 790 [153]"y$ = ein-/ausgabe-variable
  80. 800 poke198,0:wait198,1:poke198,0
  81. 810 print"[147]interne variablen
  82. 820 [153]"-----------------
  83. 830 print"ys = anfangsposition cursor
  84. 840 [153]"yc = aktuelle cursorposition
  85. 850 print"yt$= gedrueckte taste
  86. 860 [153]"yt = ascii der gedrueckten taste
  87. 870 poke198,0:wait198,1:poke198,0:goto50
  88. 880 print"[147]erlaeuterungen
  89. 890 [153]"--------------
  90. 900 print"die input-routine ermoeglicht eine
  91. 910 [153]"fehlerfreie eingabe ohne gefahr
  92. 920 print"der maskenzerstoerung, indem ein
  93. 930 [153]"eingabefenster mit der laenge  yl
  94. 940 print"mit folgenden eigenschaften
  95. 950 [153]"erzeugt wird:
  96. 960 print"
  97. 970 [153]"- sofortige pruefung auf zulaes-
  98. 980 print"  sigkeit der gedrueckten taste
  99. 990 [153]"  in abhaengigkeit von  yf.
  100. 1000 print"- freie cursorbewegungen innerhalb
  101. 1010 [153]"  des fensters.
  102. 1020 print"- home: cursor an linken rand
  103. 1030 [153]"  setzen.
  104. 1040 print"- clr: loeschen des gesamten
  105. 1050 [153]"  fensters.
  106. 1060 print"- del: loeschen ab cursorposition.
  107. 1070 [153]"- inst: einfuegen von leerzeichen
  108. 1080 print"  ab cursorposition (nicht bei
  109. 1090 [153]"  numerischer eingabe).
  110. 1100 poke198,0:wait198,1:poke198,0:goto690
  111.