home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 June
/
64er_Magazin_86-06_1986_Markt__Technik_de_Side_B.d64
/
zeich.editorv1.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
74 lines
10 ifa=0thengosub10000
20 ifa=0thena=1:load"z.e.t1",8,1
30 ifa=4thenthen1510
40 poke53265,11:poke56576,peek(56576)and252:poke53272,56:poke648,204:sys49152+18
50 sys49152+24:sys49152+9:print"";
1000 sys49152+3
1510 poke198,0:wait198,1:getx$:ifx$=""thensys49152+18:goto1510
1512 ifx$=""thenprintchr$(142);:goto1510
1514 ifx$=""thenprintchr$(14);:goto1510
1516 ifx$=""thensys49152+27:goto1510
1520 wa=asc(x$)-133:ifwa<0orwa>7then1510
1530 ifwa=0goto1000
1540 onwagosub 2000,4000,7000,9000,3000,5000,8000
1550 sys49152+9:goto1510
2000 gosub20000
2010 fori=0to7:poke828+i,usr(tn+i):next
2020 return
3000 gosub20000
3010 fori=0to7:poke828+i,usr(tn-4096+i):next
3020 return
4000 gosub60000:print" [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218] [204] [193] [196] [197] [206] [146]"
4010 print" [206]ame des [218]eichensatzes ('e' zurueck)"
4015 print""dn$:print"[145]";
4020 inputdn$:ifdn$="e"thenreturn
4030 open1,8,0,dn$:open15,8,15:input#15,er,er$,tt,ss:ifer<>0then63000
4040 get#1,x$,x$:sys49152+15:close1:close15:return
5000 gosub60000:print" [218] [197] [201] [195] [200] [197] [206] [211] [193] [212] [218] [211] [208] [197] [201] [195] [200] [210] [206][146]"
5010 print" [206]ame des [218]eichensatzes ('e' zurueck)
5015 [153]""dn$:[153]"on";
5020 [133]dn$:[139]dn$[178]"e"[167][142]
5030 [159]1,8,1,dn$:[159]15,8,15:[132]15,er,er$,tt,ss:[139]er[178]63[167][137]62000
5040 [139]er[179][177]0[167]63000
5050 [157]1,[199](0)[199](112);:[158]49152[170]12:[160]1:[160]15:[142]
7000 [158]49152[170]30:[142]
8000 [158]49152[170]27:[158]49152[170]30:[158]49152[170]27:[142]
9000 [141]20000
9010 [129]i[178]0[164]7:[151]tn[170]i,[194](828[170]i):[151]tr[170]i,255[171][194](828[170]i):[130]:[142]
10000 [151]53265,11:[151]53281,0:[151]53280,11:[153]"loadprint#";
10010 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
10020 [153]"(NULL)wait+ + + (NULL)closevalcloseright$closelencloseleft$closevalclose(NULL)closevalclosestr$closeright$close(NULL)close(NULL)close(NULL)close+ + + print#(NULL)";
10030 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexpwait"
10040 [153]" peekcloseright$close(NULL)close(NULL)closevalclosecloseclose(NULL)closeatnclose(NULL)close(NULL)closevalclose(NULL)close. . ."
10050 [153]"print# ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
10055 [153]" (NULL) lenopyright (c) 1986 (NULL)
10060 print" [221] [221]
10065 [153]" (NULL) sys(NULL)arkt & (NULL)echnik (NULL)erlag atnchr$print# (NULL)
10070 print" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
10075 print" [221] 1985 written by [221]"
10080 print" [221] [221]"
10085 print" [221] ********************* [221]"
10090 print" [221] * [158][205]artin [208]ahl[152] * [221]"
10100 print" [221] * [158][197]ntruper [215]eg 44[152] * [221]"
10110 print" [221] * [158]4920 [204]emgo[152] * [221]"
10120 print" [221] * [158][212]el.: 05261/10431[152] * [221]"
10130 print" [221] ********************* [221]"
10140 print" [221] [221]"
10150 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
10160 poke53265,27
10170 return
20000 print"[215]elche [212]aste ? ";:poke52492,160
20010 poke198,0:wait198,1:getx$:x=asc(x$):ifx<32or(x>128andx<160)then20010
20020 printx$;:ifpeek(52492)=160thenprint"[157]";:goto20010
20030 tn=57344+(peek(53272)and2)*1024+peek(52492)*8:tr=tn+1024
20040 print:return
60000 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60010 print"[168][146]+ + + [218] [197] [201] [195] [200] [197] [206] [197] [196] [201] [212] [207] [210] + + + [152][168]";
60020 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"
60030 return
62000 gosub63000:print"[196]atei scratchen ?":poke198,0:wait198,1
62010 getx$:ifx$="n"thenreturn
62020 ifx$="j"thenopen15,8,15,"s0:"+dn$:close15:goto5000
62030 goto62010
63000 print""er","er$","tt","ss:close1:close15:poke198,0:wait198,1:return