home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.7 KB  |  90 lines
  1. 6 rem  dieses kurze demo-programm soll
  2. 8 rem  ein paar darstellungsformen
  3. 10 rem zeigen, wie sie mit provic-64
  4. 12 rem relativ einfach erreichbar sind.
  5. 14 rem       1984 by gebr. haas
  6. 19 rem
  7. 20 rem laden der provic-64 routine
  8. 21 rem
  9. 30 ifpeek(52544)=120then100
  10. 40 print" auf welchem datentraeger ist provic-64"
  11. 50 print" verfuegbar ( floppy =8 / datasette =1 )"
  12. 60 input" ";a$:a=val(a$)
  13. 70 if a<>1 and a<>8 then40
  14. 80 load"provic 64",a,1
  15. 99 rem
  16. 100 rem pseudo-vic's initialisieren
  17. 101 rem
  18. 110 p1=52992:p2=53056:p3=53120:p4=53184:rem basisadressen der pseudo-vic's
  19. 120 pokep1+21,255:pokep1+24,22:pokep1+47,1:pokep1+27,255:pokep2+21,255
  20. 130 pokep2+17,59:pokep2+24,24:pokep2+32,7:pokep2+47,1:pokep2+27,255
  21. 140 pokep3+21,255:pokep3+32,9:pokep3+47,1:pokep3+27,255:pokep4+32,5
  22. 150 pokep4+21,255:pokep4+24,22:pokep4+47,1:pokep4+18,230:pokep4+27,255
  23. 199 rem
  24. 200 rem sprite-daten uebertragen
  25. 201 rem
  26. 210 restore
  27. 220 fora=0to126
  28. 230 read wert
  29. 240 poke832+a,wert
  30. 250 nexta
  31. 299 rem
  32. 300 rem bilschirm aufbauen
  33. 301 rem
  34. 310 print"[147][208][160][210][160][207][160][214][160][201][160][195][160][160][160]6[160]4[160][160][160][196][160][197][160][205][160][207]"
  35. 320 print" [201]n diesem [194]ereich: [199][210][207][211][211]/klein-[211]chrift":
  36. 330 fora=0to7:print"rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr";:nexta
  37. 335 fora=0to14:poke1289+a,34:nexta
  38. 340 print"      ^ dort oben: hires-grafik-modus ^"
  39. 350 print"             hier: gross-schrift/grafik"
  40. 360 print" [209][215][197][210][212][217][213][201][207][186][192][255][204][203][202][200][198][211][193][218][216][195][214][194][206][205][171][179][177][178][163][187][165][173][189][188][190][191]"
  41. 370 print"      ^ [196]ort oben: [204]aufschrift ^[145][145][145]":printtab(6);
  42. 390 sys52544:rem provic-64 activieren
  43. 399 rem
  44. 400 rem hires-grafik zeichnen
  45. 401 rem
  46. 410 fora=10110to12360:pokea,0:nexta
  47. 420 fora=0to8*(NULL)step.08
  48. 430 x=3+a/.08:y=77-11*sin(a)-9*cos(a/.7)
  49. 440 av=8192+320*int(y/8)+(y and7)+8*int(x/8)
  50. 450 pokeav,peek(av) or 2^(7-(x and 7))
  51. 460 nexta
  52. 470 la$="*** von [200]aasi[211]oft ***  [198]uer das 64'er [205]agazin   "
  53. 480 la$=la$+"***   [208][160][210][160][207][160][214][160][201][160][195][160][160][160]6 4   "
  54. 490 la$=la$+left$(la$,25):r=53266
  55. 499 rem
  56. 500 rem demonstratins-schleife
  57. 501 rem
  58. 510 rem sprites setzen
  59. 511 rem
  60. 520 fora=0to7
  61. 530 pokep1+2*a,30+24*a+7*rnd(1):pokep1+2*a+1,60+6*rnd(1)
  62. 540 pokep1+39+a,rnd(1)*16:pokep1+48+a,13.5+rnd(1)
  63. 550 pokep2+2*a,30+24*a+7*rnd(1):pokep2+2*a+1,110+6*rnd(1)
  64. 560 pokep2+39+a,rnd(1)*16:pokep2+48+a,13.5+rnd(1)
  65. 570 pokep3+2*a,30+24*a+7*rnd(1):pokep3+2*a+1,160+6*rnd(1)
  66. 580 pokep3+39+a,rnd(1)*16:pokep3+48+a,13.5+rnd(1)
  67. 590 pokep4+2*a,30+24*a+7*rnd(1):pokep4+2*a+1,207+6*rnd(1)
  68. 600 pokep4+39+a,rnd(1)*16:pokep4+48+a,13.5+rnd(1)
  69. 610 nexta
  70. 619 rem
  71. 620 rem laufschrift setzen
  72. 621 rem
  73. 625 forlp=1tolen(la$)-25
  74. 630 lz=lz-1:iflz>0thenpokep4+22,lz or 8:fora=0to9:nexta:goto630
  75. 640 printtab(6);:wait53265,128:wait53266,64:poke53206,15:printlf$:print"[145][145]"
  76. 660 lz=7:lf$=mid$(la$,lp,25)
  77. 670 nextlp
  78. 680 geta$:ifa$=""then500
  79. 690 sys52970:rem provic-64 desaktivieren
  80. 999 rem
  81. 1000 rem sprite-daten
  82. 1001 rem
  83. 1002 data0,0,0,0,126,0,1,255,128,7,255,224,15,255,240,15,253,240,31,255,248
  84. 1003 data31,255,248,63,255,252,63,255,252,63,243,252,63,252,0,63,255,252,63
  85. 1004 data255,252,31,255,248,31,255,248,15,255,240,15,255,240,7,255,224,1,255
  86. 1005 data128,0,126,0,0,0,0,0,0,126,0,1,255,128,7,255,224,15,255,240,15,251
  87. 1006 data240,31,255,248,31,255,248,63,255,240,63,255,0,63,240,0,63,252,0,63
  88. 1007 data255,0,63,255,224,31,255,248,31,255,248,15,255,240,15,255,240,7,255
  89. 1008 data224,1,255,128,0,126,0
  90.