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