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