A clever routine to split the screen from Sinclair User #35 page 101 by John Mitchell:
Code: Select all
1 PRINT 1+2+3+4+5+6+7+8+9+16+11+12+13
2 REM WINDOW A=USR 16514
3 REM WINDOW B=USR 16527
4 REM WINDOW C=USR 16544
5 REM WINDOW D=USR 16561
10 POKE 16510,0
15 POKE 16513,234
20 LET A$="2A0C40CDC24021210E2\
23940C92A0C4011100019CDC2"
30 LET A$=A$+"4021110E223940C9\
2A0C40116B0119CDC24021210322"
40 LET A$=A$+"3940C92A0C40117B\
0119CDC240211103223940C91121"
50 LET A$=A$+"00ED52060BC519E5\
D523D5C1E5D109011000EDB0D1E1"
60 LET A$=A$+"C110EC0610233600\
10FB110F00ED52220E40C9"
70 IF LEN A$<>214 THEN STOP
80 FAST
90 FOR N=16514 TO 16620
100 POKE N,CODE A$*16+CODE A$(2)-476
110 LET A$=A$(3 TO )
120 NEXT N
130 SLOW
1000 REM DEMONSTRATION
1005 FOR N=0 TO 127
1010 RAND USR 16514
1015 PRINT CHR$ N;"-";CHR$ N
1020 RAND USR 16527
1025 PRINT CHR$ (N+128);"-";CHR$ (N+128)
1030 RAND USR 16544
1035 PRINT CHR$ (N+128);"-";CHR$ (N+128)
1040 RAND USR 16561
1045 PRINT CHR$ N;"-";CHR$ N
1050 NEXT N