10 POKE43,1:POKE44,8:POKE55,0:POKE56,32:CLR
15 DIM M$(26)
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53280,0:POKE53281,0:PRINT"[158]"
35 REM GOTO70
37 SYS57812"ULTRA.TOOLS",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
40 SYS57812"ULTRA.FONT",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
50 SYS57812"ULTRA.DTEXT",DV,0:POKE780,0:POKE781,0:POKE782,157:SYS65493
60 SYS40192,"P.ULTRA.HELP",DV,12288
70 POKE53272,25
80 AD=49152: REM MENU
90 BX=AD+3:  REM BOX
100 SS=AD+6: REM SCREEN STASH
110 SR=AD+9: REM SCREEN RESTORE
120 AT=AD+15:REM PRINT AT
130 CE=AD+18:REM CENTER PRINTER
140 CS=AD+36:REM CHARACTER SWAP
150 BR=AD+48:REM BRANCHER
180 FR=AD+30:REM FILE READER
190 FM=AD+54:REM FRAME
195 SH=AD+42:REM SHADE
200 DT=40192:REM DTEXT UNPACKER
205 M$(1)="([212])EXT [198]ILES [207]NLY"
206 M$(2)="([208])ROGRAMS [215]ITH [212]EXT [198]ILES"
207 M$(3)="([210])EAD [200]ELP [198]ILE & [195]REDITS"
208 M$(4)="([209])UIT [212]O [204]OADSTAR"
209 M$(5)="[210]EDOX             (#137)"
210 M$(6)="[211]TARBASE 419      (#133)"
211 M$(7)="[200]AMMER            (#110)"
212 M$(8)="[201]NERTIANIA         (#84)"
213 M$(9)="[204]INX               (#79)"
214 M$(10)="[208]ROGRAMS [213]SING [205][204] [205]ONITOR"
215 M$(11)="[210]ETURN [212]O [205]AIN [205]ENU"
216 M$(12)="[198]ORT [193]PACHE       (#137)"
217 M$(13)="[207]VERLOAD          (#136)"
218 M$(14)="[204]AZERTECH         (#135)"
219 M$(15)="[198]IRE [194]UG          (#129)"
220 M$(16)="[194]ENEATH/[212]ENEMENT  (#113)"
221 M$(17)="[210]ESCUE [193]T [210]ANA    (#101)"
222 M$(18)="[211]'[215]ORDS           (#113)"
223 M$(19)="[205]AHJONG           (#120)"
224 M$(20)="[196]OWN [196]OWN [196]OWN     (#49)"
225 M$(21)="[215]HAT [199]OES [213]P       (#82)"
226 M$(22)="[198]ARGO              (#86)"
227 M$(23)="[208]IPES [208]EAK         (#73)"
228 M$(24)="[197]AGLE [197]YES         (#87)"
229 M$(25)="[211]PLAT              (#89)"
230 PRINT"[147]"
235 SYSCS,32,28,14:SYSFM,0,39,0,24,7
240 SYSSH,4,33,3,5:SYSBX,5,34,2,4,160,7
245 SYSAT,8,3,"[158] [213] [204] [212] [210] [193] [199] [197] [205] [211]   [214] 1 [146]"
250 SYSSH,4,33,9,16:SYSBX,5,34,10,15,32,0
260 SYSFM,5,34,10,15,4
270 SYSFM,5,34,8,10,4
280 SYSAT,5,10,"[156]<>"
290 SYSAT,6,9,"[153]         [205][193][201][206] [205][197][206][213][160]         [146]"
300 FORX=1TO4
310 SYSAT,7,10+X,M$(X)
320 NEXTX
322 SYSSH,4,33,20,22:SYSBX,5,34,19,21,160,3
324 SYSAT,8,20,"[159] [195][210][211][210]/[210]ETURN [212]O [211]ELECT [146]"
328 SYSSS,208
330 POKE198,0:SYSAD,11,6,33,4,5+128,1+128,"TPRQ"
340 ONF%GOTO400,700,350,2000
350 SYSSS,208
360 SYSFR,12288,7,5,"[213] [204] [212] [210] [193] [199] [197] [205] [211]   [200] [197] [204] [208]"
370 SYSSR,208:GOTO330
400 SYSSS,216
410 SYSSH,4,33,17,17
420 FORX=1TO8
430 SYSBX,5,34,8,8+X,32,0
440 FORQ=1TO20:NEXTQ
450 NEXTX
460 SYSFM,5,34,8,16,4
510 FORX=5TO10
520 SYSAT,7,4+X,M$(X)
530 NEXTX
550 SYSAT,7,15,M$(11)
560 POKE198,0:SYSAD,9,6,32,7,5+128,1+128,"1234567"
570 SYSSS,216:SYSAT,8,20,"[159] [211]TANDBY...[204]OADING [212]EXT [146]"
575 IFF%=7THENSYSSR,208:GOTO330
580 IFF%=1THENX$="P.REDOX COLORS":Y$="[210] [197] [196] [207] [216]   [195] [207] [204] [207] [210] [211]"
590 IFF%=2THENX$="P.STARBASE 419":Y$="[211] [212] [193] [210] [194] [193] [211] [197]   4 1 9"
600 IFF%=3THENX$="P.HAMMER":Y$="[200] [193] [205] [205] [197] [210]"
602 IFF%=4THENX$="P.INERTIANIA":Y$="[201] [206] [197] [210] [212] [201] [193] [206] [201] [193]"
604 IFF%=5THENX$="P.LINX":Y$="[204] [201] [206] [216]"
610 IFF%=6THENX$="P.ML MON PGMS":Y$="[205] [207] [210] [197]   [208] [210] [207] [199] [210] [193] [205] [211]"
620 SYSDT,X$,DV,16384
630 SYSFR,16384,7,5,Y$
640 SYSSR,216:GOTO560
700 SYSSS,208
710 FORX=1TO16
720 SYSBX,4,35,2,2+X,32,0
730 FORQ=1TO20:NEXTQ
740 NEXTX
745 SYSFM,4,35,2,18,4
750 FORX=12TO25
760 SYSAT,8,X-9,M$(X)
770 NEXTX
780 SYSAT,8,17,M$(11)
790 POKE198,0:SYSAD,3,5,32,15,5+128,1+128,"123456789ABCDEF"
800 IFF%=15THENSYSSR,208:GOTO330
810 SYSSS,216:SYSAT,8,20,"[159] [211]TANDBY...[204]OADING [212]EXT [146]"
820 IFF%=1THENX$="P.FORT APACHE":Y$="[211]HOOTOUT [193]T [198]ORT [193]PACHE"
830 IFF%=2THENX$="P.OVERLOAD":Y$="[207]VERLOAD"
840 IFF%=3THENX$="P.LAZERTECH":Y$="[204]AZERTECH"
850 IFF%=4THENX$="P.FIRE BUG":Y$="[198]IRE [194]UG"
860 IFF%=5THENX$="P.BEN/TENEMENT":Y$="[194]ENEATH [212]HE [212]ENEMENT"
870 IFF%=6THENX$="P.RESCUE AT RANA":Y$="[210]ESCUE [193]T [210]ANA"
880 IFF%=7THENX$="P.S'WORDS":Y$="[211]'[215]ORDS"
890 IFF%=8THENX$="P.MAHJONG":Y$="[205]AHJONG"
900 IFF%=9THENX$="P.DOWN DOWN DOWN":Y$="[196]OWN [196]OWN [196]OWN"
910 IFF%=10THENX$="P.WHAT GOES UP":Y$="[196][196][196] [201][201] ([215]HAT [199]OES [213]P)"
920 IFF%=11THENX$="P.FARGO":Y$="[198]ARGO"
921 IFF%=12THENX$="P.PIPES PEAK":Y$="[208]IPES [208]EAK"
922 IFF%=13THENX$="P.EAGLE EYES":Y$="[197]AGLE [197]YES"
923 IFF%=14THENX$="P.SPLAT":Y$="[211]PLAT"
930 SYSDT,X$,DV,16384
940 SYSFR,16384,7,5,Y$
950 SYSSR,216
960 SYSBX,6,33,4,16,160,4
965 SYSFM,5,34,3,17,7
970 SYSAT,8,8,"[156][196]O [217]OU [215]ANT [212]O [204]OAD [212]HE[146]"
980 SYSAT,8,9,"'[198]IXER' [208]ROGRAM [198]OR....[146]"
990 SYSCE,12,""+Y$
1000 SYSAT,8,20,"[159] [208]LEASE [211]ELECT ([217] [207]R [206]) [146]"
1010 POKE198,0:SYSBR,"YN"
1020 ONF%GOTO1100,1030
1030 SYSSR,216:GOTO790
1100 V=LEN(X$):V$=RIGHT$(X$,V-2)
1110 N$="U."+V$:Q$=CHR$(34)
1120 POKE53272,23
1130 PRINT"[147]P[207]43,1:P[207]44,8:P[207]55,0:P[207]56,160:P[207]2048,0:CLR"
1140 PRINT"L[207] "Q$N$Q$","DV
1150 PRINT"R[213]:"
1160 PRINT""
1170 POKE631,13:POKE632,13:POKE633,13:POKE198,3
1180 NEW:END
2000 SYSSS,208
2010 SYSAT,6,20,"[159] [209]UIT!  [193]RE [217]OU [211]URE? ([217]/[206]) [146]"
2020 SYSBR,"YN"
2030 ONF%GOTO2050,2040
2040 SYSSR,208:GOTO330
2050 SYSAT,5,20,"[159] [201]NSERT [204][207][193][196][211][212][193][210] [196]ISK/[193]NY [203]EY [146]"
2060 GETQ$:IFQ$=""THEN2060
2070 GOTO60000
2080 END
10000 OPEN15,8,15,"S0:ULTRA.MAIN":CLOSE15:SAVE"ULTRA.MAIN",8:END
60000 FORI=0TO21:POKE828+I,8+I:NEXT
60010 IFDV<8ORDV>29ORDV=8THEN60030
60020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
60030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
60040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60060
60050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60070
60060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
60070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
60080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
60090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END