1 REM *********************************
2 REM *                               *
3 REM *  PROGRAMM 1                   *
4 REM *                               *
5 REM *  C.SAUERS BASIC-SWITCH FUER   *
6 REM *  DEN C-64 UMGESCHRIEBEN VON   *
7 REM *  H.PONNATH HAMBURG 1985       *
8 REM *                               *
9 REM *********************************
10 REM
15 S=0:M=0:A=0:P=49152:K=0
20 READA:PRINTCHR$(147)A:IFA=-1THEN50
25 POKEP,A
30 S=S+A:P=P+1:GOTO20
50 READK:M=M+1:IFS<>KTHENPRINT"DATA-FEHLER IN BLOCK "M:END
55 S=0:IFM=4THENCLR:END
60 GOTO20
99 REM ******* DATA-BLOCK 1 ***********
100 DATA230,122,208,2,230,123,32,121,0,201,255,240,3,76,121,0,32,115,0,201
101 DATA69,208,3,76,168,192,201,83,240,3,76,8,175,32,155,183,165,101,240
102 DATA4,228,251,144,3,76,72,178,134,252,32,133,192,166,252,202,138,10,10
103 DATA10,168,162,0,185,23,193,149,43,200,232,224,-1,8756
109 REM ******* DATA-BLOCK 2 **********
110 DATA4,208,245,162,0,185,23
111 DATA193,149,55,200,232,224,2,208,245,165,252,133,250,32,96,166,32,142
112 DATA166,32,115,0,240,6,201,143,240,16,208,245,160,1,177,122,208,239,200
113 DATA192,2,208,234,76,116,164,32,215,170,165,122,164,123,32,30,171,240
114 DATA241,166,250,202,138,10,10,10,-1,9805
119 REM ******* DATA-BLOCK 3 **********
120 DATA168,162,0,181,43,153,23,193,200,232
121 DATA224,4,208,245,162,0,181,55,153,23,193,200,232,224,2,208,245,96,32
122 DATA133,192,32,115,0,32,138,173,32,191,177,165,253,133,43,165,254,133
123 DATA44,165,101,24,133,253,165,100,101,254,133,254,165,251,133,252,230
124 DATA251,32,22,228,165,254,-1,10113
129 REM ******* DATA-BLOCK 4 **********
130 DATA205,132,2,144,16,208,7,165,253,205,131,2,144
131 DATA7,169,12,160,173,76,30,171,165,253,133,55,165,254,133,56,32,68,166
132 DATA165,252,133,250,76,49,192,162,0,134,250,142,116,0,232,134,251,134
133 DATA252,165,43,133,253,165,44,133,254,169,76,133,115,169,192,133,117
134 DATA96,255,0,-1,9461
135 REM ******* ENDE DER DATAS ********