10100 CA$ = STRING$(33,0) 10110 A0$ = " " 10120 VC! = VARPTR(CA$) 10130 VA! = VARPTR(A0$) 10140 POKE VA! +1, PEEK(VC! +1) 10150 POKE VA! +2, PEEK(VC! +2) 10160 CZ! = PEEK(VC! +1)+256 * PEEK(VC! +2) 10200 RESTORE 20000 10300 FOR I = 1 TO 32 10310 READ A 10320 POKE CZ! +I, A 10330 NEXT I 10400 POKE CZ! + 4, PEEK(VC! +1) 10410 POKE CZ! + 5, PEEK(VC! +2) 10420 POKE CZ! +11, PEEK(VC! +1)+15 10430 POKE CZ! +12, PEEK(VC! +2) 10440 POKE CZ! +16, PEEK(VC! +1) 10450 POKE CZ! +17, PEEK(VC! +2) 10460 POKE CZ! +21, PEEK(VC! +1)+6 10470 POKE CZ! +22, PEEK(VC! +2) 10480 CZ! = CZ! +1 20000 DATA 62,0,50,0,0,205,66,114,200,210,0,0,198,200,50,0 20100 DATA 0,254,3,202,0,0,22,1,30,144,6,1,205,197,114,201