home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 51
/
Commodore_Disc_51_19xx_-_de.d64
/
cp-comp.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
66 lines
10 gosub62:printchr$(14)
11 printchr$(147)spc(9)"[195][208]-[195][207][196][197]/[214]1.1":print""
12 print" [197]ditor",,"[195]ompiler"
13 gosub76
14 print:print" 1 = [212]ext loeschen","6 = [210]un"
15 print" 2 = [197]ditieren","7 = [195]ompile"
16 print" 3 = [196]rucken"
17 print" 4 = [204]aden"
18 print" 5 = [211]peichern"
19 gosub76
20 print" ([160][198]3 beendet [197]ditiermodus )"
21 geta$:ifa$=""then21
22 onval(a$)gosub46,50,51,52,54,42,29
23 ifval(a$)then11
24 poke198,1:poke631,asc(a$):print
25 fi$="":inputfi$:iffi$="x"thenopen8,8,15,"i0":close8:goto25
26 i=1:iffi$=""then11
27 ifi<=len(fi$)thenifmid$(fi$,i,1)<>" "theni=i+1:goto27
28 fi$=left$(fi$,i-1):gosub57:goto25
29 rf=0
30 fa$="":printchr$(147)"[195]ompiling":sys51675:ifpeek(51698)then 50
31 fa$="run":poke4096,peek(38936):poke4097,peek(38937):ifrfthenreturn
32 gosub78
34 print:print"[208]rg-[197]nde:"pe
35 print"[214]ar-[197]nde:"ve:print:print
36 print"[211]peichern j/n?"
37 getz$:ifz$=""then37
38 ifz$<>"j"thenreturn
39 print:input"[198]ilename";fa$
40 sys57812"/"+fa$+".exe",8:poke193,0:poke194,16
41 a=pe:gosub75:poke174,al:poke175,ah:sys62957:return
42 rf=1:gosub30
43 ifpeek(51698)thenreturn
44 ifpeek(51698)then50
45 gosub78:sys50387:return
46 print:print"[215]irklich loeschen j/n ?"
47 getz$:ifz$=""then47
48 ifz$="j"thensys52200
49 return
50 sys52852:return:rem aendern
51 open8,4,7:sys53048:return:rem drucken
52 print:print:fi$="":input"[198]ile laden:";fi$:iffi$=""thenreturn
53 sys52200:open8,8,8,fi$:sys52175:goto50
54 print:print:fi$="":input"[198]ile speichern:";fi$:iffi$=""thenreturn
55 open8,8,15,"s:"+fi$:close8
56 open8,8,8,fi$+",s,w":sys53048:return:rem speichern
57 iffi$=fa$then44
59 sys57812"/"+fi$+".exe",8,1:gosub90
60 ifst<>64thenreturn
61 fa$=fi$:poke51698,0:poke50489,peek(781):poke50490,peek(782):goto44
62 data12000,36863,4096,cpv1.1mc1,cpv1.1mc2,"syscon64",editor.mc
63 readan,en,pr:a=pr-1:gosub75
64 ifah=peek(56)andal=peek(55)thenreturn
65 poke56,ah:poke55,al:clr
66 readan,en,pr:fori=1to4:readf$:sys57812f$,8,1:gosub90:next
68 poke51698,1:a=an:gosub75
70 poke51978,al:poke51979,ah:a=en:gosub75
72 poke51980,al:poke51981,ah:sys52200
74 poke65028,255:poke65029,143:run
75 ah=int(a/256):al=a-256*ah:return
76 print:print" -------------------------------------":return
78 pe=256*peek(50490)+peek(50489)
79 ve=256*peek(4097)+peek(4096)+pe
80 a=ve:gosub75:poke65026,al:poke65027,ah:return
90 poke780,0:sys65493:return