home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dokgeofile
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
38 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 10"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [199]eo[198]ile [196]iskette"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;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>117thenprint"[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"[199]eo[198]ile [196]iskette 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,17,249
17 data187,31,9,23,82,18,21,255,255,31,21,255,255,31,0,0,0,0,0,0,0,0,0,0,0,0
18 data13,233,45,29,15,183,246,22,3,33,32,0,2,2,64,0,0,0,0,0,16,252,253,7,0,0,0
19 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,199,255,7,18,255,255,3,18,255,255
20 data3,10,85,117,1,18,255,255,3,18,255,255,3,18,255,255,3,17,255,255,1,17,255
21 data255,1,17,255,255,1,17,255,255,1,17,255,255,1,71,69,79,70,73,76,69,160
22 data160,160,160,160,160,160,160,160,160,160,66,73,160,50,65,160,160,160,160
23 data19,8,71,69,79,83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0
24 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
25 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195
26 data10,4,71,69,79,70,73,76,69,160,160,160,160,160,160,160,160,160,10,17,1
27 data6,88,9,28,11,44,188,0,0,0,131,23,13,71,69,79,77,69,82,71,69,160,160,160
28 data160,160,160,160,160,23,7,1,6,88,7,6,13,9,66,0,0,0,131,1,16,67,111,109
29 data109,111,100,111,114,101,95,71,69,160,160,160,160,1,8,1,8,87,11,3,11,28
30 data7,0,0,0,131,13,2,69,100,39,115,32,83,112,111,114,116,115,160,160,160,160
31 data160,13,15,1,7,88,7,6,13,9,51,0,0,0,131,15,11,73,110,32,115,116,97,116
32 data101,114,115,160,160,160,160,160,160,15,8,1,7,88,7,6,13,4,4,0,0,0,131,16
33 data8,79,117,116,32,111,102,32,115,116,97,116,101,114,115,160,160,16,0,1,7
34 data87,8,12,10,52,4,0,0,0,131,16,10,84,101,110,110,105,115,32,80,108,97,121
35 data101,114,115,160,160,16,2,1,7,87,8,12,10,55,4,0,0,0,131,15,6,71,101,110
36 data101,114,97,108,32,76,101,116,116,101,114,160,160,15,19,1,7,87,8,12,10,47
37 data4,0,-3