home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 January / 64er_Magazin_85-01_1985_Markt__Technik_de.d64 / form.eingabe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  4.6 KB  |  126 lines
  1. 1 rem" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]
  2. 2 [143]" sgn  up  -  formatierte eingabe  +
  3. 3 rem" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]
  4. 4 [143]" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  5. 5 rem" [180]  q1  =  zeile der eingabe    [170]
  6. 6 [143]" sgn  q2  =  spalte der eingabe   +
  7. 7 rem" [180]  q3  =  max. laenge d. eing. [170]
  8. 8 [143]" sgn  q4  =  1 _ leereingabe nicht+
  9. 9 rem" [180]             erlaubt          [170]
  10. 10 [143]"sgn  q5  =  1 _ nur numerische   +
  11. 11 rem"[180]             eingabe erlaubt  [170]
  12. 12 [143]"sgn  q6  =  1 _ bei numerischer  +
  13. 13 rem"[180]             eingabe ist ein  [170]
  14. 14 [143]"sgn             punkt erlaubt    +
  15. 15 rem"[180]                              [170]
  16. 16 [143]"sgn  y3$ =  muss einmal am anfang+
  17. 17 rem"[180]         des hauptprogrammes  [170]
  18. 18 [143]"sgn         definiert werden. ein+
  19. 19 rem"[180]         punktestring, der die[170]
  20. 20 [143]"sgn         laenge der laengsten +
  21. 21 rem"[180]         eingabe im hauptprog.[170]
  22. 22 [143]"sgn         hat. zusaetzlich muss+
  23. 23 rem"[180]         am ende des strings  [170]
  24. 24 [143]"sgn         das zeichen '_'      +
  25. 25 rem"[180]         stehen. beispiel :   [170]
  26. 26 [143]"sgn         y3$=''............_''+
  27. 27 rem"[180]                              [170]
  28. 28 [143]"sgn  y4$ =  wie 'y3$', jedoch    +
  29. 29 rem"[180]         werden statt punkte  [170]
  30. 30 [143]"sgn         spaces gesetzt. das  +
  31. 31 rem"[180]         zeichen '_' entfaellt[170]
  32. 32 [143]"sgn         beispiel :           +
  33. 33 rem"[180]         y4$=''             ''[170]
  34. 34 [143]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr
  35. 35 rem"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]
  36. 36 [143]"sgn  ii  =  laufvariable         +
  37. 37 rem"[180]  jj  =  laufvariable         [170]
  38. 38 [143]"sgn  q7  =  zaehler, der angibt, +
  39. 39 rem"[180]         an welcher stelle ein[170]
  40. 40 [143]"sgn         punkt gesetzt wurde  +
  41. 41 rem"[180]                              [170]
  42. 42 [143]"sgn  y1$ =  inhalt der eingabe   +
  43. 43 rem"[180]         wird vom unterprog.  [170]
  44. 44 [143]"sgn         an das hauptprog.    +
  45. 45 rem"[180]         uebergeben.          [170]
  46. 46 [143]"sgn                              +
  47. 47 rem"[180]  y2$ =  enthaelt das jeweils [170]
  48. 48 [143]"sgn         eingegebene zeichen  +
  49. 49 rem"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]
  50. 50 [143]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  51. 51 rem"[180]  formatierte eingabe, bei der[170]
  52. 52 [143]"sgn  jedes eingegebene zeichen   +
  53. 53 rem"[180]  ueberprueft und falls noetig[170]
  54. 54 [143]"sgn  zurueckgewiesen werden kann.+
  55. 55 rem"[180]  die angegebenen parameter   [170]
  56. 56 [143]"sgn  muessen zum teil (q1,q2,q3, +
  57. 57 rem"[180]  y3$,y4$) eingegeben werden, [170]
  58. 58 [143]"sgn  oder koennen bei bedarf     +
  59. 59 rem"[180]  uebergeben werden (q4,q5,q6)[170]
  60. 60 [143]"sgn  vor dem ruecksprung ins     +
  61. 61 rem"[180]  hauptprogramm werden alle   [170]
  62. 62 [143]"sgn  parameter auf null gesetzt. +
  63. 63 rem"[180]  das ergebnis der eingabe-   [170]
  64. 64 [143]"sgn  routine, die eingabe wird in+
  65. 65 rem"[180]  der variablen 'y1$' an das  [170]
  66. 66 [143]"sgn  hauptprogramm uebergeben.   +
  67. 67 rem"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]
  68. 68 [143]
  69. 69 [143]
  70. 70 [143]
  71. 100 [143]   ***************************
  72. 102 [143]   *** formatierte eingabe ***
  73. 104 [143]   *** copyright (c) 1984  ***
  74. 106 [143]   ***    rolf hilchner    ***
  75. 108 [143]   ***   rheydter str.48   ***
  76. 109 [143]   ***     4040 neuss 1    ***
  77. 110 [143]   ***************************
  78. 120 [151]650,255:y1$[178]"":q2[178]q2[171]1:[151]214,q1:[151]211,q2:[153]"onnew";[201](y3$,q3)
  79. 130 [129]ii[178]1[164]q3[170]1
  80. 140 [161]y2$:[139]y2$[178]""[167]140
  81. 150 [139][198](y2$)[178]20[175]ii[177]1[167]y1$[178][200](y1$,[195](y1$)[171]1):ii[178]ii[171]2:[137]250
  82. 160 [139][198](y2$)[178]13[175]ii[178]1[175]q4[178]1[167][141]280:[137]140
  83. 170 [139][198](y2$)[179][177]13[175]ii[178]q3[170]1[167][141]280:[137]140
  84. 180 [139][198](y2$)[178]13[137]260
  85. 190 [139][198](y2$)[179]32[176][198](y2$)[177]93[167][141]280:[137]140
  86. 200 [139]q5[178]1[175][198](y2$)[178]45[175]ii[178]1[137]240
  87. 210 [139]ii[179][178]q7[167]q7[178]0:q6[178]1
  88. 220 [139]q5[178]1[175][198](y2$)[178]46[175]q6[178]1[167]q6[178]0::q7[178]ii:[137]240
  89. 230 [139]q5[178]1[175][198](y2$)[179]48[176]q5[178]1[175][198](y2$)[177]57[167][141]280:[137]140
  90. 240 y1$[178]y1$[170]y2$
  91. 250 [151]214,q1:[151]211,q2:[153]"on";[200](y1$[170]"new"[170]y3$,q3)[170]"_";:[130]ii
  92. 260 [151]214,q1:[151]211,q2:[153]"on";y1$[170][200](y4$,q3[171][195](y1$)[170]1)
  93. 270 q1[178]0:q2[178]0:q3[178]0:q4[178]0:q5[178]0:q6[178]0:q7[178]0:[151]650,0:[142]:'[179][171][171][171] ausgang aus up
  94. 280 [151]54296,15:[151]54277,6:[151]54278,0:[151]54275,8:[151]54274,0
  95. 290 [151]54273,92:[151]54272,237:[151]54276,65:[129]jj[178]1[164]150:[130]jj:[151]54276,0
  96. 300 [142]:'[179][171][171][171] ausgang aus piep[171]up
  97. 310 [143]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  98. 320 rem"[180]beispiel 1 fuer den aufruf : [170]
  99. 330 [143]"sgn                             +
  100. 340 rem"[180]10 y3$=''.........._'':y4$=''[170]
  101. 350 [143]"sgn             ''              +
  102. 360 rem"[180]20 print''[147]'':poke214,5:poke [170]
  103. 370 [143]"sgn   211,15:print''onname :''   +
  104. 380 rem"[180]30 q1=5:q2=23:q3=10:gosub 100[170]
  105. 390 [143]"sgn40 print:print''sie heissen''+
  106. 400 rem"[180]   ;y1$:end                  [170]
  107. 410 [143]"sgn                             +
  108. 420 rem"[180]beispiel 2 fuer den aufruf : [170]
  109. 430 [143]"sgn                             +
  110. 440 rem"[180]10 y3$=''.........._'':y4$=''[170]
  111. 460 [143]"sgn20 print''load'':poke214,5:poke +
  112. 470 rem"[180]   211,15:print''[145]alter :''  [170]
  113. 480 [143]"sgn30 q1=5:q2=24:q3=10:q4=1:    +
  114. 490 rem"[180]   q5=1:gosub 100            [170]
  115. 500 [143]"sgn40 print:print''sie sind'';  +
  116. 510 rem"[180]   val(y1$);''jahre alt'':end[170]
  117. 520 [143]"sgn                             +
  118. 530 rem"[180]hinweis :                    [170]
  119. 540 [143]"sgnusrusrusrusrusrusrusrusrusr                    +
  120. 550 rem"[180]poke 214,y bewirkt, dass der [170]
  121. 560 [143]"sgncursor in die zeile y springt+
  122. 570 rem"[180]                             [170]
  123. 580 [143]"sgnpoke 211,x bewirkt, dass der +
  124. 590 rem"[180]cursor an d. spalte x springt[170]
  125. 600 [143]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr
  126.