10 REM ************************
15 REM *                      *
20 REM * >> CODE S/L LADER << *
25 REM *                      *
30 REM *  MICHAEL DIETZ       *
35 REM *  3303 VECHELDE       *
40 REM *  BERLINER STR. 23    *
45 REM *  TEL.:05302/5991     *
50 REM *                      *
55 REM ************************
60 :
65 :
100 POKE53280,6:POKE53281,6:POKE646,14
110 PRINT"[147]"
120 FORI=0TO41:READ A:POKE828+I,A:NEXT
130 SYS828
140 FORI=52992TO53061:READ A
150 POKEI,A:NEXT
160 INPUT"  CODE ";C$:C=LEN(C$)
170 FORI=1TOC
180 POKE53072+I,ASC(MID$(C$,I,1)):NEXT
190 POKE62954,32:POKE62955,00:POKE62956,207
200 POKE62626,32:POKE62627,00:POKE62628,207
210 POKE62731,76:POKE62732,12:POKE62733,207
220 POKE63019,76:POKE63020,30:POKE63021,207
230 POKE13*16^3-1,C:POKE1,53:NEW
240 :
250 :
260 DATA 169,0,133,95,133,90,133,88,169
270 DATA 160,133,96,169,192,133,91,133,89,32
280 DATA 191,163,169,0,133,95,133,90,133
290 DATA 88,169,224,133,96,169,0,133,91,133,89
300 DATA 76,191,163
310 :
320 :
330 DATA 142,253,207,162,1,142,254
340 DATA 207,174,253,207,96,32,46,207
350 DATA 141,252,207,56,173,253,207
360 DATA 237,252,207,164,147,76,14
370 DATA 245,141,252,207,32,46,207
380 DATA 24,109,252,207,32,221,237
390 DATA 76,46,246,206,254,207,208
400 DATA 6,173,255,207,141,254,207
410 DATA 142,253,207,174,254,207,189
420 DATA 80,207,174,253,207,96