10 REM STARTROUTINE ZUM VEREINPRGRAMM
20 REM C/O SANDRA GALLITZ
30 REM WALDSTR. 5
40 REM 5206 NEUNKIRCHEN SEELSCHEID 1
50 REM
60 REM IM PROGRAMMTEIL START WIRD DIE
70 REM SORTIERROUTINE -H- , DER
80 REM DEUTSCHE ZEICHENSATZ -CHARACTER
90 REM RAM- UND DAS HAUPTPROGRAMM
100 REM -M- EINGELADEN
110 REM HINWEISE ZU DEM ZEICHENSATZ
120 REM SIEHE SONDERHEFT 4/85 ZEICHEN-
130 REM EDITOR FUER C-64
140 REM DEM HAUPTPROGRAMM -M- LIEGT
150 REM DAS PROGRAMM -INSTRING- AUS
160 REM HEFT 1/88 VOR
170 REM
200 IFA=1THEN230
210 IFA=0THENA=1:LOAD"H",8,1
220 REM AUFRUF DES HAUPTPROGRAMMS -M-
230 PRINTCHR$(147)CHR$(14)CHR$(142):POKE646,0
240 POKE198,0:POKE631,147:POKE632,76:POKE633,207:POKE634,34:POKE635,77
250 POKE636,34:POKE637,44:POKE638,56:POKE639,58:POKE640,131
260 POKE198,10
400 REM AUFRUF DES ZEICHENSATZES
500 FORI=828TO900:READX:POKEI,X:NEXT
510 DATA162,8,160,1,32,186,255,169,13,162,115,160,3,32
520 DATA189,255,169,0,32,213,255,120,169,51,133,1,169,0
530 DATA133,95,133,90,133,88,169,144,133,96,169,240,133,89
540 DATA169,160,133,91,32,191,163,169,55,133,1,88,96,67
550 DATA72,65,82,65,67,84,69,82,32,82,65,77,0,0
560 DATA0,0,0
600 POKE56,144:CLR:SYS828:POKE56,160:CLR
610 POKE53272,8:POKE56576,PEEK(56576)AND252:POKE648,192