1291 POKE43,1:POKE44,8:POKE45,41:POKE46,10:POKE55,0:POKE56,16:CLR:POKE808,225
1292 POKE53600,0:POKE53601,0:POKE650,237
1293 POKE780,40:SYS4096:POKE53272,24
1294 PRINT""
1295 PRINT""
1296 PRINT""
1297 L1=1024+7*40:L2=1024+12*40
1298 FORI=0TO127:POKEL1+I,I:POKEL1+54272+I,15:NEXT
1299 X=0:FORI=0TO127:POKEL2+2*I,I:POKEL2+54272+2*I,15:X=X+1
1300 IFX=20THENX=0:L2=L2+40
1301 NEXT:A=1
1302 GETA$:IFA$=""THENSYS64738
1303 IFA$=""THENA=A+1:IFA=51THENA=1
1304 IFA$=""THENA=A−1:IFA=0THENA=50
1305 PRINT""TAB(35)RIGHT$(""+MID$(STR$(A),2),2)
1306 POKE780,36+4*A:SYS4096:GOTO1302
READY.
