[TUTO] How to save the VARS...

[XavSnap]

Using "Screen Kit v1".

http://www.zx81stuff.org.uk/zx81/tape/ScreenKit1


Fill the VARS with variables or machine code:

SaveVars.P

(2.63 KiB) Downloaded 71 times

And recall it using:

LoadVars.P

(1.87 KiB) Downloaded 63 times

In E.O. you had to set the "Tape destination" to the "WAV window" to save the VARS.
"Tape source" to the "WAV window" to load it.

E.O. let the Source device from the "TZX loader" in case of "P" loading. Reset it...

Have fun.

[mrtinb]

It is unclear how to use Screen Kit, and to which purpose.

[Paul]

I had a quick look inside the link and sinclair user 1 and 3 state:
Load and save variables,
flickerfree scroll up,down,left,right
partial inverse.

[XavSnap]

Hi,
I wrote a little graphic demo...

Code: Select all

# REM  SCREEN KIT  1                  
#     (C) PICTURESQUE 
     0  REM [HEX:\
80,B8,A8,B7,AA,AA,B3,80,\
B0,AE,B9,80,80,9D,80,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
10,28,11,00,35,2E,28,39,\
3A,37,2A,38,36,3A,2A,00,\
76 ]

     0  REM [HEX:\
06,16,C5,2A,0C,40,23,E5,\
11,21,00,19,D1,01,F7,02,\
ED,B0,01,00,03,0B,78,B1,\
20,FB,C1,10,E5,18,2C,06,\
18,C5,2A,10,40,2B,E5,11,\
21,00,A7,ED,52,D1,01,F7,\
02,ED,B8,06,20,AF,23,77,\
10,FC,01,00,03,0B,78,B1,\
20,FB,C1,10,DC,00,00,00,\
00,00,00,2A,0C,40,23,22,\
0E,40,21,39,40,36,21,23,\
36,18,C9,06,20,C5,AF,06,\
18,2A,0C,40,23,E5,D1,23,\
C5,01,1F,00,ED,B0,12,13,\
13,23,23,C1,10,F2,01,26,\
02,0B,78,B1,20,FB,C1,10,\
DC,18,C8,06,20,C5,AF,06,\
18,2A,10,40,2B,2B,E5,D1,\
2B,C5,01,1F,00,ED,B8,12,\
1B,1B,2B,2B,C1,10,F2,01,\
22,02,0B,78,B1,20,FB,C1,\
10,DB,18,9F,21,61,42,3E,\
1F,BE,30,01,77,23,23,3E,\
15,BE,30,01,77,CD,AE,42,\
CB,7E,20,04,1E,00,18,13,\
1E,01,01,09,64,CB,BE,3A,\
25,40,FE,FF,20,18,10,F7,\
0D,20,F4,01,09,64,CB,FE,\
3A,25,40,FE,FF,20,07,10,\
F7,0D,20,F4,18,DC,D5,ED,\
4B,25,40,B9,20,D4,E5,CD,\
BD,07,7E,06,00,4F,E1,D1,\
3A,25,40,FE,FF,20,F9,7B,\
FE,00,28,03,CB,FE,C9,CB,\
BE,C9,3F,3F,3F,3F,3F ]

     0  REM [HEX:\
2A,0C,40,0E,16,06,20,23,\
36,00,10,FB,23,0D,20,F5,\
2A,0C,40,23,22,0E,40,21,\
39,40,36,21,23,36,18,C9,\
2A,02,40,ED,5B,1C,40,A7,\
ED,52,44,4D,C9,21,61,42,\
3E,1D,CD,4E,42,21,63,42,\
3E,13,CD,4E,42,CD,AE,42,\
11,21,00,36,07,23,3A,62,\
42,47,36,03,23,10,FB,36,\
84,19,3A,64,42,47,36,85,\
19,10,FB,36,81,2B,3A,62,\
42,47,36,83,2B,10,FB,36,\
82,A7,ED,52,3A,64,42,47,\
36,05,A7,ED,52,10,F9,C9,\
BE,30,01,77,3C,96,23,BE,\
30,01,77,3E,00,BE,20,02,\
36,01,C9,00,01,00,01,21,\
A2,42,36,3E,23,36,80,18,\
08,21,A2,42,36,7E,23,36,\
00,21,61,42,3E,1F,CD,4E,\
42,21,63,42,3E,15,CD,4E,\
42,21,21,00,06,00,3A,62,\
42,4F,A7,ED,42,EB,D5,CD,\
AE,42,D1,3A,64,42,47,48,\
3A,62,42,47,00,00,AE,77,\
23,10,F9,19,41,10,F0,C9,\
21,63,42,5E,16,00,06,05,\
CB,23,CB,12,10,FA,7B,86,\
5F,30,01,14,2B,2B,7B,86,\
5F,30,01,14,13,2A,0C,40,\
19,C9,3F,3F,3F ]


     0  REM [HEX:\
99,01,D2,48,04,2A,14,40,\
22,DB,42,ED,4B,10,40,A7,\
ED,42,22,D9,42,E5,CD,D7,\
43,11,65,09,DB,FE,1F,10,\
FE,1B,7A,B3,20,F6,D1,21,\
DD,42,36,00,21,D9,42,CD,\
22,43,23,E5,21,DD,42,34,\
3E,03,BE,E1,30,F1,2A,10,\
40,CD,22,43,CD,B1,43,18,\
F8,7E,37,CB,17,C8,38,04,\
0E,02,18,02,0E,05,D3,FF,\
06,23,10,FE,F5,CD,CE,43,\
F1,00,00,06,21,10,FE,0D,\
20,EC,06,80,A7,10,FD,18,\
DA,CD,D7,43,CD,52,43,18,\
FB,0E,01,06,00,3E,7F,DB,\
FE,D3,FF,1F,30,63,17,17,\
38,31,10,F1,F1,21,DD,42,\
36,00,21,D9,42,CD,52,43,\
71,23,E5,21,DD,42,34,3E,\
03,BE,E1,30,F0,ED,5B,D9,\
42,2A,10,40,19,22,DB,42,\
ED,52,CD,52,43,71,CD,B1,\
43,18,F7,D5,1E,48,06,0D,\
1D,DB,FE,17,CB,7B,7B,38,\
F5,10,F5,D1,20,04,FE,2B,\
30,A9,3F,CB,11,30,A4,C9,\
23,1B,7A,B3,C0,2A,DB,42,\
22,1A,40,22,1C,40,22,14,\
40,2A,14,40,2B,36,80,D1,\
CD,DF,43,C9,00,DB,FE,1F,\
D8,F1,F1,F1,18,F2,CD,E7,\
02,FD,CB,3B,B6,C9,FD,CB,\
3B,F6,C3,07,02,3F,3F,3F,\
3F ]


# REM    ENTER YOUR LISTING           
#        FROM HERE...
    10  REM [HEX:\
00,00,80,AA,B3,B9,AA,B7,\
80,BE,B4,BA,B7,80,B1,AE,\
B8,B9,AE,B3,AC,80,00,00,\
00,00,00,00,00,00,00,00,\
00,00,80,AB,B7,B4,B2,80,\
AD,AA,B7,AA,9B,9B,9B ]

11 LET VARLOAD=17226
12 LET VARSAVE=17118
13 LET SCRCURSOR=16741
14 LET SCRCURSORX=16993
15 LET SCRCURSORY=16995

16 LET SCRUP=16569
17 LET SCRLEFT=16660
18 LET SCRCLS=16854
19 LET SCRCLSF=16863
20 LET FREE=16886
21 LET BORDER=16899
22 LET BORDERX=16994
23 LET BORDERY=16996
24 LET SCRINV=16997
25 LET SCRWCLS=17007

29 LET S$="½½½½½½½½½½½½½¿¿½½½½½¿½½½½½½½½½½½½½½½½ ½  ½½¿¿¿ ¾¾¾¾¾¿¿¿½½½½½½½½½ ½½½½½½ ½¿¿¾¾¾¾ °º»¶¾¾¾¿¿¿½½½½ ½ ½½½½½½½½¿¾¾²¼¸¹° º®¸¸¾¾¾¿¿½½½½½½½ ½½½½½¿¿     ¬ªª¼     ¾¾¿¾½½½½½½½½½½½¿¿   ²®«º·¸««ª    ¾¿¿½½½½½½½½½½¿¿¾   ¬¼¶     ¯«    ¾¿½½½½½½½½½ ¿½¾  °º²®    ®¹¯¹   ¾¿¾½½½½½½½ ¿¿¾¾  ¼ ¶ ¶  · · ª    ¿¿½½½½½½½½¿½¾  °¶²¼¸¯  ²¼º ·¹   ¾¿½ ½½½ ½½¿¾¾  ¼ ° ¬¬  ª¹º  º   ¾¿¿  ½ ½½½¿¿¾  º °¹«½  ½ªº  º   ¾¾¿  ½½½½½¾¿¾  º  ¸¸¶  ¸¸   º   ¾¾¿½½½½½½½¾¿¾  º ¬¶      ·º²¶  ¾¾¿½½½½½½½½¾¿¾  ª ¼º      °«°   ¾¾¿½½½½½ ½½½¿¾  °¹ ¯«««««¬¶ °   ¾¾¿½  ½  ½½¿¿¾   ª  ·¸¸¸¸  ²º  ¾¾¿¿½½ ½½½½½½¿¾¾  ·®        ¬  ¾¾¿¿½  ½½½½½½ ¿¿¾   ·ª¹    ®¬¶  ¾¾¿½½½½ ½½½½½½½¿¿¾    ·¸¸¸¸    ¾¾¿¿½  ½½½½½½½½½½¿¿¿¾ hello––– ¾¾¿½½ ½½½ ½ ½½½ ½½½  ¿¿¿¾¾¾¾¾¾¾¾¾¿½½ ½½ ½½"
40 PRINT AT 0,0;S$
50 RAND USR SCRUP
60 PRINT AT 0,0;S$
70 RAND USR SCRLEFT
80 PRINT AT 0,0;S$
90 POKE SCRCLSF,128
92 POKE SCRCURSORX,0
94 POKE SCRCURSORY,0
100 RAND USR SCRCLS
110 POKE SCRCLSF,8
120 RAND USR (SCRCLS+SIN PI+SIN PI+SIN PI)
130 POKE SCRCLSF,0
140 RAND USR (SCRCLS+SIN PI+SIN PI)
150 PRINT AT 0,0;S$
155 POKE SCRCURSORX,25
156 POKE SCRCURSORY,10
160 PRINT AT 10,10;USR FREE;" BYTES LEFT.";AT 14,15;"A KEY...";"" AND USR SCRCURSOR
161 POKE SCRCURSORX,0
162 POKE SCRCURSORY,0
170 POKE BORDERX,32
180 POKE BORDERY,24
190 RAND USR BORDER
192 POKE BORDERX,33
194 POKE BORDERY,25
196 RAND USR SCRINV
200 RAND USR (SCRINV+SIN PI+SIN PI)
220 LET DOIT=SCRINV+SIN PI+SIN PI+SIN PI
230 GOSUB 400
280 LET DOIT=SCRWCLS
290 GOSUB 400
300 STOP

400 POKE SCRCURSORX,0
402 POKE SCRCURSORY,0
405 FOR A=0 TO 32
410 POKE BORDERX,A
420 IF A<24 THEN POKE BORDERY,A
430 RAND USR DOIT
440 NEXT A
500 RETURN

'Load or save the Vars block in FAST lLOAD:
11 LET VARLOAD=17226
12 LET VARSAVE=17118

'Prompt:
13 LET SCRCURSOR=16741
'>>X,Y location
14 LET SCRCURSORX=16993
15 LET SCRCURSORY=16995
KEY= USR SCRCURSOR
KEY$=CHR$ USR SCRCURSOR

'Scroll up.
16 LET SCRUP=16569

'Scroll left.
17 LET SCRLEFT=16660

'Fast clear screen.
18 LET SCRCLS=16854
' Fill character
19 LET SCRCLSF=16863

'Get free bytes.
20 LET FREE=16886
PRINT USR FREE

' Commons Values:
' Start X
14 LET SCRCURSORX=16993
' Start Y
15 LET SCRCURSORY=16995
' End X
22 LET BORDERX=16994
' End Y
23 LET BORDERY=16996
POKEd.

'Border (BOX)
21 LET BORDER=16899

' Windowed invert video.
24 LET SCRINV=16997

' Windowed clear.
25 LET SCRWCLS=17007

[mrtinb]

Thank you for your detailed explanation.

The confusion on my part, was because the instruction leftlet was missing. But your examples are a great help.

[David G]

Very interesting

Screen Kit 1 is a programmer's utility program. It includes a subroutine to save/load the BASIC variables to tape. This utility can be included in your own BASIC program


Advertisement from Sinclair User June 1982 page 6

ZX81 16K

---------------------------
ZX-MC
* ELIMINATE MACHINE CODE PROBLEMS with ZX-MC - a new machine code debug/monitorfor the ZX81 16K.
* ENTER, RUN & DEBUG your machine code programs independently of Basic commands. ZX-MC resides in RAM, and leaves you 12-1/2 K of memory to work with.
* SAVE & LOAD your machine code programs AT DOUBLE SPEED. At last you are freed from storing your M/C in arrays or REM lines.
* REGISTERS DISPLAY & BREAKPOINTS to make de-bugging easier - PLUS many more useful commands.
* A MUST FOR BEGINNERS & ADVANCED USERS - concentrate on your M/C programs, not on how and where to store them.
* ZX-MC is supplied on a high quality cassette, with a 36 page operating manual.

£7.50 Incl. VAT & P+P
(C.W.O.)

---------------------------

SAVE & LOAD DATA FILES AT DOUBLE SPEED

SCREEN KIT 1

A suite of machine code routines for use in Basic programs, to enhance your screen display, and create DATA FILES on cassette. Screen Kit becomes part of your Basic program.

* DATA FILES - Save & Load, at double speed, just the Basic variables. Load different variables into the same program, or exchange variables between programs.

* DRAW A BORDER

* KEYBOARD SCAN + FLASHING CURSOR

* CLEAR PART OF SCREEN

* LOAD ANY CHARACTER TO WHOLE SCREEN

* INVERT VIDEO OF PART OF SCREEN

* MEMORY LEFT

* CLEAR SCREEN BY SCROLLING UP, DOWN, LEFT OR RIGHT

* Supplied on cassette with instructions.

£5.70 Incl. VAT &P+P
(C.W.O.)

---------------------------

Send large SAE for more details. Programs available mail order only.
Allow up to 14 days delivery. Please make cheques/PO payable to:

PICTURESQUE

6 CORKSCREW HILL, WEST WICKHAM, KENT BR4 9BB

The linked "review" is an article about graphic design aids, and includes two paragraphs about Screen Kit 1: Making programmes more attractive from Sinclair User June 1982 page 25-26

The aptly-named Picturesque Screen Kit 1 is a completely different aid, in the form of a package of machine code subroutines contained in a single REM statement less than 1K in size. The subroutines can be called from a Basic program with USR statements, and they include flicker-free scrolling up, down, left and right, clearing or reversing part of the screen, or all of it, and drawing a border round a specified area.

There is also a very handy non-graphics routine which saves and loads a program's variables at double speed and so allows the exchange of data files between programs.

[XavSnap]

Scrolling update:

Code: Select all

# REM  SCREEN KIT  1                  
#     (C) PICTURESQUE 
     0  REM [HEX:\
80,B8,A8,B7,AA,AA,B3,80,\
B0,AE,B9,80,80,9D,80,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
10,28,11,00,35,2E,28,39,\
3A,37,2A,38,36,3A,2A,00,\
76 ]

     0  REM [HEX:\
06,16,C5,2A,0C,40,23,E5,\
11,21,00,19,D1,01,F7,02,\
ED,B0,01,00,03,0B,78,B1,\
20,FB,C1,10,E5,18,2C,06,\
18,C5,2A,10,40,2B,E5,11,\
21,00,A7,ED,52,D1,01,F7,\
02,ED,B8,06,20,AF,23,77,\
10,FC,01,00,03,0B,78,B1,\
20,FB,C1,10,DC,00,00,00,\
00,00,00,2A,0C,40,23,22,\
0E,40,21,39,40,36,21,23,\
36,18,C9,06,20,C5,AF,06,\
18,2A,0C,40,23,E5,D1,23,\
C5,01,1F,00,ED,B0,12,13,\
13,23,23,C1,10,F2,01,26,\
02,0B,78,B1,20,FB,C1,10,\
DC,18,C8,06,20,C5,AF,06,\
18,2A,10,40,2B,2B,E5,D1,\
2B,C5,01,1F,00,ED,B8,12,\
1B,1B,2B,2B,C1,10,F2,01,\
22,02,0B,78,B1,20,FB,C1,\
10,DB,18,9F,21,61,42,3E,\
1F,BE,30,01,77,23,23,3E,\
15,BE,30,01,77,CD,AE,42,\
CB,7E,20,04,1E,00,18,13,\
1E,01,01,09,64,CB,BE,3A,\
25,40,FE,FF,20,18,10,F7,\
0D,20,F4,01,09,64,CB,FE,\
3A,25,40,FE,FF,20,07,10,\
F7,0D,20,F4,18,DC,D5,ED,\
4B,25,40,B9,20,D4,E5,CD,\
BD,07,7E,06,00,4F,E1,D1,\
3A,25,40,FE,FF,20,F9,7B,\
FE,00,28,03,CB,FE,C9,CB,\
BE,C9,3F,3F,3F,3F,3F ]

     0  REM [HEX:\
2A,0C,40,0E,16,06,20,23,\
36,00,10,FB,23,0D,20,F5,\
2A,0C,40,23,22,0E,40,21,\
39,40,36,21,23,36,18,C9,\
2A,02,40,ED,5B,1C,40,A7,\
ED,52,44,4D,C9,21,61,42,\
3E,1D,CD,4E,42,21,63,42,\
3E,13,CD,4E,42,CD,AE,42,\
11,21,00,36,07,23,3A,62,\
42,47,36,03,23,10,FB,36,\
84,19,3A,64,42,47,36,85,\
19,10,FB,36,81,2B,3A,62,\
42,47,36,83,2B,10,FB,36,\
82,A7,ED,52,3A,64,42,47,\
36,05,A7,ED,52,10,F9,C9,\
BE,30,01,77,3C,96,23,BE,\
30,01,77,3E,00,BE,20,02,\
36,01,C9,00,01,00,01,21,\
A2,42,36,3E,23,36,80,18,\
08,21,A2,42,36,7E,23,36,\
00,21,61,42,3E,1F,CD,4E,\
42,21,63,42,3E,15,CD,4E,\
42,21,21,00,06,00,3A,62,\
42,4F,A7,ED,42,EB,D5,CD,\
AE,42,D1,3A,64,42,47,48,\
3A,62,42,47,00,00,AE,77,\
23,10,F9,19,41,10,F0,C9,\
21,63,42,5E,16,00,06,05,\
CB,23,CB,12,10,FA,7B,86,\
5F,30,01,14,2B,2B,7B,86,\
5F,30,01,14,13,2A,0C,40,\
19,C9,3F,3F,3F ]


     0  REM [HEX:\
99,01,D2,48,04,2A,14,40,\
22,DB,42,ED,4B,10,40,A7,\
ED,42,22,D9,42,E5,CD,D7,\
43,11,65,09,DB,FE,1F,10,\
FE,1B,7A,B3,20,F6,D1,21,\
DD,42,36,00,21,D9,42,CD,\
22,43,23,E5,21,DD,42,34,\
3E,03,BE,E1,30,F1,2A,10,\
40,CD,22,43,CD,B1,43,18,\
F8,7E,37,CB,17,C8,38,04,\
0E,02,18,02,0E,05,D3,FF,\
06,23,10,FE,F5,CD,CE,43,\
F1,00,00,06,21,10,FE,0D,\
20,EC,06,80,A7,10,FD,18,\
DA,CD,D7,43,CD,52,43,18,\
FB,0E,01,06,00,3E,7F,DB,\
FE,D3,FF,1F,30,63,17,17,\
38,31,10,F1,F1,21,DD,42,\
36,00,21,D9,42,CD,52,43,\
71,23,E5,21,DD,42,34,3E,\
03,BE,E1,30,F0,ED,5B,D9,\
42,2A,10,40,19,22,DB,42,\
ED,52,CD,52,43,71,CD,B1,\
43,18,F7,D5,1E,48,06,0D,\
1D,DB,FE,17,CB,7B,7B,38,\
F5,10,F5,D1,20,04,FE,2B,\
30,A9,3F,CB,11,30,A4,C9,\
23,1B,7A,B3,C0,2A,DB,42,\
22,1A,40,22,1C,40,22,14,\
40,2A,14,40,2B,36,80,D1,\
CD,DF,43,C9,00,DB,FE,1F,\
D8,F1,F1,F1,18,F2,CD,E7,\
02,FD,CB,3B,B6,C9,FD,CB,\
3B,F6,C3,07,02,3F,3F,3F,\
3F ]


# REM    ENTER YOUR LISTING           
#        FROM HERE...
    10  REM [HEX:\
00,00,80,AA,B3,B9,AA,B7,\
80,BE,B4,BA,B7,80,B1,AE,\
B8,B9,AE,B3,AC,80,00,00,\
00,00,00,00,00,00,00,00,\
00,00,80,AB,B7,B4,B2,80,\
AD,AA,B7,AA,9B,9B,9B ]

11 LET VARLOAD=17226
12 LET VARSAVE=17118
13 LET SCRCURSOR=16741
14 LET SCRCURSORX=16993
15 LET SCRCURSORY=16995

16 LET SCRUP=16569
17 LET SCRDOWN=16600
18 LET SCRLEFT=16660
19 LET SCRRIGHT=16700

21 LET SCRCLS=16854
22 LET SCRCLSF=16863
23 LET FREE=16886
24 LET BORDER=16899
25 LET BORDERX=16994
26 LET BORDERY=16996
27 LET SCRINV=16997
28 LET SCRWCLS=17007

29 LET S$="½½½½½½½½½½½½½¿¿½½½½½¿½½½½½½½½½½½½½½½½ ½  ½½¿¿¿ ¾¾¾¾¾¿¿¿½½½½½½½½½ ½½½½½½ ½¿¿¾¾¾¾ °º»¶¾¾¾¿¿¿½½½½ ½ ½½½½½½½½¿¾¾²¼¸¹° º®¸¸¾¾¾¿¿½½½½½½½ ½½½½½¿¿     ¬ªª¼     ¾¾¿¾½½½½½½½½½½½¿¿   ²®«º·¸««ª    ¾¿¿½½½½½½½½½½¿¿¾   ¬¼¶     ¯«    ¾¿½½½½½½½½½ ¿½¾  °º²®    ®¹¯¹   ¾¿¾½½½½½½½ ¿¿¾¾  ¼ ¶ ¶  · · ª    ¿¿½½½½½½½½¿½¾  °¶²¼¸¯  ²¼º ·¹   ¾¿½ ½½½ ½½¿¾¾  ¼ ° ¬¬  ª¹º  º   ¾¿¿  ½ ½½½¿¿¾  º °¹«½  ½ªº  º   ¾¾¿  ½½½½½¾¿¾  º  ¸¸¶  ¸¸   º   ¾¾¿½½½½½½½¾¿¾  º ¬¶      ·º²¶  ¾¾¿½½½½½½½½¾¿¾  ª ¼º      °«°   ¾¾¿½½½½½ ½½½¿¾  °¹ ¯«««««¬¶ °   ¾¾¿½  ½  ½½¿¿¾   ª  ·¸¸¸¸  ²º  ¾¾¿¿½½ ½½½½½½¿¾¾  ·®        ¬  ¾¾¿¿½  ½½½½½½ ¿¿¾   ·ª¹    ®¬¶  ¾¾¿½½½½ ½½½½½½½¿¿¾    ·¸¸¸¸    ¾¾¿¿½  ½½½½½½½½½½¿¿¿¾ hello––– ¾¾¿½½ ½½½ ½ ½½½ ½½½  ¿¿¿¾¾¾¾¾¾¾¾¾¿½½ ½½ ½½"
40 PRINT AT 0,0;S$
50 RAND USR SCRUP
60 PRINT AT 0,0;S$
70 RAND USR SCRLEFT
72 PRINT AT 0,0;S$
74 RAND USR SCRDOWN
76 PRINT AT 0,0;S$
78 RAND USR SCRRIGHT
80 PRINT AT 0,0;S$

[David G]

Scrolling update:

I'm using VX81_XuR ... how do I paste that BASIC program into the emulator?

[XavSnap]

Hi David,

Just create a text file named "Demo.txt" or "Demo.bas" (copy & paste) and launch it with the file explorer.

To save a text file:

loadtext3.JPG (9.51 KiB) Viewed 1686 times