'===========================================================================
' Subject: PANTA                              Date: 10-23-95 (21:12)       
'  Author: Jesu's Lozano                      Code: PB                     
'  Origin: Lozano@etsiig.uniovi.es          Packet: PB.ABC
'===========================================================================
$cpu 80386
$float npx
$lib vga,ega,iprint
$option cntlbreak

screen 12
for i%=1 to 640
	for j%=1 to 480
		pset (i%,j%), i%+j% MOD 16
next j%, i%
salvapanta
cls
while inkey$="":wend
ponlapanta(1)
sleep 5
KILL "panta*.jl*"
end

SUB salvapanta
incr npanta%
for z%=1 to 5
	incr paso%, 127
	REDIM screenarray(1 TO 32767) AS INTEGER
	GET (paso%-127, 0)-(paso%-1,479), screenarray()
	DEF SEG = VARSEG(screenarray(1))
	  nomb$="panta"+LTRIM$(RTRIM$(STR$(npanta%)))+".JL"+CHR$(48+z%)
	  BSAVE nomb$, VARPTR(screenarray(1)), 61440
	DEF SEG
next z%
END SUB

SUB ponlapanta (k%)
SCREEN 12
for z%=1 to 5
	incr paso%, 127
	REDIM screenarray(1 TO 32767) AS INTEGER
	DEF SEG = VARSEG(screenarray(1))
	  nomb$="panta"+LTRIM$(RTRIM$(STR$(k%)))+".JL"+CHR$(48+z%)
	  BLOAD nomb$, VARPTR(screenarray(1))
	DEF SEG
	PUT (paso%-127, 0), screenarray()
next z%
END SUB