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