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 >
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
126 lines
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