home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8501.d64 / form.eingabe (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  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.