home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / demo5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  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.