200 REM GRAPHCHARACTER 210 REM Vid anrop genereras en ASCII- 220 REM tabell med de grafiska tecken. 230 REM Anrop : P%=CALL(65408%) eller 240 REM om rutinen kombineras 250 REM med tangentbordsrutinen 260 REM p} rad 370-490 s} sker 270 REM anrop med CTRL-A. 280 REM Rutinen {r relokerbar men g|r 290 REM CALL 2 : 118,CALL 0 : 11 i ROM. 300 REM Testad p} checksumma 10042. 310 REM 320 DATA 245,229,197,33,0,0,205,118,2 321 DATA 6,32,34,243,253,120,50,64,254 322 DATA 50,66,254,62,23,50,65,254 323 DATA 62,135,50,67,254,229,197 324 DATA 33,64,254,1,4,0,205,11,0 325 DATA 193,225,44,44,125,254,24 326 DATA 32,7,36,36,36,36,36,46,0 327 DATA 4,120,254,128,32,-53,33,22,0 328 DATA 34,243,253,193,225,241,201 330 RESTORE 320 340 FOR I%=65408% TO 65408%+73% 350 READ P% : POKE I%,P% 360 NEXT I% 370 REM 380 REM Tangentsbordsrutin som k{nner 390 REM av CTRL-A och g|r is}fall hopp 400 REM till GRAPHCHARACTER ovan. 410 REM 420 I=250 : REM I-registret 421 REM Kolla takets h|ga byte : 422 IF PEEK(65064)=I THEN 430 424 REM Flytta taket och g|r run igen : 425 POKE 65063,44,I : P%=CALL(3411%) 427 REM Nu pokas rutinen ovanf|r taket : 430 POKE I*256+45,245,62,I,237,71,241,201 440 POKE I*256+52,56,I,148,5 450 POKE I*256+56,245,219,56,254,129,40,4,241,195,30,3 460 POKE I*256+67,33,73,I,229,237,77,205 470 POKE I*256+74,65408%,SWAP%(65408%) 480 POKE I*256+76,195,219,0 490 P%=CALL(I*256+45) : REM Initiera! 500 REM 510 REM Eventuellt kan f|ljande 520 REM {ndringar g|ras i GRAPHCHAR. : 530 REM 325 DATA 193,225,44,125,254,12 540 REM 327 DATA 4,120,254,128,32,-52,33,11,0 550 REM 340 FOR I%=65408% TO 65408%+72%