home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
wandler-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
782b
|
26 lines
5 REM 1. TEXTBILDSCHIRM AB 1024
10 REM 2. ZEICHENSATZ AB 8192
20 REM
30 REM NORBERT HAAS 2.85
40 REM
100 FOR I=828 TO 925
110 READ J:K=K+J:POKE I,J
120 NEXT
130 IF K<>9604 THEN PRINT"DATENFEHLER.":STOP
140 PRINT"[147]SYS 828:NEW"
150 PRINT"LOAD";CHR$(34);"ZS*";CHR$(34);",8,1"
160 PRINT"LOAD";CHR$(34);"LO*";CHR$(34);",8,1"
170 PRINT"";
180 POKE 198,3:POKE 631,13:POKE 632,13:POKE 633,13
190 END
1000 DATA120,165, 1, 41,251,133, 1,169, 0,133
1010 DATA 34,169, 32,133, 35,169, 0,133, 36,169
1020 DATA208,133, 37,160, 0,177, 36,145, 34, 24
1030 DATA165, 34,105, 1,133, 34,165, 35,105, 0
1040 DATA133, 35, 24,165, 36,105, 1,133, 36,165
1050 DATA 37,105, 0,133, 37,165, 36,201,255,208
1060 DATA220,165, 37,201,223,208,214,165, 1, 9
1070 DATA 4,133, 1, 88,173, 24,208, 41,240, 9
1080 DATA 8,141, 24,208,169, 1,133, 43,169, 48
1090 DATA133, 44,169, 0,141, 0, 48, 96