home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 March
/
64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64
/
gfl
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
96 lines
10 a=a+1:if a=1 then load"gdm.obj",8,1
15 b=b+1:if b=1 then load"gdm.codes",8,1
20 bm=49664:fort=0 to 7:poke 49438+t,2^t:next:poke53269,0:poke53280,0:poke646,1
25 poke 53281,0:buff=bm+2:poke53272,23
30 poke657,128:print"[147][199]eos [198]ile [204]inker von [212]horsten [208]etrowski[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
32 print"([195]) [205]arkt & [212]echnik
35 [153] " (NULL)u linkendes ascile";:[141] 175:ff[178]0:sf$[178]in$
36 [160] 15:[160] 2:[159] 15,8,15,"io":[159] 2,8,2,"#"
40 [139] in$[178]"$" [167] sf$[178][199](0)
45 [141] 210:[139] ff[178]0 [167] 35
50 [153]"ascright$(NULL)val-valright$(NULL)(NULL)(NULL)atnchr$:wait":[139] it[179][177]0 [167] 75
55 it[178]1:is[178]0
60 [152]15,"b-a 0";it;is:[132]15,rep,dummy$,it,is
61 [139] rep[178]0 [167] it[178]1:is[178]0:[137] 75
65 [139] rep[178]65 [175] it[178]0 [167] [153]"-(NULL)ichts mehr frei !":[128]
75 [151] rb[170]21,0:[151] rb[170]19,it:[151] rb[170]20,is:[153]" chr$val(NULL)(NULL) asciletyp :"
80 [153]"0 (NULL)icht chr$val(NULL)(NULL)",,,"1 peekasic",,,,"2 atnssembler",,,"4 (NULL)ystem-str$atei",,,
85 [153]"5 str$esktoatnccessory",,,"6 atnpplikation",,,"8 ascont-ascile",,,
90 [153]"9 str$ruckertreiber",,,"10 valingabetreiber"
95 ad[178]rb[170]22:[153]" right$hre (NULL)ahl";:[141] 180:gt[178][197](in$)
100 ad[178]rb[170]23:ou$[178]"(NULL)chreibjahr":[141]205:ou$[178]" -monat":[141]205
105 ou$[178]" -tag":[141]205:ou$[178]" -stunde":[141]205
110 ou$[178]" -minute":[141] 205
115 [152]15,"b-p 2 0":[158] 49193:[152]15,"u2:2 0";at;as:[153]"right$nfoschirm"
120 [152]15,"u1:2 0";it;is:[158] 49152:[151]bm,0:[151] bm[170]1,255:[151] bm[170]2,3
125 [151] bm[170]3,21:[151] bm[170]4,191:[151] bm[170]69,gt:[151] bm[170]70,0
130 [129]t[178]0 [164] 62:[151] 832[170]t,[194](bm[170]5[170]t):[130]:[151] bm[170]68,129
135 [141] 285:[153]"load(NULL)tartadresse";:ad[178]bm[170]71:[141] 185:mem[178]mem[171]2:[141]190
140 [153]" valndadresse";:ad[178]bm[170]73:[141] 185
145 [153]" valinsprung";:ad[178]bm[170]75:[141] 185
150 [153]"'len(NULL)atn(NULL)(NULL)'";:ad[178]bm[170]77:l[178]20:[141] 200
155 [153]"'atn(NULL)(NULL)(NULL)(NULL)'";:ad[178]bm[170]97:l[178]19:[141] 200
160 [153]" 'right$(NULL)asc(NULL)'";:ad[178]bm[170]160:l[178]94:[141] 200
165 [152]15,"b-p 2 0":[158] 49193:[152]15,"u2:2 0";it;is:[153]"ascertig!"
170 [160] 2:[160] 15:[137] 445
175 [153]" :";:[159] 3,0,0:[132]3,in$:[160] 3:[153]:[142]
180 [141] 175:[151] ad,[197](in$):[142]
185 [141] 175:mem[178][197](in$)
190 [139] mem[179]0 [167] mem[178]0
191 b1[178][181](mem[173]256):b0[178]((mem[173]256)[171][181](mem[173]256))[172]256
195 [151] ad,b0:[151] ad[170]1,b1:[142]
200 [141] 175:we$[178][200](in$,l):[137] 425
205 [153] ou$;:[141]200:[151] ad,[197](in$):ad[178]ad[170]1:[142]
210 at[178]18:as[178]1:[153]" str$isk-(NULL)earch ...":ff[178]0
215 [152]15,"b-p 2 0":[152]15,"u1:2 0";at;as:[158] 49152:[151] 53280,0:sb[178]0
220 rb[178]32[172]sb[170]buff:[132]15,er,er$,et,es
225 [139] er[179][177]0 [167] [153]"str$isk-valrror ";er;":";er$;et;es:[128]
230 [158] 49259,(rb[170]3),16,nf$:[153]nf$:ls[178][195](sf$):ri$[178][201](sf$,1)
235 [139] ri$[179][177]"*" [175] [202](nf$,ls[170]1,1)[179][177]"." [167] 265
240 [139] ri$[178]"*" [175] sf$[178][200](nf$,ls[171]1)[170]"*" [167] 250
245 [139] sf$[179][177][200](nf$,ls) [167] 265
250 cn[178][195](nf$)
255 [139] [202](nf$,cn,1)[178]"." [175] cn[177]0 [167] cn[178]cn[171]1:[137] 255
260 sf$[178][200](nf$,cn):it[178][194](rb[170]19):is[178][194](rb[170]20):ff[178]1:[142]
265 sb[178]sb[170]1:[139] sb[179]8 [167] 220
270 at[178][194](buff[171]2):as[178][194](buff[171]1):[139] at[178]0 [167] [142]
275 [137] 215
280 b1[178][181](ad[173]256):b0[178]((ad[173]256)[171][181](ad[173]256))[172]256:[142]
285 [153]"load right$con valditwait":[151] 49425,32:[151] 49430,42
290 sy$[178]"tantantantantantantantantantantantantantantantantantantantantantantantan"
295 [153]" or"sy$"^"
300 ad[178]832:[129] y[178]0 [164] 20
305 [153]" (NULL)";:[129]x[178]0 [164] 2:[158]49407,[194](ad):ad[178]ad[170]1:[130] x:[153]"(NULL)":[130]y
310 [153]" /"sy$"exp"
315 [153]""[163]28);"^^^^^"
320 [151] 53269,1:[151] 2040,13:[151] 53248,255:[151] 53249,76:[151] 53288,1
325 [151] 53264,0:x[178]0:y[178]0:ox[178]2022:op[178]0:dd[178]1107
330 [151] ox,[194](ox)[175]127:[151] dd,[194](dd)[176]128
335 [161] key$:[139] key$[178]"" [167] 335
340 ox[178]dd:[139] key$[178]"" [175] x[179]23 [167] x[178]x[170]1
345 [139] key$[178]"cmd" [175] x[177]0 [167] x[178]x[171]1
350 [139] key$[178]"on" [175] y[177]0 [167] y[178]y[171]1
355 [139] key$[178]"" [175] y[179]20 [167] y[178]y[170]1
360 [139] key$[179][177]"q" [167] 370
365 [129]t[178]0 [164] 62:[151]49669[170]t,[194](832[170]t):[130]:[151] 53269,0:[142]
370 [139] key$[179][177]"r" [167] 390
375 [151] 832,255:[151] 833,255:[151] 834,255:[151] 893,255:[151] 894,255
380 [151] 892,255:[129]t[178]835 [164] 889 [169] 3
385 [151] t,[194](t)[176]128:[151] t[170]2,[194](t[170]2)[176]1:[130]:[137] 295
390 [139] key$[178]"load" [167] [129]t[178]832 [164] 895:[151] t,0:[130]:[137] 295
395 [139] key$[179][177]" " [167] 415
400 [139] ([194](by)[175] bi)[178]bi [167] 410
405 [151] by,[194](by)[176] bi:[151] dd,170:[137] 415
410 [151] by,[194](by)[175](255[171]bi):[151] dd,160
415 dd[178]1107[170]y[172]40[170]x:by[178]832[170](y[172]3)[170][181](x[173]8):bi[178]2[174](7[171]([181](((x[173]8)[171][181](x[173]8))[172]8)))
420 [137] 330
425 we$[178]we$[170][199](0):[129] w[178]1 [164] [195](we$):we[178][198]([202](we$,w,1))
430 [139] we[177]64 [175] we[179]91 [167] we[178]we[170]32:[137] 440
435 [139] we[177]192 [175] we[179]219 [167] we[178]we[171]128
440 [151] ad[171]1[170]w,we:[130] w:[142]
445 [153]" ((NULL))ochmal oder (val)nde ?"
450 [161] key$:[139] key$[178]"" [167] 450
455 [139] key$[178]"n" [176] key$[178]"(NULL)" [167] [138]20
460 [139] key$[178]"e" [176] key$[178]"val" [167] [128]
465 [137] 450