Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
CASE KEYCODE()
OF MOUSELEFT !********** MOUSE CLICK
IF RECORDS(ZipQueue)
J# = ?List{PropList:MouseDownRow}
LOOP I# = 1 TO RECORDS(ZipQueue)
GET(ZipQueue,I#)
ZIP:Mark = FALSE
PUT(ZipQueue)
END
GET(ZipQueue,J#)
ZIP:Mark = TRUE
PUT(ZipQueue)
SELECT(?List,J#)
END
RETURN(0)
OF CTRLDOWN !********** CONTROL+DOWN
IF CHOICE(?List) <> RECORDS(ZipQueue)
GET(ZipQueue,CHOICE(?List)+1)
ELSE
GET(ZipQueue,RECORDS(ZipQueue))
END
RETURN(0)
OF CTRLUP !********** CONTROL+UP
IF CHOICE(?List) <> 1
GET(ZipQueue,CHOICE(?List)-1)
ELSE
GET(ZipQueue,1)
END
RETURN(0)
END
CASE KEYCODE()
OF UPKEY !************* UPKEY (48)
IF CHOICE(?List) <> 1
LOOP I# = 1 TO RECORDS(ZipQueue)
GET(ZipQueue,I#)
ZIP:Mark = FALSE
PUT(ZipQueue)
END
GET(ZipQueue,CHOICE(?List)-1)
ZIP:Mark = TRUE
PUT(ZipQueue)
SELECT(?List,CHOICE(?List)-1)
END
OF DOWNKEY !************* DOWNKEY (40)
IF CHOICE(?List) <> RECORDS(ZipQueue)
LOOP I# = 1 TO RECORDS(ZipQueue)
GET(ZipQueue,I#)
ZIP:Mark = FALSE
PUT(ZipQueue)
END
GET(ZipQueue,CHOICE(?List)+1)
ZIP:Mark = TRUE
PUT(ZipQueue)
SELECT(?List,CHOICE(?List)+1)
END
OF SHIFTMOUSELEFT !************ MOUSE CLICK (257)
IF ?List{PropList:MouseDownRow} > CHOICE(?List)
FromHere# = CHOICE(?List)
ToHere# = ?List{PropList:MouseDownRow}
J# = ToHere#
ELSE
ToHere# = CHOICE(?List)
FromHere# = ?List{PropList:MouseDownRow}
J# = FromHere#
END
LOOP I# = 1 TO RECORDS(ZipQueue)
GET(ZipQueue,I#)
ZIP:Mark = INRANGE(I#,FromHere#,ToHere#)
PUT(ZipQueue)
END
SELECT(?List,J#)
OF SHIFTUP !************* SHIFT + UP (294)
IF CHOICE(?List) <> 1
GET(ZipQueue,CHOICE(?List)-1)
ZIP:Mark = TRUE
PUT(ZipQueue)
SELECT(?List,CHOICE(?List)-1)
END
OF SHIFTDOWN !************* SHIFT DOWN (296)
IF CHOICE(?List) <> RECORDS(ZipQueue)
GET(ZipQueue,CHOICE(?List)+1)
ZIP:Mark = TRUE
PUT(ZipQueue)
SELECT(?List,CHOICE(?List)+1)
END
OF CTRLUP !************* CONTROL+UP (550)
IF CHOICE(?List) <> 1
SELECT(?List,CHOICE(?List)-1)
IF ZIP:Mark = FALSE
PRESSKEY(SPACEKEY)
END
END
OF CTRLDOWN !************* CONTROL+DOWN (552)
IF CHOICE(?List) <> RECORDS(ZipQueue)
SELECT(?List,CHOICE(?List)+1)
IF ZIP:Mark = FALSE
PRESSKEY(SPACEKEY)
END
END
OF CTRLA !************* CONTROL+A (577)
LOOP I# = 1 TO RECORDS(ZipQueue)
GET(ZipQueue,I#)
ZIP:Mark = TRUE
PUT(ZipQueue)
END
END