Splited screen "Window 81" [SinclairUser]

Discussion about ZX80 / ZX81 Software
Post Reply
User avatar
XavSnap
Posts: 2072
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.
Contact:

Splited screen "Window 81" [SinclairUser]

Post by XavSnap »

Hi,
A clever routine to split the screen from Sinclair User #35 page 101 by John Mitchell:
Cap0001.jpg

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 
WINDOW81.p.zip
(756 Bytes) Downloaded 194 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
sboisvert
Posts: 41
Joined: Mon Nov 02, 2009 3:43 pm

Re: Splited screen "Window 81" [SinclairUser]

Post by sboisvert »

Post Reply