64'er/64ER_CD.iso/87xx/8703a.d64/gfl

Commodore BASIC | 1995-03-30 | 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