home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 68
/
64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64
/
editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
176 lines
100 rem editor.system-v
105 rem (w) 1989 ingolf lange
110 :
115 restore
120 fory=0to7:readp:poke57344+y,p:poke59392+y,p:next
125 data 0,0,0,24,24,0,0,0
130 fory=0to7:readp:poke57344+1024+y,p:poke59392+1024+y,p:next
135 data 0,126,126,126,126,126,126,0
140 :
145 ifpeek(50176)=120 then 430
150 :
155 for i=0 to 289
160 readp:if p>255 then a=p:printa: nexti
165 pokea,p:a=a+1:nexti
170 sys 50176:run
175 :
180 rem zeichensatz ins ram kopieren
185 :
190 data 50176
195 data 120,162,0,160,208,134,2,132
200 data 3,162,0,160,224,134,4,132
205 data 5,169,49,133,1,162,16,160
210 data 0,177,2,145,4,200,208,249
215 data 230,3,230,5,202,208,242,169
220 data 55,133,1,169,1,141,50,196
225 data 88,96,0
230 :
235 rem punkteraster ausgeben
240 :
245 data 51200
250 data 32,253,174,32,138,173,32,247
255 data 183,132,251,133,252,32,253,174
260 data 32,138,173,32,247,183,132,253
265 data 133,254,120,165,1,133,255,169
270 data 52,133,1,162,0,142,61,3
275 data 160,0,161,251,57,98,200,142
280 data 62,3,217,98,200,208,5,169
285 data 128,141,62,3,173,62,3,145
290 data 253,200,192,8,208,228,165,253
295 data 105,39,133,253,144,2,230,254
300 data 230,251,238,61,3,173,61,3
305 data 201,8,208,204,165,255,133,1
310 data 88,96,128,64,32,16,8,4
315 data 2,1
320 :
325 rem save nach 64'er 6/88
330 :
335 data 52224
340 data 32,253,174,32,87,226,32,189
345 data 255,32,253,174,32,138,173,32
350 data 247,183,133,194,132,193,32,253
355 data 174,32,138,173,32,247,183,133
360 data 175,132,174,169,1,162,8,160
365 data 1,32,186,255,169,97,133,185
370 data 32,213,243,165,186,32,12,237
375 data 165,185,32,185,237,32,142,251
380 data 165,172,32,221,237,165,173,32
385 data 221,237,32,209,252,176,20,120
390 data 160,0,132,1,177,172,160,55
395 data 132,1,88,32,221,237,32,219
400 data 252,208,231,32,254,237,165,186
405 data 32,12,237,165,185,41,239,9
410 data 224,32,185,237,32,254,237,96
415 data 40,96,160,0,177,61,145,0
420 data 0,21
425 :
430 poke56576,148:poke53272,9:poke53265,27:poke648,192
435 poke53280,0:poke53281,0
440 :
445 print"[151][147]"
450 print" editor.system-v
455 [153]" (w) 1989 ingolf lange
460 print
465 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
470 [153]" (NULL) f1 zeichen aussuchen (NULL)"
475 [153]" (NULL) (NULL)"
480 [153]" (NULL) cursor zeichen waehlen (NULL)"
485 [153]" (NULL) 1-9 in die felder kopieren (NULL)"
490 [153]" (NULL) (NULL)"
495 [153]" (NULL) f2 zeichen editieren (NULL)
500 print" [221] [221]"
505 print" [221] cursor rasterpunkt ansteuern [221]"
510 print" [221] space rasterpunkt invertieren [221]"
515 print" [221] return zeichen annehmen [221]"
520 print" [221] clear raster loeschen [221]"
525 print" [221] [221]"
530 print" [221] [221]"
535 print" [221] 'l' zeichensatz laden [221]"
540 print" [221] 's' zeichensatz speichern [221]"
545 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
550 print" irgendeine taste, um fortzusetzen.
555 [151]198,0:[146]198,1
560 :
565 :
570 [156]:[134] c(8),a(8),b(8) :g$[178][199](34)[170][199](34)[170]"cmd"
575 b(0)[178]49192:b(1)[178]49200:b(2)[178]49208
580 b(3)[178]49512:b(4)[178]49520:b(5)[178]49528
585 b(6)[178]49832:b(7)[178]49840:b(8)[178]49848
590 [129]i[178]0[164]8:a(i)[178]57344:[130]i
595 [153]"load"
600 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@syseditor.system-v ";
605 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys ";
610 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@syszeichensaetze: ";
615 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys1) $e000 (57344)";
620 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys2) $e800 (59392)";
625 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys ";
630 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sysh help ";
635 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys ";
640 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitpoke@apokebcpokedepokefgpokehipokejkpokelmpokeno";
645 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@poke@apokebcpokedepokefgpokehipokejkpokelmpokenowait";
650 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitppokeqrpokestpokeuvpokewxpokeyzpoke[\poke]^poke_";
655 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@ppokeqrpokestpokeuvpokewxpokeyzpoke[\poke]^poke_wait";
660 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitpoke !poke"g$"#poke$%poke&'poke()poke*+poke,-poke./";
665 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@poke !poke"g$"#poke$%poke&'poke()poke*+poke,-poke./wait";
670 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@wait0poke12poke34poke56poke78poke9:poke;<poke=>poke?";
675 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@0poke12poke34poke56poke78poke9:poke;<poke=>poke?wait";
680 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitpoketanatnpokepeeklenpokestr$valpokeascchr$pokeleft$right$pokemid$(NULL)poke(NULL)(NULL)poke(NULL)(NULL)";
685 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@poketanatnpokepeeklenpokestr$valpokeascchr$pokeleft$right$pokemid$(NULL)poke(NULL)(NULL)poke(NULL)(NULL)wait";
690 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@wait(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)";
695 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)wait";
700 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitpokeclosegetpokenewtab(poketofnpokespc(thenpokenotsteppoke+-poke*/poke^and";
705 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@pokeclosegetpokenewtab(poketofnpokespc(thenpokenotsteppoke+-poke*/poke^andwait";
710 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitorpoke>=poke<sgnpokeintabspokeusrfrepokepossqrpokerndlogpokeexpcospokesin";
715 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@orpoke>=poke<sgnpokeintabspokeusrfrepokepossqrpokerndlogpokeexppokesincmd";
720 [153] [199](148);" cmdcoswait";
725 :
730 fp[178]55680[170]40[172]yy[170]xx:f[178][194](fp):[151]fp,7
735 [161]a$:[139]a$[178]""[167]735
740 [151]fp,f: q[178][197](a$)[171]1
745 [139]a$[178]""[167]xx[178](xx[170]1)[175]15
750 [139]a$[178]"cmd"[167]xx[178](xx[171]1)[175]15
755 [139]a$[178]""[167]yy[178](yy[170]1)[175]15
760 [139]a$[178]"on"[167]yy[178](yy[171]1)[175]15
765 [139]a$[177][178]"1"[175]a$[179][178]"9"[167]795
770 [139]a$[178][199](137)[167]815:[143] f2
775 [139]a$[178]"s" [167]925
780 [139]a$[178]"l" [167]965
785 [139]a$[178]"h"[167][138]
790 [137]730
795 c(q)[178][194](49536[170]40[172]yy[170]xx)
800 a(q)[178]57344[170]([194](53272)[175]2)[172]1024[170]c(q)[172]8
805 [158]51200,a(q),b(q):[137]730
810 :
815 x[178]0:y[178]0
820 fp[178]55336[170]40[172]y[170]x:f[178][194](fp):[151]fp,7:bp[178]b(0)[170]40[172]y[170]x
825 [161]a$:[139]a$[178]""[167]825
830 [151]fp,f
835 [139]a$[178]" "[167][151]bp,128[171][194](bp):a$[178]""
840 [139]a$[178]""[167]x[178]x[170]1:[139]x[178]24[167]x[178]0
845 [139]a$[178]"cmd"[167]x[178]x[171]1:[139]x[178][171]1[167]x[178]23
850 [139]a$[178]""[167]y[178]y[170]1:[139]y[178]24[167]y[178]0
855 [139]a$[178]"on"[167]y[178]y[171]1:[139]y[178][171]1[167]y[178]23
860 [139]a$[178][199](133)[167]725:[143] f1
865 q[178][171]3[172](y[177]15)[171]3[172](y[177]7)[171](x[177]15)[171](x[177]7)
870 [139]a$[178]"load"[167][129]s[178]0[164]7:[129]i[178]0[164]7:[151]b(q)[170]40[172]s[170]i,0:[130]i,s
875 [139]a$[178]"i"[167][129]s[178]0[164]7:[129]i[178]0[164]7:[151]b(q)[170]40[172]s[170]i,128[171][194](b(q)[170]40[172]s[170]i):[130]i,s
880 [139]a$[179][177][199](13)[167]900
885 [129]s[178]0[164]7
890 p[178]0:[129]i[178]0[164]7:p[178]p[171]2[174](7[171]i)[172]([194](b(q)[170]40[172]s[170]i)[178]128):[130]i
895 [151]a(q)[170]s,p:[130]s:[137]820
900 [139]a$[178]"s"[167]925
905 [139]a$[178]"l"[167]965
910 [139]a$[178]"h"[167][138]
915 [137]820
920 :
925 [153]"load den ersten (1), den zweiten (2) oder
930 input" beide (3) zeichensaetze speichern";w
935 input" s-name ";n$ :print
940 a=57344-2048*(w=2):e=61440+2048*(w=1)
945 open1,8,15,("s0:"+n$):close1
950 sys52224,n$,a,e
955 run
960 :
965 input"[147] l-name ";n$
970 load n$,8,1:run