1 CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 Q$=CHR$(34)
20 POKE65535,1:REM MUSIC OK
40 Q=57:POKE44,Q:POKEQ*256,0
100 BL=4096+54:B0=4096+177
103 SYSBL,"F.FRODO",DV,224*256
104 SYSBL,"FRODO.TBS",DV,232*256
106 SYSBL,"SID.OBJ.64",DV,192*256
110 POKE53265,27:POKE56576,199:POKE53272,22:POKE53270,200:POKE646,PEEK(53281)
119 FORX=0TO10:POKE781,X:SYS59903:NEXT
120 PRINT"L[207]"Q$"FRODO"Q$","DV""
130 FORX=1TO4:POKE630+X,ASC(MID$(CHR$(13)+"R[213]"+CHR$(13),X)):NEXT:POKE198,4
299 END
59999 END
60000 DV=PEEK(186):IFDV<8THENSTOP
60001 OPEN15,DV,15,"S0:B.FRODO":CLOSE15:SAVE"0:B.FRODO",DV