home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 December
/
64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64
/
geossicher.simul
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
49 lines
10 printchr$(14):poke53280,0:poke53281,0
20 print"[147][199][197][207][211]-[211]imulatinsdiskettenerzeuger"
30 print"[197]rzeugt die [211]imulation einer [199][197][207][211]-[211]icherheitsdiskette von [200]."
40 print"[145][202].[218]iethmann"
50 print"[204]egen [211]ie eine neue [196]iskette in das [204]aufwerk [206]ummer 8"
51 print"und druecken eine [212]aste"
60 print"[198]orsicht, alle [196]aten auf der [196]iskette werden zerstoert[146]"
80 wait203,64,64
90 open1,8,15,"n:s[217][211][212][197][205][196][201][211][203][197][212][212][197],64":close1
110 getn$:open15,8,15,"i":open1,8,2,"#2":restore
120 read n:ifn<0then140
130 print#15,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto120
140 on abs(n) goto 150,160,190
150 read lb:goto 120
160 ifsi=1thenprint#15,"u2";2;0;t;s
170 read t:read s
180 print#15,"u1"2;0;t;s:si=1:goto 120
190 print#15,"u2"2;0;t;s
200 close1::close15:print"[211]icherheitsdiskette[160]2.0 erzeugt":end
220 data -2,20,5,-1,0,20,13,165,4,24,101,16,133,16,144,2,230,17,165,6,56
230 data229,4,133,6,176,2,198,7,230,12,230,12,164,12,173,1,128,133,5,153,1,131
240 data173,0,128,133,4,153,0,131,208,159,162,0,104,133,2,104,133,3,76,95,194
250 data173,103,136,240,3,76,35,194,76,32,194,32,20,194,138,208,53,141,103,136
260 data32,92,194,169,128,133,11,169,0,133,10,165,15,72,165,14,72,165,17,72,165
270 data16,72,32,100,158,104,133,16,104,133,17,104,133,14,104,133,15,138,208,6
280 data206,103,136,32,100,158,32,95,194,96,160,0,177,14,240,59,133,4,200,177
290 data14,133,5,136,32,128,157,177,14,145,10,200,177,14,145,10,160,254,169,48
300 data133,1,136,177,16,153,2,128,152,208,247,169,54,133,1,32,29,158,138,208
310 data15,24,169,254,101,16,133,16,144,2,230,17,184,80,191,170,96,0,0,0,160
320 data147,208,10,160,144,208,6,160,146,208,2,160,145,162,13,165,8,205,195,136
330 data176,63,166,1,169,53,133,1,165,3,141,3,223,165,2,141,2,223,165,5,141,5
340 data223,165,4,141,4,223,165,8,141,6,223,165,7
350 data -2,20,12,-1,0,21,14,15,129,167,134,221,168,78,240,154,162,231,39
360 data213,43,194,37,158,200,160,221,67,2,206,42,158,200,48,218,63,162,63,2,0
370 data168,134,125,63,242,141,5,156,174,146,76,128,46,136,102,195,152,226,243
380 data4,137,52,120,32,138,164,27,6,115,240,39,208,239,128,247,0,0,156,37,12
390 data157,129,190,33,15,181,78,45,36,94,153,107
400 data44,218,173,98,137,80,71,209,171,203,129,131,157,186,115,74,7,0,248,8,17
410 data36,255,205,173,136,199,35,196,207,98,185,43,201,221,249,237,141,174,119
420 data173,189,162,3,228,15,172,82,88,206,190,162,99,6,169,197,173,12,6,141
430 data188,135,45,244,34,147,5,0,171,69,202,215,233,162,25,157,238,87,162,28
440 data144,192,87,43,33,41,173,83,193,216,207,128,82,13,132,109,78,219,166,8
450 data87,37,163,9,168,160,171,172,0,105,162,228,187,103,195,142,5,254,160,224
460 data125,127,224,164,146,14,141,82,117,221,64,200,105,121,99,147,112,187,215
470 data194,117,49,141,60,131,154,172,19,132,136,104,5,192,102,173,77,108,78,61
480 data113,0,96,96,193,111,198,108,127,106
490 data-2,18,0,-1,144,83,105,99,104,101,114,104,101,105,116,115,121,115,116
500 data101,109,160,160,76,74,160,50,65,160,-3