home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side4.d64 / ultra.main (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  5KB  |  159 lines
  1. 10 poke43,1:poke44,8:poke55,0:poke56,32:clr
  2. 15 dim m$(26)
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 30 poke53280,0:poke53281,0:print"[158]"
  5. 35 rem goto70
  6. 37 sys57812"ultra.tools",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 40 sys57812"ultra.font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  8. 50 sys57812"ultra.dtext",dv,0:poke780,0:poke781,0:poke782,157:sys65493
  9. 60 sys40192,"p.ultra.help",dv,12288
  10. 70 poke53272,25
  11. 80 ad=49152: rem menu
  12. 90 bx=ad+3:  rem box
  13. 100 ss=ad+6: rem screen stash
  14. 110 sr=ad+9: rem screen restore
  15. 120 at=ad+15:rem print at
  16. 130 ce=ad+18:rem center printer
  17. 140 cs=ad+36:rem character swap
  18. 150 br=ad+48:rem brancher
  19. 180 fr=ad+30:rem file reader
  20. 190 fm=ad+54:rem frame
  21. 195 sh=ad+42:rem shade
  22. 200 dt=40192:rem dtext unpacker
  23. 205 m$(1)="([212])ext [198]iles [207]nly"
  24. 206 m$(2)="([208])rograms [215]ith [212]ext [198]iles"
  25. 207 m$(3)="([210])ead [200]elp [198]ile & [195]redits"
  26. 208 m$(4)="([209])uit [212]o [204]oadstar"
  27. 209 m$(5)="[210]edox             (#137)"
  28. 210 m$(6)="[211]tarbase 419      (#133)"
  29. 211 m$(7)="[200]ammer            (#110)"
  30. 212 m$(8)="[201]nertiania         (#84)"
  31. 213 m$(9)="[204]inx               (#79)"
  32. 214 m$(10)="[208]rograms [213]sing [205][204] [205]onitor"
  33. 215 m$(11)="[210]eturn [212]o [205]ain [205]enu"
  34. 216 m$(12)="[198]ort [193]pache       (#137)"
  35. 217 m$(13)="[207]verload          (#136)"
  36. 218 m$(14)="[204]azertech         (#135)"
  37. 219 m$(15)="[198]ire [194]ug          (#129)"
  38. 220 m$(16)="[194]eneath/[212]enement  (#113)"
  39. 221 m$(17)="[210]escue [193]t [210]ana    (#101)"
  40. 222 m$(18)="[211]'[215]ords           (#113)"
  41. 223 m$(19)="[205]ahjong           (#120)"
  42. 224 m$(20)="[196]own [196]own [196]own     (#49)"
  43. 225 m$(21)="[215]hat [199]oes [213]p       (#82)"
  44. 226 m$(22)="[198]argo              (#86)"
  45. 227 m$(23)="[208]ipes [208]eak         (#73)"
  46. 228 m$(24)="[197]agle [197]yes         (#87)"
  47. 229 m$(25)="[211]plat              (#89)"
  48. 230 print"[147]"
  49. 235 syscs,32,28,14:sysfm,0,39,0,24,7
  50. 240 syssh,4,33,3,5:sysbx,5,34,2,4,160,7
  51. 245 sysat,8,3,"[158] [213] [204] [212] [210] [193] [199] [197] [205] [211]   [214] 1 [146]"
  52. 250 syssh,4,33,9,16:sysbx,5,34,10,15,32,0
  53. 260 sysfm,5,34,10,15,4
  54. 270 sysfm,5,34,8,10,4
  55. 280 sysat,5,10,"[156]<>"
  56. 290 sysat,6,9,"[153]         [205][193][201][206] [205][197][206][213][160]         [146]"
  57. 300 forx=1to4
  58. 310 sysat,7,10+x,m$(x)
  59. 320 nextx
  60. 322 syssh,4,33,20,22:sysbx,5,34,19,21,160,3
  61. 324 sysat,8,20,"[159] [195][210][211][210]/[210]eturn [212]o [211]elect [146]"
  62. 328 sysss,208
  63. 330 poke198,0:sysad,11,6,33,4,5+128,1+128,"tprq"
  64. 340 onf%goto400,700,350,2000
  65. 350 sysss,208
  66. 360 sysfr,12288,7,5,"[213] [204] [212] [210] [193] [199] [197] [205] [211]   [200] [197] [204] [208]"
  67. 370 syssr,208:goto330
  68. 400 sysss,216
  69. 410 syssh,4,33,17,17
  70. 420 forx=1to8
  71. 430 sysbx,5,34,8,8+x,32,0
  72. 440 forq=1to20:nextq
  73. 450 nextx
  74. 460 sysfm,5,34,8,16,4
  75. 510 forx=5to10
  76. 520 sysat,7,4+x,m$(x)
  77. 530 nextx
  78. 550 sysat,7,15,m$(11)
  79. 560 poke198,0:sysad,9,6,32,7,5+128,1+128,"1234567"
  80. 570 sysss,216:sysat,8,20,"[159] [211]tandby...[204]oading [212]ext [146]"
  81. 575 iff%=7thensyssr,208:goto330
  82. 580 iff%=1thenx$="p.redox colors":y$="[210] [197] [196] [207] [216]   [195] [207] [204] [207] [210] [211]"
  83. 590 iff%=2thenx$="p.starbase 419":y$="[211] [212] [193] [210] [194] [193] [211] [197]   4 1 9"
  84. 600 iff%=3thenx$="p.hammer":y$="[200] [193] [205] [205] [197] [210]"
  85. 602 iff%=4thenx$="p.inertiania":y$="[201] [206] [197] [210] [212] [201] [193] [206] [201] [193]"
  86. 604 iff%=5thenx$="p.linx":y$="[204] [201] [206] [216]"
  87. 610 iff%=6thenx$="p.ml mon pgms":y$="[205] [207] [210] [197]   [208] [210] [207] [199] [210] [193] [205] [211]"
  88. 620 sysdt,x$,dv,16384
  89. 630 sysfr,16384,7,5,y$
  90. 640 syssr,216:goto560
  91. 700 sysss,208
  92. 710 forx=1to16
  93. 720 sysbx,4,35,2,2+x,32,0
  94. 730 forq=1to20:nextq
  95. 740 nextx
  96. 745 sysfm,4,35,2,18,4
  97. 750 forx=12to25
  98. 760 sysat,8,x-9,m$(x)
  99. 770 nextx
  100. 780 sysat,8,17,m$(11)
  101. 790 poke198,0:sysad,3,5,32,15,5+128,1+128,"123456789abcdef"
  102. 800 iff%=15thensyssr,208:goto330
  103. 810 sysss,216:sysat,8,20,"[159] [211]tandby...[204]oading [212]ext [146]"
  104. 820 iff%=1thenx$="p.fort apache":y$="[211]hootout [193]t [198]ort [193]pache"
  105. 830 iff%=2thenx$="p.overload":y$="[207]verload"
  106. 840 iff%=3thenx$="p.lazertech":y$="[204]azertech"
  107. 850 iff%=4thenx$="p.fire bug":y$="[198]ire [194]ug"
  108. 860 iff%=5thenx$="p.ben/tenement":y$="[194]eneath [212]he [212]enement"
  109. 870 iff%=6thenx$="p.rescue at rana":y$="[210]escue [193]t [210]ana"
  110. 880 iff%=7thenx$="p.s'words":y$="[211]'[215]ords"
  111. 890 iff%=8thenx$="p.mahjong":y$="[205]ahjong"
  112. 900 iff%=9thenx$="p.down down down":y$="[196]own [196]own [196]own"
  113. 910 iff%=10thenx$="p.what goes up":y$="[196][196][196] [201][201] ([215]hat [199]oes [213]p)"
  114. 920 iff%=11thenx$="p.fargo":y$="[198]argo"
  115. 921 iff%=12thenx$="p.pipes peak":y$="[208]ipes [208]eak"
  116. 922 iff%=13thenx$="p.eagle eyes":y$="[197]agle [197]yes"
  117. 923 iff%=14thenx$="p.splat":y$="[211]plat"
  118. 930 sysdt,x$,dv,16384
  119. 940 sysfr,16384,7,5,y$
  120. 950 syssr,216
  121. 960 sysbx,6,33,4,16,160,4
  122. 965 sysfm,5,34,3,17,7
  123. 970 sysat,8,8,"[156][196]o [217]ou [215]ant [212]o [204]oad [212]he[146]"
  124. 980 sysat,8,9,"'[198]ixer' [208]rogram [198]or....[146]"
  125. 990 sysce,12,""+y$
  126. 1000 sysat,8,20,"[159] [208]lease [211]elect ([217] [207]r [206]) [146]"
  127. 1010 poke198,0:sysbr,"yn"
  128. 1020 onf%goto1100,1030
  129. 1030 syssr,216:goto790
  130. 1100 v=len(x$):v$=right$(x$,v-2)
  131. 1110 n$="u."+v$:q$=chr$(34)
  132. 1120 poke53272,23
  133. 1130 print"[147]p[207]43,1:p[207]44,8:p[207]55,0:p[207]56,160:p[207]2048,0:clr"
  134. 1140 print"l[207] "q$n$q$","dv
  135. 1150 print"r[213]:"
  136. 1160 print""
  137. 1170 poke631,13:poke632,13:poke633,13:poke198,3
  138. 1180 new:end
  139. 2000 sysss,208
  140. 2010 sysat,6,20,"[159] [209]uit!  [193]re [217]ou [211]ure? ([217]/[206]) [146]"
  141. 2020 sysbr,"yn"
  142. 2030 onf%goto2050,2040
  143. 2040 syssr,208:goto330
  144. 2050 sysat,5,20,"[159] [201]nsert [204][207][193][196][211][212][193][210] [196]isk/[193]ny [203]ey [146]"
  145. 2060 getq$:ifq$=""then2060
  146. 2070 goto60000
  147. 2080 end
  148. 10000 open15,8,15,"s0:ultra.main":close15:save"ultra.main",8:end
  149. 60000 fori=0to21:poke828+i,8+i:next
  150. 60010 ifdv<8ordv>29ordv=8then60030
  151. 60020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  152. 60030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  153. 60040 close2:open2,i,2:close2:ifstthen60060
  154. 60050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60070
  155. 60060 next:print"[147]":poke53272,23:poke186,8:end
  156. 60070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  157. 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
  158. 60090 print"run:":poke631,13:poke632,13:poke198,2:end
  159.