1 'MC-Generator: L&E.LDR
2 3 'Adresse : &A000 4 'Laenge : &E1 5 'Aufruf : CALL &A000[,Zn] 6 100 MODE 2 110 PRINT" - FULL SCREEN EDITOR - 120 PRINT"======================== 130 PRINT 140 PRINT 150 IF PEEK(&BB01)=&E0 GOTO 270 160 ' 170 PRINT"Sie besitzen einen CPC"; 180 IF PEEK(&BB4F)=&70 THEN PRINT"664 190 IF PEEK(&BB4F)=&74 THEN PRINT"6128 200 PRINT 210 PRINT"Dieses Programm ist aber "; 220 PRINT"leider nur auf dem CPC 464 "; 230 PRINT"einsetzbar. 240 PRINT 250 NEW 260 ' 270 MEMORY &9FFF 280 PRINT"Moment"; 290 FOR a=&A000 TO &A0E0 300 READ a$:a$="&"+a$:POKE a,VAL(a$) 310 PRINT"."; 320 NEXT 330 PRINT 340 ' 350 LOCATE 1,5:PRINTCHR$(20); 360 PRINT"Zu editierendes Programm laden. 370 PRINT 380 PRINT 390 PRINT"Editor mit CALL &A000 [,Zeilennummer] starten. 400 PRINT 410 PRINT"Scrollen mit Cursortasten 420 PRINT 430 PRINT"Ende mit <ESC> 440 PRINT 450 PRINT 460 PRINT"<COPY> Zeile editieren 470 PRINT" <links> oder <rechts> Cursor bewegen 480 PRINT"<SHIFT> <links> oder <rechts> Copy-Cursor bewegen 490 PRINT"<SHIFT> <auf> oder <ab> Copy-Cursor bewegen 500 PRINT"<CTRL> <links> oder <rechts> Cursor zum Beginn/Ende der Zeile 510 PRINT"<CTRL> <auf> oder <ab> Cursor zum Beginn/Ende des Textes 520 PRINT"<CTRL> <TAB> Ueberschreiben an/aus 530 PRINT"<ENTER> Editieren beenden 540 PRINT 550 NEW 560 ' 570 DATA FE,00,28,10,FE,01,ED,53,3B,A0 580 DATA 28,5E,1E,05,CD,00,B9,C3,94,CA 590 DATA 11,01,00,18,ED,ED,5B,3B,A0,1B 600 DATA ED,53,3B,A0,CD,3D,A0,18,43,ED 610 DATA 4B,3B,A0,50,59,CD,00,B9,CD,0D 620 DATA E1,3E,00,06,FF,CD,4D,BC,C9,6E 630 DATA 00,ED,5B,3B,A0,CD,00,B9,CD,A3 640 DATA E7,38,3F,ED,4B,3B,A0,21,01,00 650 DATA ED,42,30,0B,ED,5B,3B,A0,1B,ED 660 DATA 53,3B,A0,18,E2,ED,5B,3B,A0,13 670 DATA ED,53,3B,A0,18,00,3E,42,CD,1E 680 DATA BB,20,11,CD,09,BB,FE,F0,28,A1 690 DATA FE,F1,28,14,FE,E0,28,43,18,E8 700 DATA CD,00,B9,C3,64,C0,3E,19,CD,72 710 DATA BB,18,98,C9,ED,5B,3B,A0,13,ED 720 DATA 53,3B,A0,CD,9E,A0,18,CC,ED,5B 730 DATA 3B,A0,CD,00,B9,CD,A3,E7,38,DE 740 DATA 78,B1,28,0B,ED,5B,3B,A0,13,ED 750 DATA 53,3B,A0,18,E9,ED,5B,3B,A0,1B 760 DATA ED,53,3B,A0,C9,CD,00,B9,ED,5B 770 DATA 3B,A0,CD,9A,E7,CD,63,E1,CD,43 780 DATA CA,CD,BC,E6,CD,BB,DE,CD,53,C4 790 DATA CD,88,A0,18,89 |