home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 116 / 116.d81 / d2f (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  106 lines
  1. 10 poke56,88:poke55,0:clr:tb=36864:poke53281,0:poke53280,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 22 print"[147]":gosub60000
  4. 30 sys57812"toolbox 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  5. 40 systb+30,"obj.d2f",dv,33024
  6. 50 systb+30,"d2f font",dv,63488
  7. 60 c1=15:c2=0:systb+42,"i0",dv
  8. 70 deffnh(zz)=int(zz/256)
  9. 80 deffnl(zz)=zz-fnh(zz)*256
  10. 90 poke53265,27:poke53281,0:poke53280,0
  11. 100 poke648,196:print"[147]";
  12. 110 poke56578,63:poke56576,196:poke53272,31
  13. 120 print"[147]";:systb+15,0,39,0,24,64,11
  14. 130 print"";:systb+15,2,37,3,21,32,1
  15. 140 systb+27,4,"[196][207][207][196][204][197]! to [198]ont [195]onverter"
  16. 150 print"[158]";:systb+27,6,"by [202]ohn [215]illiam [200]arris"
  17. 160 systb+27,7,"([212]he [205]ad [199]amer)...(yet again)"
  18. 170 print"[150]";
  19. 180 systb+24,8,9,"[204]oad: [196][207][207][196][204][197]!/[210]un[208]aint"
  20. 190 systb+24,8,10,"[214]iew: [196][207][207][196][204][197]! (color)"
  21. 200 systb+24,8,11,"[214]iew: [196][207][207][196][204][197]! (mono)"
  22. 210 systb+24,8,12,"[195]onvert: [196][207][207][196][204][197]! to [198]ont"
  23. 220 systb+24,8,13,"[214]iew: [198]ont/[211]creen"
  24. 230 systb+24,8,14,"[211]ave: [198]ont/[211]creen"
  25. 240 systb+24,8,15,"[195]hange colors"
  26. 250 systb+24,8,16,"[193]ddress and [195]redits"
  27. 260 systb+24,8,17,"[210]eturn to [204][207][193][196][211][212][193][210]"
  28. 270 print"[153]";:systb+27,19,"[213]se [195][210][211][210] [213][208]/[196][207][215][206] and [210][197][212][213][210][206]"
  29. 290 systb+48,9,7,32,9,10,1,81
  30. 300 onf%goto320,370,410,450,550,570,700,810,870
  31. 310 goto120
  32. 320 systb,"$:*",dv,57344,10,8,7,13,14
  33. 330 iff$=""then120
  34. 340 ifval(e$)then820
  35. 350 systb+30,f$,dv,23552:ifval(e$)then820
  36. 360 goto120
  37. 370 poke56578,63:poke56576,198:poke53272,31:poke53281,15:poke53280,0
  38. 380 poke53265,59:poke53272,120
  39. 390 systb+15,0,39,0,24,c1+c2*16,0
  40. 400 poke198,0:wait198,1:poke198,0:goto90
  41. 410 poke56578,63:poke56576,198:poke53272,31:poke53281,15:poke53280,0
  42. 420 poke648,88:poke53265,59:poke53272,104
  43. 430 systb+15,0,39,0,24,c1+c2*16,0
  44. 440 poke198,0:wait198,1:poke198,0:goto90
  45. 450 poke53272,2:poke53281,c1:systb+15,0,39,0,24,255,c2
  46. 460 sys33024:poke198,0:wait198,1:poke198,0
  47. 470 print"[147]";
  48. 480 poke56578,63:poke56576,196:poke53272,31:poke53281,0:poke53280,0
  49. 490 print"[158]";:systb+27,9,"[195]onversion synopsis:"
  50. 500 a$="s":ifpeek(828)=1thena$=""
  51. 510 systb+27,11,str$(peek(828))+" character"+a$+" used"
  52. 520 ifpeek(829)=1thensystb+27,13,"[195]omplete conversion not possible."
  53. 530 systb+27,15,"-- [208]ress a key --"
  54. 540 poke198,0:wait198,1:poke198,0:goto120
  55. 550 poke53272,2:poke53281,c1:systb+15,0,39,0,24,255,c2
  56. 560 poke198,0:wait198,1:poke198,0:goto90
  57. 570 systb+15,10,29,11,14,160,13
  58. 580 systb+15,13,26,13,13,32,13
  59. 590 systb+24,13,12,"[197]nter [198]ilename"
  60. 600 systb+24,0,13,"":print">";:systb+66,3,160,12
  61. 610 ifw$=""then120
  62. 620 fora=1tolen(w$):l$=mid$(w$,a,1)
  63. 630 ifl$=","orl$=":"thena=len(w$):next:goto570
  64. 640 next
  65. 650 f$="f."+w$:sa=51200:ea=53248:gosub830
  66. 660 ifval(e$)then820
  67. 670 f$="scr."+w$:sa=49152:ea=50152:gosub830
  68. 680 ifval(e$)then820
  69. 690 goto120
  70. 700 print"[147]";:gosub800
  71. 710 print"[158]";:systb+27,4,"[208]ress [198]1 to change the background"
  72. 720 systb+27,6,"color, [198]3 to change the foreground,"
  73. 730 systb+27,8,"[198]5 to restore the default colors, or"
  74. 740 systb+27,10,"[198]7 to return to the menu."
  75. 750 systb+45,"[133][134][135][136]":onf%goto760,770,780,790
  76. 760 c1=c1+1and15:gosub800:goto750
  77. 770 c2=c2+1and15:gosub800:goto750
  78. 780 c1=15:c2=0:gosub800:goto750
  79. 790 goto120
  80. 800 systb+15,10,29,18,22,160,c1:systb+15,15,24,19,21,160,c2:return
  81. 810 print"[159][147]";:systb+51,"t.d2f words",dv:goto120
  82. 820 print"";:systb+27,1,"[196][201][211][203] [197][210][210][207][210]:"+e$:poke198,0:wait198,1:poke198,0:goto120
  83. 830 sys57812f$,dv:poke193,fnl(sa):poke194,fnh(sa):poke174,fnl(ea):poke175,fnh(ea)
  84. 840 sys62954
  85. 850 systb+42,"",dv
  86. 860 return
  87. 870 print"[147]":poke56578,63:poke56576,71:poke53272,23:poke648,4:print"[147]"
  88. 874 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen890
  89. 880 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then900
  90. 890 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  91. 900 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  92. 910 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  93. 920 end
  94. 10000 open15,8,15,"s0:d2f":close15:save"d2f",8:end
  95. 60000 z$=" [152]                                      ":poke214,10:print
  96. 60010 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
  97. 60020 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]"
  98. 60030 z$(0)="[196] [207] [207] [196] [204] [197]   [212] [207]   [198] [207] [206] [212]":z$(1)="by [202]ohnny [200]arris"
  99. 60040 z$(2)="([195]) 1994 by [211]oftdisk [208]ublishing"+chr$(13)
  100. 60050 z$(3)="[212]his program is the copyrighted work
  101. 60060 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"
  102. 60070 z$(5)[178]"shareware or in the public domain."
  103. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  104. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  105. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  106.