home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 May / 64er_Magazin_89-05_1989_Markt__Technik_de.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  120 lines
  1. 1 rem *********************************
  2. 2 rem *    d e m o f e n s t e r      *
  3. 3 rem *                               *
  4. 4 rem * bertram hafner, grossaitingen *
  5. 5 rem *********************************
  6. 7 poke53280,2:poke53281,11:poke648,64:print"[147]":poke648,4:print"[147]";
  7. 8 poke52,90:poke56,90:clr
  8. 9 :
  9. 10 rem ____ fenster aktivieren ________
  10. 13 print"[154]loading"tab(15)"sprite-":printtab(16)"fenster":printtab(17)"[192][192][192][192][192][192][192]"
  11. 15 sys57812"spritefenster",8,1:poke780,0:sys65493
  12. 16 print,"[144]     moment, ich lade":print,"     noch eine grafik"
  13. 17 sys57812"dgrafik",8,1:poke780,0:sys65493:rem demo-grafik ab 96*256
  14. 18 poke777,198:x%=136:y%=74:!bik(x%,y%):!col(5):!adr(4,1,62):!hik(112,24)
  15. 19 !pri(1):!fen(8,0,0,0):v=53248:c=56576:pokev+27,255
  16. 20 rem ____ textfenster _______________
  17. 21 k1$="textfenster im textschirm":gosub310:gosub320:fori=1to1000:next
  18. 22 print"           ":print,"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  19. 23 fori=1to11:print,"[221]                        [221]":next
  20. 24 print,"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  21. 25 fori=0to500:next
  22. 26 fori=1to10:!bik(x%,y%):x%=x%-1:y%=y%-1:fork=1to50:next
  23. 27 !bik(x%,y%):x%=x%-1:y%=y%+1:fork=1to50:next
  24. 28 !bik(x%,y%):x%=x%+1:y%=y%+1:fork=1to50:next
  25. 29 !bik(x%,y%):x%=x%+1:y%=y%-1:fork=1to50:next
  26. 30 next
  27. 31 fori=1to32:y%=y%+2:x%=x%-6*cos(.0785*i+.4):!bik(x%,y%):next
  28. 32 !fen(8,1,1):!bik(113,131):fori=1to500:next
  29. 33 fori=1to3:!col(5,1,1):fork=1to300:next:!col(5):fork=1to300:next:next
  30. 34 !fen(8,1,1,1):fori=1to100:next
  31. 35 print"  >>>>>>>>>>>bertram hafner"
  32. 36 print"  grossaitingen  <<<<<<<<<<<<":fori=1to300:next
  33. 37 !hik(c%,d%):c%=c%+1:ifc%=224thenc%=0
  34. 38 ifc%<>112then37
  35. 39 k$(0)="benutze joy 2 mit/ohne fire - f1 weiter"
  36. 40 !joy(3):k2$=k$(0):gosub320:poke198,0
  37. 41 geta$:ifa$=""ora$<>chr$(133)then41
  38. 42 !joy(0)
  39. 43 !adr(64,1):!fen(0,0,0):x%=193:y%=129:c%=0:d%=0:!bik(x%,y%):!hik(c%,d%)
  40. 45 poke648,64:print"       spritefenster kann jeden speicher"
  41. 46 print"eden speicherbereich sehen - als text od"
  42. 47 print"- als text oder als grafik !":poke648,4
  43. 50 cx%=10:cy%=9:gosub300:print"[176][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]      "
  44. 51 fori=1to5:cy%=9+i:gosub300:print"[194]         [194]         [146][144][194]      ":next
  45. 52 cy%=15:gosub300:print"[171][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]      "
  46. 53 fori=1to5:cy%=15+i:gosub300:print"[194]         [146][144][194][158]         [146][144][194]     ":next
  47. 54 cy%=21:gosub300:print"[173][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]      "
  48. 73 k2$="":gosub320:!fen(6)
  49. 74 fori=1to80:x%=x%-1:!bik(x%,y%):next
  50. 75 fori=0to215:c%=c%+1:!hik(c%,d%):next
  51. 77 c%=0:d%=d%+32:ifd%<72then75
  52. 80 !joy(3):k2$=k$(0):gosub320:poke198,0
  53. 81 geta$:ifa$=""ora$<>chr$(133)then81
  54. 82 !joy(0):!fen(0)
  55. 100 rem ____ grafikfenster ____________
  56. 101 k1$="grafikfenster im textschirm":gosub310
  57. 102 k2$="":gosub320
  58. 105 cx%=10:cy%=9:gosub300:print"                 [146]        "
  59. 106 cy%=10:gosub300:print"       [146][144]  [170]      [144] [146]       "
  60. 107 cy%=11:gosub300:print"      [146][216][144]  [170]   [216]  [144] [146]       "
  61. 108 cy%=12:gosub300:print"      [146] [144]  [170]      [144] [146]       "
  62. 109 cy%=13:gosub300:print"     [146][216] [144]  [170]    x [144] [146]       "
  63. 110 cy%=14:gosub300:print"     [146]  [144]  [170]      [144] [146]       "
  64. 111 cy%=15:gosub300:print"    [146][216]  [144]  [170][208]    [216][144] [146]       "
  65. 112 fori=1to5:cy%=15+i:gosub300:print"    [146]     [170]       [146]         ":next
  66. 116 cy%=21:gosub300:print"                 [146]        "
  67. 120 !col(14):!adr(96,0):!bik(136,132):!joy(3):!fen(8,0,1)
  68. 121 fori=1to3:d%=35:c%=0
  69. 122 !hik(c%,d%):d%=d%-1:c%=c%+1:ifd%>0then122
  70. 123 next
  71. 125 d%=120:c%=0:!col(3):!fen(8,0,1,0):gosub127
  72. 126 !col(5):gosub127:!col(7):gosub127:!fen(0):goto150
  73. 127 fork=0to50:!hik(k,d%):next:return
  74. 150 rem ____ grafikschirm _____________
  75. 155 k1$="textfenster im grafikschirm":gosub310:gosub330:fori=0to2000:next
  76. 156 !adr(4,1,90):!col(3):!bik(50,80):d%=5:c%=0:!pri(0)
  77. 157 !hik(c%,d%):!fen(8,0,0):fori=0to2000:next
  78. 158 c%=c%+1:!hik(c%,d%):ifc%<131then158
  79. 159 fori=0to100:next:c%=0:!hik(c%,d%)
  80. 160 cx%=0:cy%=8:gosub300:print"benutze den   ":print" joystick!  "
  81. 161 print:print"weiter mit  ":print"    f1     "
  82. 164 !hik(c%,d%):d%=d%+1:ifd%<63then164
  83. 165 !joy(3):poke789,192
  84. 177 poke198,0:wait198,1:!fen(0)
  85. 200 k1$="input im grafikschirm":gosub310:gosub330
  86. 205 !joy(0):!col(3):!bik(50,80):d%=5:c%=0
  87. 210 !hik(c%,d%):!fen(8,0,0):fori=0to2000:next
  88. 215 c%=c%+1:!hik(c%,d%):ifc%<131then215
  89. 220 fori=0to100:next
  90. 225 cx%=0:cy%=8:gosub300:fori=0to4:print"            ":next
  91. 230 gosub300:print"farbe (0-15)":!gra(2,5):!hik(0,56):inputa$:!gra(0)
  92. 235 ifa$=""or(val(a$)>15)then280
  93. 240 a=val(a$):fori=0to159:poke24112+i,a:next:goto225
  94. 280 !fen(0):gosub340:k2$="demo - ende":gosub320:poke198,0
  95. 290 print"[145][145][145][145][145][145]"
  96. 299 end
  97. 300 rem cursorposition
  98. 301 poke211,cx%:poke214,cy%:sys58640:return
  99. 310 rem kommentar 1
  100. 311 print"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  101. 312 printleft$("[144] demo: "+k1$+"                                 ",42);"[146]";
  102. 313 :return
  103. 320 rem kommentar 2
  104. 321 cx%=0:cy%=22:gosub300
  105. 322 print"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  106. 323 printleft$("[144]"+k2$+"                                        ",42);"[146]";
  107. 324 :return
  108. 330 rem grafikmodus/bank 1
  109. 331 pokec+2,(peek(c+2))or3:pokec,(peek(c)and252)or2:rem bank 1
  110. 332 pokev+24,(peek(v+24)and15)or112:rem bildschirm (=farbram) nach 92*256
  111. 333 pokev+24,peek(v+24)or8:rem hires nach 96*256
  112. 334 pokev+17,(peek(v+17))or32:rem bitmap-modus
  113. 335 return
  114. 340 rem textmodus/bank 0
  115. 341 pokec+2,(peek(c+2))or3:pokec,(peek(c))or3:rem bank 0
  116. 342 pokev+24,(peek(v+24)and15)or16:rem bildschirm nach 4*256
  117. 343 pokev+24,(peek(v+24)and241)or4:rem zeichen nach 208*256
  118. 344 pokev+17,(peek(v+17))and223:rem bitmap-aus
  119. 345 return
  120.