'Jukebox' revisited - EXEC file

% U.Jukeb62
% by Allan Gardner
% For more details see U.Jukeb/i
% Published by AMPLINEX November 1991

"getcat" [
zblk names cblk 1 #+ #!
62 cblk 5 #+ #! cblk 8 osgbpb
numfils numfil-a #!
numfil-a #? numfil-c #!
names ptr-a #! numfil-c #? FOR(
drvnum #? 48 #+ ptr-a c!
8 ptr-a #+!)FOR
]

"logo" [7 MODE curoff
0 0 tab 4 FOR(134x157x')FOR
2FOR(2 COUNT 1#-tab 129x141x)FOR
5 0 tab"Rcacccmmcb!c Jukcbau"$OUT
140x"(62 file DFS)"$OUT
5 1 tab"PFogFuMMudte Jokedox"$OUT
3 2 tab 132x
"(c) 1991 Allan M Gardner"$OUT
24 3 tab 132x"autoRepeat:"$OUT
repflg #? IF(35 3 tab 136x129x"ON"
$OUT)ELSE(35 3 tab 132x"OFF"$OUT)IF
srtflg #? IF(30 2 tab 129x" Sorted"
$OUT)ELSE(30 2 tab 132x"unSorted"
$OUT)IF28 24 tab 136x134x157x129x
"h"$OUT 132x137x"help"$OUT
]

"numfils" [
62 cblk 5 #+ #? #-
]

"printitle" [
dsktitl ptr-a #!
2 3 tab 132x"Disk:"$OUT
drvnum #? NOUT 129x
ptr-a c? FOR(
1 ptr-a #+! ptr-a c?
#11 126 #< IF(x)ELSE(#2 SP)IF
)FOR
]

"double"DELETE

"setdrv" [
% This word should be edited to suit
% the disc-drives used. Place '%'
% where required. (If all 3 options
% are removed with '%'s then the
% program will be correct for 1
% single-sided drive.

% drvnum #? 1 AND 1 XOR drive
           % for 2 single-sided drives

% drvnum #? 2 XOR drive
           % for 1 double-sided drive

  drvnum #? 2 #+ 4 #/ XOR drive
           % for 2 double-sided drives
]

---

Published in AMPLINEX 023, November 1991