10 DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147][159]":POKE53280,0:POKE53281,0
30 GOSUB500
40 SYS57812"F.RIDDLES",DV,0:POKE780,.:POKE781,.:POKE782,232:SYS65493
50 SYS57812"F.HERNE",DV,0:POKE780,.:POKE781,.:POKE782,240:SYS65493
60 SYS57812"MOUSE2.1 7K 1000",DV,0:POKE780,.:POKE781,.:POKE782,16:SYS65493
70 SYS57812"QS DRIVER C000",DV,0:POKE780,.:POKE781,.:POKE782,192:SYS65493
80 SYS57812"Q.PARTING",DV,0:POKE780,.:POKE781,.:POKE782,56:SYS65493
90 ML=4096:SYSML
100 SYSML+201,"RIDDLES",DV,16384
200 PRINT"[144]LOAD"CHR$(34)"RIDDLES OF HERNE"CHR$(34)","DV
210 PRINT"RUN"
220 SYSML+3:POKE44,80:POKE20480,0
230 POKE631,13:POKE632,13:POKE198,2:END
500 POKE214,10:PRINT
510 PRINT" [155][176][174]"TAB(37)"[176][174]"
520 PRINT" [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
530 FORI=.TO8:PRINT" [221][221]                                  [221][221]":NEXT
540 PRINT" [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221]"
550 PRINT" [173][189]"TAB(37)"[173][189]"
600 POKE214,12:PRINT
610 FORI=.TO8:READA$:PRINTTAB(20-LEN(A$)/2)""A$:NEXT
620 RETURN
1000 DATA "[210][201][196][196][204][197][211] [207][198] [200][197][210][206][197]"
1010 DATA "BY: [205]ERRY [205]AN [211]OFTWARE",
1020 DATA "(C) 1999 BY [202] & [198] [208]UBLISHING, [201]NC.",
1030 DATA "[212]HIS PROGRAM IS NOT SHAREWARE OR"
1040 DATA "IN THE PUBLIC DOMAIN.",
1050 DATA "1-800-594-3370 OR 1-318-221-8718"