3 IFPEEK(56)<>138THENPOKE56,138:POKE55,0:RUN
4 POKE53280,0:POKE53272,22:POKE53281,0:POKE53265,11
5 GOSUB61000:POKE53265,27
10 C$=CHR$(34):DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[144]LOAD"C$"JETAN.BAS"C$",  [157][157]"DV"[157]:"
30 PRINT"RUN:"
40 POKE631,13:POKE632,13:POKE198,2
45 SYS57812"JETAN.ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
46 SYS57812"JFONT2",DV,0:POKE780,0:POKE781,0:POKE782,16:SYS65493
47 SYS57812"MARTIAN MARCH",DV,0:POKE780,0:POKE781,12:POKE782,138:SYS65493
50 POKE44,24:POKE24*256,0:NEW
60000 OPEN15,8,15,"S0:JETAN":CLOSE15:SAVE"0:JETAN",8
60001 END
61000 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=0TO11: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)="[202] [197] [212] [193] [206]":Z$(1)="BY [196]AVID [205]. [205]OORMAN"
61040 Z$(2)="([195]) 1993 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)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
61090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
61100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]