home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / geossicher.simul (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  49 lines
  1. 10 PRINTCHR$(14):POKE53280,0:POKE53281,0
  2. 20 PRINT"[147][199][197][207][211]-[211]IMULATINSDISKETTENERZEUGER"
  3. 30 PRINT"[197]RZEUGT DIE [211]IMULATION EINER [199][197][207][211]-[211]ICHERHEITSDISKETTE VON [200]."
  4. 40 PRINT"[145][202].[218]IETHMANN"
  5. 50 PRINT"[204]EGEN [211]IE EINE NEUE [196]ISKETTE IN DAS     [204]AUFWERK [206]UMMER 8"
  6. 51 PRINT"UND DRUECKEN EINE [212]ASTE"
  7. 60 PRINT"[198]ORSICHT, ALLE [196]ATEN AUF DER [196]ISKETTE   WERDEN ZERSTOERT[146]"
  8. 80 WAIT203,64,64
  9. 90 OPEN1,8,15,"N:S[217][211][212][197][205][196][201][211][203][197][212][212][197],64":CLOSE1
  10. 110 GETN$:OPEN15,8,15,"I":OPEN1,8,2,"#2":RESTORE
  11. 120 READ N:IFN<0THEN140
  12. 130 PRINT#15,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO120
  13. 140 ON ABS(N) GOTO 150,160,190
  14. 150 READ LB:GOTO 120
  15. 160 IFSI=1THENPRINT#15,"U2";2;0;T;S
  16. 170 READ T:READ S
  17. 180 PRINT#15,"U1"2;0;T;S:SI=1:GOTO 120
  18. 190 PRINT#15,"U2"2;0;T;S
  19. 200 CLOSE1::CLOSE15:PRINT"[211]ICHERHEITSDISKETTE[160]2.0 ERZEUGT":END
  20. 220 DATA -2,20,5,-1,0,20,13,165,4,24,101,16,133,16,144,2,230,17,165,6,56
  21. 230 DATA229,4,133,6,176,2,198,7,230,12,230,12,164,12,173,1,128,133,5,153,1,131
  22. 240 DATA173,0,128,133,4,153,0,131,208,159,162,0,104,133,2,104,133,3,76,95,194
  23. 250 DATA173,103,136,240,3,76,35,194,76,32,194,32,20,194,138,208,53,141,103,136
  24. 260 DATA32,92,194,169,128,133,11,169,0,133,10,165,15,72,165,14,72,165,17,72,165
  25. 270 DATA16,72,32,100,158,104,133,16,104,133,17,104,133,14,104,133,15,138,208,6
  26. 280 DATA206,103,136,32,100,158,32,95,194,96,160,0,177,14,240,59,133,4,200,177
  27. 290 DATA14,133,5,136,32,128,157,177,14,145,10,200,177,14,145,10,160,254,169,48
  28. 300 DATA133,1,136,177,16,153,2,128,152,208,247,169,54,133,1,32,29,158,138,208
  29. 310 DATA15,24,169,254,101,16,133,16,144,2,230,17,184,80,191,170,96,0,0,0,160
  30. 320 DATA147,208,10,160,144,208,6,160,146,208,2,160,145,162,13,165,8,205,195,136
  31. 330 DATA176,63,166,1,169,53,133,1,165,3,141,3,223,165,2,141,2,223,165,5,141,5
  32. 340 DATA223,165,4,141,4,223,165,8,141,6,223,165,7
  33. 350 DATA -2,20,12,-1,0,21,14,15,129,167,134,221,168,78,240,154,162,231,39
  34. 360 DATA213,43,194,37,158,200,160,221,67,2,206,42,158,200,48,218,63,162,63,2,0
  35. 370 DATA168,134,125,63,242,141,5,156,174,146,76,128,46,136,102,195,152,226,243
  36. 380 DATA4,137,52,120,32,138,164,27,6,115,240,39,208,239,128,247,0,0,156,37,12
  37. 390 DATA157,129,190,33,15,181,78,45,36,94,153,107
  38. 400 DATA44,218,173,98,137,80,71,209,171,203,129,131,157,186,115,74,7,0,248,8,17
  39. 410 DATA36,255,205,173,136,199,35,196,207,98,185,43,201,221,249,237,141,174,119
  40. 420 DATA173,189,162,3,228,15,172,82,88,206,190,162,99,6,169,197,173,12,6,141
  41. 430 DATA188,135,45,244,34,147,5,0,171,69,202,215,233,162,25,157,238,87,162,28
  42. 440 DATA144,192,87,43,33,41,173,83,193,216,207,128,82,13,132,109,78,219,166,8
  43. 450 DATA87,37,163,9,168,160,171,172,0,105,162,228,187,103,195,142,5,254,160,224
  44. 460 DATA125,127,224,164,146,14,141,82,117,221,64,200,105,121,99,147,112,187,215
  45. 470 DATA194,117,49,141,60,131,154,172,19,132,136,104,5,192,102,173,77,108,78,61
  46. 480 DATA113,0,96,96,193,111,198,108,127,106
  47. 490 DATA-2,18,0,-1,144,83,105,99,104,101,114,104,101,105,116,115,121,115,116
  48. 500 DATA101,109,160,160,76,74,160,50,65,160,-3
  49.