Commodore 1351 Benutzerhandbuch Seite 86

280 DATAB0,07,4A,F0,12,AC,04,C0
290 DATA60,09,CO,C9FF,FO,08,38
300 DATA6A,A2FF,AC,04,C0,60,A9
310
DATA00.60
320
REM
330
FORX
= 0TO63:READA$:GOSUB430:POKE3584
+ X,Y:NEXTX:
RETRUN
340 DATAF8,00,00,90,00,00,B8,00
350
DATA00
)
DC,00
)
00,8E,00,00
)
07
360 DATA00,00,02,00,00,00,00,00
370 DATA00,00,00,00,00,00,00,00
380 DATAOO^O.OO.OO.OO.OO.OO.OO
390 DATAOO,00,00,00,00,00,00,00
400 DATAOO.00,00,00,00,00,00,00
410 DATAOO,00,00,00,00,00,00,00
420
REM
430
Y = 1:Y1=0
440
IFLEFT$(A$,1)oMID$("0123456789ABCDEF",Y,1)
THENY = Y +
1:GOTO440
450 Y1=(Y-1)*16:Y
=
1
460 IFRIGHT$(A$,1)<
>MID$("0123456789ABCDEF",Y,1)
THENY
= Y + 1:GOTO460
470
Y = Y1+Y-1:RETURN
READY.
82