home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / geossystem.simul (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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]ystemdiskette 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][217][211][212][197][205][196][201][211][203][197][212][212][197][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,121,115,116,101,109,160,160,160,160,160,160,160,160
  48. 500 data160,160,160,160,76,74,160,50,65,160,-3
  49.