home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
85xx
/
8501.d64
/
lader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
78 lines
10 REM INTERRUPT-ROUTINE ZUR ERZEUGUNG
11 REM
12 REM EINES MAXIMAL VIERTEILIGEN
13 REM
14 REM BILDSCHIRMES UND 32 SPRITES
15 REM
16 REM AUF EINEM COMMODORE 64 COMPUTER
17 REM
18 REM 1984 BY GEBR. HAAS
19 REM
100 REM PRUEFSUMMEN-KONTROLLE
101 REM
110 RESTORE:PS=0
120 FORA=0TO511
130 READ WERT
140 PS=PS+WERT
150 NEXTA
160 IFPS<>60913THENPRINT"DATA-PRUEFSUMME FALSCH !":END:*
199 REM
200 REM MASCHINENCODE UEBERTRAGEN
201 REM
210 RESTORE
220 FORA=0TO447
230 READ WERT
240 POKE52544+A,WERT
250 NEXTA
260 FORA=0TO63
265 READ WERT
270 FORB=0TO3
280 POKE52992+B*64+A,WERT
290 POKE52992+B*64+18,95+50*B
295 NEXTB,A
299 REM
300 REM PROVIC 64 ABSPEICHERN
301 REM
310 N$="PROVIC 64"
320 FORA=1TOLEN(N$)
330 POKE49151+A,ASC(MID$(N$,A,1))
340 NEXTA
350 POKE183,LEN(N$)
360 POKE187,0:POKE188,192
370 POKE185,1
380 POKE193,64:POKE194,205
390 POKE174,0:POKE175,208
400 POKE186,8: REM FUER FLOPPY : 8 FUER DATASETTE: 1
410 SYS62957: REM SAVE ROUTINE
420 END
999 REM
1000 REM PROVIC 64 MASCHINENCODE
1001 REM
1002 DATA120,169,88,162,205,141,20,3,142,21,3,169,1,141,13,220,141,26,208
1003 DATA141,255,207,88,96,169,1,141,25,208,172,255,207,240,15,136,240,9,136
1004 DATA240,3,162,192,44,162,128,44,162,64,44,162,0,189,18,207,141,18,208
1005 DATA189,47,207,208,3,76,141,206,173,30,208,29,30,207,157,30,207,173,31
1006 DATA208,29,31,207,157,31,207,189,21,207,141,21,208,189,23,207,141,23
1007 DATA208,189,29,207,141,29,208,189,0,207,141,0,208,189,1,207,141,1,208
1008 DATA189,2,207,141,2,208,189,3,207,141,3,208,189,4,207,141,4,208,189,5
1009 DATA207,141,5,208,189,6,207,141,6,208,189,7,207,141,7,208,189,8,207,141
1010 DATA8,208,189,9,207,141,9,208,189,10,207,141,10,208,189,11,207,141,11
1011 DATA208,189,12,207,141,12,208,189,13,207,141,13,208,189,14,207,141,14
1012 DATA208,189,15,207,141,15,208,189,16,207,141,16,208,189,27,207,141,27
1013 DATA208,189,28,207,141,28,208,189,37,207,141,37,208,189,38,207,141,38
1014 DATA208,189,39,207,141,39,208,189,40,207,141,40,208,189,41,207,141,41
1015 DATA208,189,42,207,141,42,208,189,43,207,141,43,208,189,44,207,141,44
1016 DATA208,189,45,207,141,45,208,189,46,207,141,46,208,189,56,207,133,188
1017 DATA169,248,133,187,160,0,189,48,207,145,187,200,189,49,207,145,187,200
1018 DATA189,50,207,145,187,200,189,51,207,145,187,200,189,52,207,145,187
1019 DATA200,189,53,207,145,187,200,189,54,207,145,187,200,189,55,207,145
1020 DATA187,189,57,207,240,67,189,58,207,41,3,157,58,207,173,0,221,41,252
1021 DATA29,58,207,141,0,221,189,17,207,141,17,208,189,22,207,141,22,208,189
1022 DATA24,207,141,24,208,189,32,207,141,32,208,189,33,207,141,33,208,189
1023 DATA34,207,141,34,208,189,35,207,141,35,208,189,36,207,141,36,208,224
1024 DATA192,208,5,169,255,141,255,207,238,255,207,138,240,3,76,129,234,76
1025 DATA49,234,120,169,49,162,234,141,20,3,142,21,3,169,129,141,13,220,169
1026 DATA0,76,80,205,234,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,95,0,0,0,200
1027 DATA0,21,121,240,0,0,0,0,0,14,6,1,2,3,4,0,1,2,3,4,5,6,7,8,0,0,0,0,0,0
1028 DATA0,0,0,7,1,3,0,0,0,0,0