4 POKE56,154:POKE55,0:CLR
5 DV=PEEK(186):IFDV<8THENDV=8
6 POKE829,0:POKE830,0:POKE831,0
10 POKE53265,11:GOSUB61000:POKE53265,27
20 PRINT"    "CHR$(34)"QUIBBLE.BAS"CHR$(34)","DV""
25 SYS57812"Q.TOOLS 9A00",DV,0:POKE780,0:POKE781,0:POKE782,154:SYS65493:BA=39424
26 SYSBA+48,"QUIBBLE.SPR",DV,832
27 SYSBA+48,"QUIBBLE.ML",DV,49152
30 POKE44,16:POKE16*256,0
40 POKE631,131:POKE198,1:END
59999 END
60000 DV=PEEK(186):OPEN15,DV,15,"S0:B.QUIBBLE":CLOSE15:SAVE"B.QUIBBLE",DV
60001 END
61000 POKE53280,0:POKE53281,0:POKE53272,22:POKE646,PEEK(53281)
61001 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
61010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO10:PRINTZ$:NEXT
61020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
61030 Z$(0)="[209] [213] [201] [194] [194] [204] [197]":Z$(1)="BY [196]AVID [205]. [205]OORMAN"
61040 Z$(2)="([195]) 1995 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
61050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
61060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
61070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
61080 Z$(6)[178]"(null)O SUBSCRIBE CALL 1-800-594-3370."
61090 [151]214,12:[153]
61100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]
61110 [151]646,[194](53281):[142]