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 [143]" SGN UP - FORMATIERTE EINGABE + 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 [143]" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) 5 REM" [180] Q1 = ZEILE DER EINGABE [170] 6 [143]" SGN Q2 = SPALTE DER EINGABE + 7 REM" [180] Q3 = MAX. LAENGE D. EING. [170] 8 [143]" SGN Q4 = 1 _ LEEREINGABE NICHT+ 9 REM" [180] ERLAUBT [170] 10 [143]"SGN Q5 = 1 _ NUR NUMERISCHE + 11 REM"[180] EINGABE ERLAUBT [170] 12 [143]"SGN Q6 = 1 _ BEI NUMERISCHER + 13 REM"[180] EINGABE IST EIN [170] 14 [143]"SGN PUNKT ERLAUBT + 15 REM"[180] [170] 16 [143]"SGN Y3$ = MUSS EINMAL AM ANFANG+ 17 REM"[180] DES HAUPTPROGRAMMES [170] 18 [143]"SGN DEFINIERT WERDEN. EIN+ 19 REM"[180] PUNKTESTRING, DER DIE[170] 20 [143]"SGN LAENGE DER LAENGSTEN + 21 REM"[180] EINGABE IM HAUPTPROG.[170] 22 [143]"SGN HAT. ZUSAETZLICH MUSS+ 23 REM"[180] AM ENDE DES STRINGS [170] 24 [143]"SGN DAS ZEICHEN '_' + 25 REM"[180] STEHEN. BEISPIEL : [170] 26 [143]"SGN Y3$=''............_''+ 27 REM"[180] [170] 28 [143]"SGN Y4$ = WIE 'Y3$', JEDOCH + 29 REM"[180] WERDEN STATT PUNKTE [170] 30 [143]"SGN SPACES GESETZT. DAS + 31 REM"[180] ZEICHEN '_' ENTFAELLT[170] 32 [143]"SGN BEISPIEL : + 33 REM"[180] Y4$='' ''[170] 34 [143]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR 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 [143]"SGN II = LAUFVARIABLE + 37 REM"[180] JJ = LAUFVARIABLE [170] 38 [143]"SGN Q7 = ZAEHLER, DER ANGIBT, + 39 REM"[180] AN WELCHER STELLE EIN[170] 40 [143]"SGN PUNKT GESETZT WURDE + 41 REM"[180] [170] 42 [143]"SGN Y1$ = INHALT DER EINGABE + 43 REM"[180] WIRD VOM UNTERPROG. [170] 44 [143]"SGN AN DAS HAUPTPROG. + 45 REM"[180] UEBERGEBEN. [170] 46 [143]"SGN + 47 REM"[180] Y2$ = ENTHAELT DAS JEWEILS [170] 48 [143]"SGN EINGEGEBENE ZEICHEN + 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 [143]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) 51 REM"[180] FORMATIERTE EINGABE, BEI DER[170] 52 [143]"SGN JEDES EINGEGEBENE ZEICHEN + 53 REM"[180] UEBERPRUEFT UND FALLS NOETIG[170] 54 [143]"SGN ZURUECKGEWIESEN WERDEN KANN.+ 55 REM"[180] DIE ANGEGEBENEN PARAMETER [170] 56 [143]"SGN MUESSEN ZUM TEIL (Q1,Q2,Q3, + 57 REM"[180] Y3$,Y4$) EINGEGEBEN WERDEN, [170] 58 [143]"SGN ODER KOENNEN BEI BEDARF + 59 REM"[180] UEBERGEBEN WERDEN (Q4,Q5,Q6)[170] 60 [143]"SGN VOR DEM RUECKSPRUNG INS + 61 REM"[180] HAUPTPROGRAMM WERDEN ALLE [170] 62 [143]"SGN PARAMETER AUF NULL GESETZT. + 63 REM"[180] DAS ERGEBNIS DER EINGABE- [170] 64 [143]"SGN ROUTINE, DIE EINGABE WIRD IN+ 65 REM"[180] DER VARIABLEN 'Y1$' AN DAS [170] 66 [143]"SGN HAUPTPROGRAMM UEBERGEBEN. + 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 [143] 69 [143] 70 [143] 100 [143] *************************** 102 [143] *** FORMATIERTE EINGABE *** 104 [143] *** COPYRIGHT (C) 1984 *** 106 [143] *** ROLF HILCHNER *** 108 [143] *** RHEYDTER STR.48 *** 109 [143] *** 4040 NEUSS 1 *** 110 [143] *************************** 120 [151]650,255:Y1$[178]"":Q2[178]Q2[171]1:[151]214,Q1:[151]211,Q2:[153]"ONNEW";[201](Y3$,Q3) 130 [129]II[178]1[164]Q3[170]1 140 [161]Y2$:[139]Y2$[178]""[167]140 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 160 [139][198](Y2$)[178]13[175]II[178]1[175]Q4[178]1[167][141]280:[137]140 170 [139][198](Y2$)[179][177]13[175]II[178]Q3[170]1[167][141]280:[137]140 180 [139][198](Y2$)[178]13[137]260 190 [139][198](Y2$)[179]32[176][198](Y2$)[177]93[167][141]280:[137]140 200 [139]Q5[178]1[175][198](Y2$)[178]45[175]II[178]1[137]240 210 [139]II[179][178]Q7[167]Q7[178]0:Q6[178]1 220 [139]Q5[178]1[175][198](Y2$)[178]46[175]Q6[178]1[167]Q6[178]0::Q7[178]II:[137]240 230 [139]Q5[178]1[175][198](Y2$)[179]48[176]Q5[178]1[175][198](Y2$)[177]57[167][141]280:[137]140 240 Y1$[178]Y1$[170]Y2$ 250 [151]214,Q1:[151]211,Q2:[153]"ON";[200](Y1$[170]"NEW"[170]Y3$,Q3)[170]"_";:[130]II 260 [151]214,Q1:[151]211,Q2:[153]"ON";Y1$[170][200](Y4$,Q3[171][195](Y1$)[170]1) 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 280 [151]54296,15:[151]54277,6:[151]54278,0:[151]54275,8:[151]54274,0 290 [151]54273,92:[151]54272,237:[151]54276,65:[129]JJ[178]1[164]150:[130]JJ:[151]54276,0 300 [142]:'[179][171][171][171] AUSGANG AUS PIEP[171]UP 310 [143]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) 320 REM"[180]BEISPIEL 1 FUER DEN AUFRUF : [170] 330 [143]"SGN + 340 REM"[180]10 Y3$=''.........._'':Y4$=''[170] 350 [143]"SGN '' + 360 REM"[180]20 PRINT''[147]'':POKE214,5:POKE [170] 370 [143]"SGN 211,15:PRINT''ONNAME :'' + 380 REM"[180]30 Q1=5:Q2=23:Q3=10:GOSUB 100[170] 390 [143]"SGN40 PRINT:PRINT''SIE HEISSEN''+ 400 REM"[180] ;Y1$:END [170] 410 [143]"SGN + 420 REM"[180]BEISPIEL 2 FUER DEN AUFRUF : [170] 430 [143]"SGN + 440 REM"[180]10 Y3$=''.........._'':Y4$=''[170] 460 [143]"SGN20 PRINT''LOAD'':POKE214,5:POKE + 470 REM"[180] 211,15:PRINT''[145]ALTER :'' [170] 480 [143]"SGN30 Q1=5:Q2=24:Q3=10:Q4=1: + 490 REM"[180] Q5=1:GOSUB 100 [170] 500 [143]"SGN40 PRINT:PRINT''SIE SIND''; + 510 REM"[180] VAL(Y1$);''JAHRE ALT'':END[170] 520 [143]"SGN + 530 REM"[180]HINWEIS : [170] 540 [143]"SGNUSRUSRUSRUSRUSRUSRUSRUSRUSR + 550 REM"[180]POKE 214,Y BEWIRKT, DASS DER [170] 560 [143]"SGNCURSOR IN DIE ZEILE Y SPRINGT+ 570 REM"[180] [170] 580 [143]"SGNPOKE 211,X BEWIRKT, DASS DER + 590 REM"[180]CURSOR AN D. SPALTE X SPRINGT[170] 600 [143]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR