generate lookup table for HGR

5 HOME
10 for  y = 0 to 191
11 VTAB 1: PRINT Y
20 y1=int(y/8):yr=y-y1*8
30 y2=int(y1/8):ys=y1-y2*8
40 yl = 8192 + y2*40+ys*128+yr * 1024
50 poke 16384+y,int(yl/256)
60 poke 16567+y,yl-int(yl/256)*256
70 nexty
300 PRINT chr$(4);"BSAVE YLOOKUP,A16384,L384"
310 PRINT "Y LOOKUP TABLE SAVED ON DISK.  FILENAME = YLOOKUP"






table driven HGR access is easy:

make the table:
https://rich12345.tripod.com/prog/lookupgen.html

make the graphics:
https://rich12345.tripod.com/bse/index.html

draw the shapes on screen:
https://rich12345.tripod.com/srccode/graphic.html

SCRN function for HGR screen:
https://rich12345.tripod.com/prog/hirescrn.html