Код:
;O-OPEN TRD "PATH\file"
;o-OPEN BOOT.B "NAME.B"
;C-CLOSE TRD "PATH\file"
;L-LOAD "PATH\file",Start,Size
;U-LOAD/UNPACK "PATH\file",Start,Size
;P-PAGE Page
;E-FLUSH & EXEC Start
;R-REDEFINE CMD "CMD",Value
;G-GoTo Label
;g-GoSub Label
;I-GoToIF A,<=>,B,Label
;i-GoSubIF A,<=>,B,Label
;T-RET
;l-Label
;K-Start Coding OUT DATA CodingString
;k-End Coding OUT DATA
ReDef :"L","..\loados.inc"CMD.L
ReDef :"U","..\loados.inc"CMD.U
ReDef :"X","..\loados.inc"CMD.X
ReDef :"x","..\loados.inc"CMD.XX
ReDef :"E","..\loados.inc"CMD.E
ReDef :"P","..\loados.inc"CMD.P
ReDef :"G","..\loados.inc"CMD.G
ReDef :"g","..\loados.inc"CMD.GG
ReDef :"I","..\loados.inc"CMD.I
ReDef :"i","..\loados.inc"CMD.II
ReDef :"T","..\loados.inc"CMD.T
ReDef :1,"..\loados.inc"CMD.COM1
ReDef :2,"..\loados.inc"CMD.COM2
ReDef :3,"..\loados.inc"CMD.COM3
ReDef :4,"..\loados.inc"CMD.COM4
ReDef :5,"..\loados.inc"CMD.COM5
ReDef :6,"..\loados.inc"CMD.COM6
ReDef :"K","..\loados.inc"CMD.K
OpenTRD :"..\oscoss.trd",1664
OpenFile:"boot.B"
StartKEY:"48"
GoTo :Loading48K
StopKEY
; StartKEY:"ASD"
; Pack :"test.cod","test.txt"START
; Exec :"test.txt"START
; StopKEY
; Load :"..\DOS\dsq.bin","..\DOS\dosdsq.inc"DSQ.START
;LOA.PTR_MEM = 128 128K MODE
;LOA.PTR_MEM = 48 48K MODE
GoToIF :"..\loader.inc"LOA.PTR_MEM = 48, Loading48K
;A=0 - Uncnown Model
;A=1 - Pentagon
;A=2 - Spectrum 128
;A=3 - Scorpion
;A=4 - Spectrum Lvov
;A=5 - TURBO MODE
GoToIF :"..\loader.inc"LOA.PTR_VER = 5, LoadingTurboMode
GoToIF :"..\loader.inc"LOA.PTR_VER = 0, LoadingNeedPentagonMode
GoToIF :"..\loader.inc"LOA.PTR_VER = 2, LoadingNeedPentagonMode
GoToIF :"..\loader.inc"LOA.PTR_VER = 3, LoadingNeedPentagonMode
GoToIF :"..\loader.inc"LOA.PTR_VER = 4, LoadingNeedPentagonMode
;EPILOGUE
StartKEY:"ZUAF=AB"
Page :"..\MODE\epilogue.txt"MUSIC.PAGE
Pack :"..\MODE\epilogue.mus","..\MODE\epilogue.txt"MUSIC.START
Page :17
Load :"..\MODE\epilogue.p17",49152
Page :19
Load :"..\MODE\epilogue.p19",49152
Page :20
Load :"..\MODE\epilogue.p20",49152
Page :16
Pack :"..\MODE\epilogue.cod","..\MODE\epilogue.txt"START
Exec :"..\MODE\epilogue.txt"START
StopKEY
;HIDDEN-1
StartKEY:"GREETINGS"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-1.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\idiotics.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\kumar.bin","..\MODE\hidden.txt"MUSIC.DATA
l:LabelHidEXEC
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-2
StartKEY:"MORPHING"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-2.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\level1.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\level2.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-3
StartKEY:"AAA"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-3.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\level3.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\level4.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-4
StartKEY:"TITUS"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-4.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\level5.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\level6.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-5
StartKEY:"TETRIS"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-5.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\level7.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\level8.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-6
StartKEY:"POP ROLLER"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-6.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\move.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\never.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-7
StartKEY:"VNN"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-7.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\poor.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\shaman.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;HIDDEN-8
StartKEY:"DMM"
Pack :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
Pack :"..\GRAPHICS\WARNING\hidden-8.scr","..\MODE\hidden.txt"PICDATA
Pack :"..\MUSIC\HIDDEN\stick.bin","..\MODE\hidden.txt"MUSIC.DATA
GoToIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
Pack :"..\MUSIC\HIDDEN\percuss.bin","..\MODE\hidden.txt"MUSIC.DATA
Exec :"..\MODE\hidden.txt"START
StopKEY
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_RU.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
l:MainLoading
Page :"..\MUSIC\jetset.txt"MUSIC.PAGE
Pack :"..\MUSIC\jetset.cod","..\iorq.inc"MUSIC.START
GoSub :XaraLoading
Pack :"..\CODE\iorq.cod","..\iorq.inc"IORQ.START
Pack :"..\CODE\main.cod","..\main.inc"MAIN.START
Exec :"..\iorq.inc"IORQ.START
;XARA PACKs
l:XaraLoading
;EFF FINISH ... Start Loader
; XaraPack:"..\EFFECT\finish.bin"
; GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
; GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
; GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
; GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B00","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerA
XaraPack:"..\EFFECT\jokera.bin"
XaraPack:"..\GRAPHICS\JOKER\jokera.bin"
;EFF Long Girl
; XaraPack:"..\EFFECT\logr.bin"
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaGIRL0
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaGIRL0
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaGIRL0
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaGIRL1
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b00"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b01"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b02"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b03"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b04"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b05"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b06"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b07"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b08"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b09"
XaraPack:"..\GRAPHICS\LONGGIRL\logr.b0a"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_YI.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B01","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Long Girl MESSAGE
XaraPack:"..\EFFECT\lomsg.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_IT.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Life
XaraPack:"..\EFFECT\life.bin"
XaraPack:"..\GRAPHICS\LIFE\lif_a2.bin"
XaraPack:"..\GRAPHICS\LIFE\lif_a1.bin"
XaraPack:"..\GRAPHICS\LIFE\lif_a0.bin"
XaraPack:"..\GRAPHICS\LIFE\lif__b.bin"
XaraPack:"..\GRAPHICS\LIFE\lif__c.bin"
XaraPack:"..\GRAPHICS\LIFE\lif__d.bin"
XaraPack:"..\GRAPHICS\LIFE\lif__e.bin"
XaraPack:"..\GRAPHICS\LIFE\lif__f.bin"
XaraPack:"..\GRAPHICS\LIFE\lif_f0.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_HI.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B02","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerB MackDonalds
XaraPack:"..\EFFECT\jokerb.bin"
XaraPack:"..\GRAPHICS\JOKER\jokerb.bic"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_FR.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B03","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Nude Mellona
XaraPack:"..\EFFECT\nude.bin"
XaraPack:"..\GRAPHICS\NUDE\melly-03.bin"
XaraPack:"..\GRAPHICS\NUDE\melly-04.bin"
XaraPack:"..\GRAPHICS\NUDE\melly-05.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_FI.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF SPACE SPACE SPACE SPACE SPACE SPACE EFF
; Xara :"..\EFFECT\_space_.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_UA.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B04","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Head
XaraPack:"..\EFFECT\head.bin"
GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LoaHEADA
GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 1 ,LoaHEADB
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_PL.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B05","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Greetings
XaraPack:"..\EFFECT\greets.bin"
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 0 ,LoaGREE0
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 1 ,LoaGREE1
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 2 ,LoaGREE2
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 3 ,LoaGREE3
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 4 ,LoaGREE4
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 5 ,LoaGREE5
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 6 ,LoaGREE6
GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 7 ,LoaGREE7
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_ES.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B06","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF WomanMan
XaraPack:"..\EFFECT\wo_ma.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_DE.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Multicolor Move
XaraPack:"..\EFFECT\multic.bin"
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B07","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF ZebraGirl
XaraPack:"..\EFFECT\zebra_g.bin"
;=== LOADER MESSAGE
Load :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
Pack :"..\GRAPHICS\WARNING\cryp_EN.scr","..\MODE\cryp.txt"CRYPDATA
Exec :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B08","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF FINISH ... Start Loader
XaraPack:"..\EFFECT\finish.bin"
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3
;EFF Piano
; XaraPack:"..\EFFECT\piano.bin"
; Xara:"..\EFFECT\c_tnl.bin"
; Xara:"..\EFFECT\c_tunel.bin"
; Xara:"..\EFFECT\chunka.bin"
; Xara:"..\EFFECT\mult_g.bin"
; Xara:"..\EFFECT\thunka.bin"
;=== LOADER QR-CODE STEP
Load :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
Pack :"..\GRAPHICS\LOADER\steps.B09","..\MODE\loaqr.txt"PICDATA
Exec :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
Return
l:LoaFuckVAL0
XaraPack:"..\GRAPHICS\FUCK\fuck.bin"
Return
l:LoaFuckVAL1
XaraPack:"..\GRAPHICS\FUCK\luck.bin"
Return
l:LoaFuckVAL2
XaraPack:"..\GRAPHICS\FUCK\love.bin"
Return
l:LoaFuckVAL3
XaraPack:"..\GRAPHICS\FUCK\lovefuck.bin"
Return
l:LoaGIRL0
XaraPack:"..\EFFECT\logr.bin"
Return
l:LoaGIRL1
XaraPack:"..\EFFECT\logr1.bin"
Return
l:LoaHEADA
XaraPack:"..\EFFECT\head0.bin"
XaraPack:"..\EFFECT\head3.bin"
Return
l:LoaHEADB
XaraPack:"..\EFFECT\head1.bin"
XaraPack:"..\EFFECT\head2.bin"
Return
l:LoaGREE0
XaraPack:"..\QR-CODE\txt_o00.bin"
Return
l:LoaGREE1
XaraPack:"..\QR-CODE\txt_o01.bin"
Return
l:LoaGREE2
XaraPack:"..\QR-CODE\txt_o02.bin"
Return
l:LoaGREE3
XaraPack:"..\QR-CODE\txt_o03.bin"
Return
l:LoaGREE4
XaraPack:"..\QR-CODE\txt_o04.bin"
Return
l:LoaGREE5
XaraPack:"..\QR-CODE\txt_o05.bin"
Return
l:LoaGREE6
XaraPack:"..\QR-CODE\txt_o06.bin"
Return
l:LoaGREE7
XaraPack:"..\QR-CODE\txt_o07.bin"
Return
l:Loading48K
Load :"..\MODE\warning.cod","..\MODE\warning.txt"START
Pack :"..\GRAPHICS\WARNING\48.bin","..\MODE\warning.txt"WARNDATA
Exec :"..\MODE\warning.txt"START
Pack :"..\MODE\starwars.cod","..\MODE\starwars.txt"START
Exec :"..\MODE\starwars.txt"START
l:LoadingTurboMode
Load :"..\MODE\warning.cod","..\MODE\warning.txt"START
Pack :"..\GRAPHICS\WARNING\turbo.bin","..\MODE\warning.txt"WARNDATA
Exec :"..\MODE\warning.txt"START
Page :"..\MODE\pianogir.txt"MUSIC.PAGE
Pack :"..\MODE\pianogir.mus","..\MODE\pianogir.txt"MUSIC.START
Page :"..\MODE\pianogir.txt"PIAG_P
Pack :"..\GRAPHICS\NINBER\piagirl.big","..\MODE\pianogir.txt"PIAG
Page :"..\MODE\pianogir.txt"PIAM_P
Pack :"..\GRAPHICS\NINBER\piagirl.bim","..\MODE\pianogir.txt"PIAM
Page :16
Pack :"..\MODE\pianogir.cod","..\MODE\pianogir.txt"START
Exec :"..\MODE\pianogir.txt"START
l:LoadingNeedPentagonMode
Load :"..\MODE\warning.cod","..\MODE\warning.txt"START
Pack :"..\GRAPHICS\WARNING\pentagon.bin","..\MODE\warning.txt"WARNDATA
Exec :"..\MODE\warning.txt"START
Pack :"..\MODE\needpent.cod","..\MODE\needpent.txt"START
Exec :"..\MODE\needpent.txt"START
;l:TestLoading
;
; Pack :"test.cod","test.txt"START
; Exec :"test.txt"START
; Return
CloseTRD:"---.trd"
RenameFile:,"boot.B","OSCOSS.B"
RenameFile:,"boot.B","OSCOSS.L"
RenameFile:,"boot.B","OSCOSS.I"
RenameFile:,"boot.B","OSCOSS.N"
RenameFile:,"boot.B","OSCOSS.C"