home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 71 / 64er_Magazin_Sonderheft_71_19xx_Markt__Technik_de_Side_B.d64 / rand (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  64 lines
  1. 10 poke53280,0:poke53281,0:print"[147]    randdemo von s.goebbels (c) 1987"
  2. 15 printtab(13)"[151]bitte warten..."
  3. 20 fori=0to209:readq:poke36864+i,q:next
  4. 30 fori=0to3:rem zeichen definieren
  5. 40 fora=0to7
  6. 50 poke37120+a+i*8,2^a
  7. 51 poke37144+a+i*8,2^(7-a):
  8. 60 nexta,i
  9. 70 fori=0to48step8:rem farben setzen
  10. 80 poke37168+i,1:poke37169+i,3:poke37170+i,5:poke37171+i,13
  11. 85 poke37172+i,13:poke37173+i,5:poke37174+i,3:poke37175+i,1
  12. 90 next
  13. 100 sys36864:rem mascinenprogramm :
  14. 32000 data120,169,31,141,20,3,169,144,141,21,3,173,17,208,41,127,141,17,208,169
  15. 32001 data186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7
  16. 32002 data173,13,220,88,76,49,234,173,254,144,201,6,240,18,169,6,141,254,144
  17. 32003 data169,1,141,18,208,169,19,141,17,208,76,107,144,169,0,141,254,144,169
  18. 32004 data248,141,18,208,169,27,141,17,208,76,157,144,120,169,49,141,20,3,169
  19. 32005 data234,141,21,3,169,240,141,26,208,88,96,173,0,145,141,255,63,160,0,234
  20. 32006 data234,234,162,0,232,224,8,208,251,185,1,145,141,255,63,185,48,145,141
  21. 32007 data33,208,162,0,232,224,18,208,251,200,192,47,208,232,169,0,141,33,208
  22. 32008 data76,188,254,173,0,145,141,255,145,162,0,189,1,145,157,0,145,232,224
  23. 32009 data47,208,245,173,255,145,141,47,145,173,95,145,141,255,145,162,63,189
  24. 32010 data47,145,157,48,145,202,224,255,208,245,173,255,145,141,48,145,76,188
  25. 32011 data254
  26. 33000 print"[159]dieses programm kommt ohne (!) sprites"
  27. 33010 print"aus. die zeichen auf den raendern wer-"
  28. 33020 print"den durch aenderung des wertes in $3fff"
  29. 33030 print"erzeugt."
  30. 33035 print"sie finden das maschinenprg. ab $9000"
  31. 33040 printtab(13)"<tastendruck>":poke198,0:wait198,1:poke198,0
  32. 33050 sys36953:poke53281,0:gosub35000
  33. 33060 fori=0to7:readq:poke37120+i,q:poke37144+i,q:poke37128+i,q:poke37136+i,q
  34. 33070 poke37152+i,q:poke37160+i,q:next
  35. 33080 data129,195,231,255,255,231,195,129
  36. 33090 fori=0to47:poke37168+i,11:next
  37. 34100 sys36864:poke198,0:wait198,1:poke198,0:sys36953
  38. 34110 fori=0to48step8
  39. 34120 poke37168+i,14:poke37169+i,11:poke37170+i,12:poke37171+i,15
  40. 34130 poke37172+i,15:poke37173+i,12:poke37174+i,11:poke37175+i,14
  41. 34140 next:sys36864
  42. 34150 poke198,0:wait198,1:poke198,0:sys36953:restore:goto10
  43. 35000 print"[147]aufbau des maschinenprogramms:"
  44. 35010 print"[159]der erste rasterinterrupt bei $0f8 sorgt"
  45. 35020 print"[145]fuer das ausschalten des randes, indem"
  46. 35030 print"[159]auf 24 zeilen umgeschaltet wird. hier"
  47. 35040 print"beginnt dann eine schleife, die die ver-"
  48. 35050 print"[159][145]schiedenen werte in das register $3fff"
  49. 35060 print"schreibt. zwischen diesen aenderungen"
  50. 35070 print"[159]wird eine warteschleife durchlaufen,die"
  51. 35080 print"dann beendet ist, wenn der elektronen-"
  52. 35090 print"[159]strahl eine neue zeile erreicht."
  53. 35100 print"ein zweiter interrupt schaltet danach "
  54. 35110 print"[159]wieder auf 25 zeilen um."
  55. 35120 print"die zeichendaten liegen ab $9100, die"
  56. 35130 print"[159]farbdaten ab $9130. beide felder wer-"
  57. 35140 print"gescrollt, so dass die erzeugte grafik"
  58. 35150 print"[159]bewegt wird."
  59. 35160 print"das maschinenprogramm wird mit sys36864"
  60. 35170 print"[159]gestartet und mit sys36953 beendet.":return
  61. 35180 rem steffen goebbels
  62. 35190 rem alte heerstr. 25
  63. 35200 rem 4179 weeze     1
  64.