home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh43b.d64
/
rand
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
64 lines
10 POKE53280,0:POKE53281,0:PRINT"[147] RANDDEMO VON S.GOEBBELS (C) 1987"
15 PRINTTAB(13)"[151]BITTE WARTEN..."
20 FORI=0TO209:READQ:POKE36864+I,Q:NEXT
30 FORI=0TO3:REM ZEICHEN DEFINIEREN
40 FORA=0TO7
50 POKE37120+A+I*8,2^A
51 POKE37144+A+I*8,2^(7-A):
60 NEXTA,I
70 FORI=0TO48STEP8:REM FARBEN SETZEN
80 POKE37168+I,1:POKE37169+I,3:POKE37170+I,5:POKE37171+I,13
85 POKE37172+I,13:POKE37173+I,5:POKE37174+I,3:POKE37175+I,1
90 NEXT
100 SYS36864:REM MASCINENPROGRAMM :
32000 DATA120,169,31,141,20,3,169,144,141,21,3,173,17,208,41,127,141,17,208,169
32001 DATA186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7
32002 DATA173,13,220,88,76,49,234,173,254,144,201,6,240,18,169,6,141,254,144
32003 DATA169,1,141,18,208,169,19,141,17,208,76,107,144,169,0,141,254,144,169
32004 DATA248,141,18,208,169,27,141,17,208,76,157,144,120,169,49,141,20,3,169
32005 DATA234,141,21,3,169,240,141,26,208,88,96,173,0,145,141,255,63,160,0,234
32006 DATA234,234,162,0,232,224,8,208,251,185,1,145,141,255,63,185,48,145,141
32007 DATA33,208,162,0,232,224,18,208,251,200,192,47,208,232,169,0,141,33,208
32008 DATA76,188,254,173,0,145,141,255,145,162,0,189,1,145,157,0,145,232,224
32009 DATA47,208,245,173,255,145,141,47,145,173,95,145,141,255,145,162,63,189
32010 DATA47,145,157,48,145,202,224,255,208,245,173,255,145,141,48,145,76,188
32011 DATA254
33000 PRINT"[159]DIESES PROGRAMM KOMMT OHNE (!) SPRITES"
33010 PRINT"AUS. DIE ZEICHEN AUF DEN RAENDERN WER-"
33020 PRINT"DEN DURCH AENDERUNG DES WERTES IN $3FFF"
33030 PRINT"ERZEUGT."
33035 PRINT"SIE FINDEN DAS MASCHINENPRG. AB $9000"
33040 PRINTTAB(13)"<TASTENDRUCK>":POKE198,0:WAIT198,1:POKE198,0
33050 SYS36953:POKE53281,0:GOSUB35000
33060 FORI=0TO7:READQ:POKE37120+I,Q:POKE37144+I,Q:POKE37128+I,Q:POKE37136+I,Q
33070 POKE37152+I,Q:POKE37160+I,Q:NEXT
33080 DATA129,195,231,255,255,231,195,129
33090 FORI=0TO47:POKE37168+I,11:NEXT
34100 SYS36864:POKE198,0:WAIT198,1:POKE198,0:SYS36953
34110 FORI=0TO48STEP8
34120 POKE37168+I,14:POKE37169+I,11:POKE37170+I,12:POKE37171+I,15
34130 POKE37172+I,15:POKE37173+I,12:POKE37174+I,11:POKE37175+I,14
34140 NEXT:SYS36864
34150 POKE198,0:WAIT198,1:POKE198,0:SYS36953:RESTORE:GOTO10
35000 PRINT"[147]AUFBAU DES MASCHINENPROGRAMMS:"
35010 PRINT"[159]DER ERSTE RASTERINTERRUPT BEI $0F8 SORGT"
35020 PRINT"[145]FUER DAS AUSSCHALTEN DES RANDES, INDEM"
35030 PRINT"[159]AUF 24 ZEILEN UMGESCHALTET WIRD. HIER"
35040 PRINT"BEGINNT DANN EINE SCHLEIFE, DIE DIE VER-"
35050 PRINT"[159][145]SCHIEDENEN WERTE IN DAS REGISTER $3FFF"
35060 PRINT"SCHREIBT. ZWISCHEN DIESEN AENDERUNGEN"
35070 PRINT"[159]WIRD EINE WARTESCHLEIFE DURCHLAUFEN,DIE"
35080 PRINT"DANN BEENDET IST, WENN DER ELEKTRONEN-"
35090 PRINT"[159]STRAHL EINE NEUE ZEILE ERREICHT."
35100 PRINT"EIN ZWEITER INTERRUPT SCHALTET DANACH "
35110 PRINT"[159]WIEDER AUF 25 ZEILEN UM."
35120 PRINT"DIE ZEICHENDATEN LIEGEN AB $9100, DIE"
35130 PRINT"[159]FARBDATEN AB $9130. BEIDE FELDER WER-"
35140 PRINT"GESCROLLT, SO DASS DIE ERZEUGTE GRAFIK"
35150 PRINT"[159]BEWEGT WIRD."
35160 PRINT"DAS MASCHINENPROGRAMM WIRD MIT SYS36864"
35170 PRINT"[159]GESTARTET UND MIT SYS36953 BEENDET.":RETURN
35180 REM STEFFEN GOEBBELS
35190 REM ALTE HEERSTR. 25
35200 REM 4179 WEEZE 1