home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dokzeichensatz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
37 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 17"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [218]eichensaetze, [212]eil 2"tab(80)"in das [204]aufwerk legen"
4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
5 print#1,"u1:"2;0;17;9:print#1,"b-p"2;118:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>16thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
7 readn:ifn<0then9
8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
9 on abs(n) goto10,11,14
10 read lb:goto 7
11 if si=1 thenprint#1,"u2:";2;0;t;s
12 read t: read s
13 print#1,"u1:";2;0;t;s:si=1:goto7
14 print#1,"u2:";2;0;t;s:print#1,"i"
15 close2:close1:print"[218]eichensaetze [212]eil 2 nun wieder"tab(80)"verwendbar!"
16 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18 data0,0,0,0,0,0,0,0,14,188,253,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20 data0,0,0,10,199,135,1,17,255,255,1,70,79,78,84,83,58,32,51,32,118,111,110
21 data32,52,160,160,160,160,68,65,48,50,56,160,160,160,160,19,8,71,69,79,83,32
22 data102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195,1,16,78,121,115
25 data97,160,160,160,160,160,160,160,160,160,160,160,160,1,8,1,8,88,7,6,1,0
26 data48,0,0,0,195,3,3,79,112,104,101,108,116,101,115,160,160,160,160,160
27 data160,160,160,3,16,1,8,88,7,6,0,0,23,0,0,0,195,4,5,79,114,110,121,116,104
28 data105,111,110,160,160,160,160,160,160,160,4,18,1,8,88,7,6,0,0,29,0,0,0
29 data195,5,11,79,114,116,104,114,111,115,160,160,160,160,160,160,160,160
30 data160,5,3,1,8,88,7,6,0,0,58,0,0,0,195,8,13,79,120,121,108,111,115,160,160
31 data160,160,160,160,160,160,160,160,8,5,1,8,88,7,6,0,0,36,0,0,0,195,10,18
32 data80,97,107,116,111,108,111,115,160,160,160,160,160,160,160,160,10,10,1
33 data8,88,7,6,0,0,25,0,0,0,195,11,19,80,97,108,97,109,101,100,101,115,160
34 data160,160,160,160,160,160,11,11,1,8,88,7,6,0,0,12,0,0,0,195,12,0,80,97
35 data110,100,97,114,101,111,115,160,160,160,160,160,160,160,12,13,1,8,88
36 data7,6,0,0,34,0,-3