home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / demo5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.7 KB  |  75 lines
  1. 110 rem  **  utiliy demo **
  2. 120 :
  3. 130 poke53280,6:poke53281,0:poke646,15
  4. 140 (NULL) 0:(NULL) 2
  5. 150 print "  bitte legen sie eine disketten in "
  6. 160 (NULL) 4
  7. 170 print "  das laufwerk #8."
  8. 180 (NULL) 6
  9. 190 print "  druecken sie danach eine taste !"
  10. 200 gosub 10000
  11. 210 (NULL) 0
  12. 220 (NULL)
  13. 230 gosub10115
  14. 240 (NULL) 0
  15. 250 (NULL) 2
  16. 260 print "  das war die directory "
  17. 270 gosub 10115
  18. 280 (NULL) 0
  19. 300 (NULL) 2
  20. 310 print "";:(NULL)
  21. 320 (NULL) 4
  22. 330 print "   ^   ^  ^  ^"
  23. 340 print "   [194]   [194]  [194]  [173][195] sector"
  24. 350 print "   [194]   [194]  [173][195][195][195][195] block "
  25. 360 print "   [194]   [173][195][195][195][195][195][195][195] fehlerbezeichnung"
  26. 370 print "   [173][195][195][195][195][195][195][195][195][195][195][195] fehlernummer"
  27. 380 (NULL) 10
  28. 390 print "  dies ist das statusregister des"
  29. 400 (NULL) 12
  30. 410 print "  laufwerkes #8."
  31. 420 gosub 10100
  32. 430 (NULL) 0
  33. 440 for i=0 to 39
  34. 450 (NULL) sin(i/5)*6+12
  35. 460 print tab(i);"*"
  36. 470 next
  37. 480 gosub 10100
  38. 490 (NULL)1
  39. 500 (NULL)3,0:(NULL):(NULL)1
  40. 510 print"    nun sehen sie einige grafikdemos"
  41. 515 (NULL)0
  42. 520 fori=1to1500:next
  43. 530 (NULL)1
  44. 540 fori=1to152step4
  45. 550 (NULL)i,i,i/2,i/3
  46. 555 (NULL)319-i,i,i/2,i/3
  47. 560 next
  48. 570 gosub 10200
  49. 580 (NULL)
  50. 590 fori=1to320step4
  51. 600 (NULL)cos(i/15)*20+50,i/1.6,319-2*abs((cos(i/15)*20+50))
  52. 610 next
  53. 620 (NULL) 88,29,144,144
  54. 621 (NULL)1
  55. 625 fori=25+kto70step5
  56. 630 (NULL)160,100,i,i
  57. 640 next
  58. 650 k=k+1
  59. 660 ifk<5then625
  60. 730 (NULL)0
  61. 740 gosub 10000:end
  62. 10000 geta$:ifa$=""then10000
  63. 10005 (NULL)
  64. 10010 return
  65. 10100 rem  ** tastendruck ? **
  66. 10110 for i=1 to 3000:next
  67. 10115 (NULL) 1,11,38,3,1
  68. 10120 print "bitte druecken sie eine taste."
  69. 10130 gosub 10000
  70. 10140 (NULL)
  71. 10150 for i=1 to 500:next
  72. 10160 return
  73. 10200 for i=1 to 2000:next
  74. 10210 return
  75.