10 PRINT CHR$(27)"H"CHR$(27)"J Diashow"CHR$(10)CHR$(10) 20 PRINT"Es koennen Bilder, die von verschiedenen anderen Computern stammen, betrachtet werden." 30 PRINT CHR$(10)"Durch Eingabe von "CHR$(34)"I"CHR$(34)" kann das angezeigte Bild invertiert werden."CHR$(10) 40 PRINT "Mit "CHR$(34)"L"CHR$(34)" kann das naechste Bild geladen oder mit "CHR$(34)"D"CHR$(34)" das Inhaltsverzeichnis angezeigt":PRINT "werden."CHR$(10) 50 PRINT "Beginnt das Bild nicht am oberen Rand, kann die Bildgrenze mit den Cursortasten nach oben bzw. unten verschoben werden, danach muss das Bild erneut geladen werden."CHR$(10) 60 PRINT "(D)irectory / (L)aden / (E)nde "; 100 GOSUB 9000 110 REM GOSUB 2000 120 d$=INKEY$:IF d$="" THEN 120 130 IF UPPER$(d$)="I" THEN GOSUB 4000 140 IF UPPER$(d$)="L" THEN GOSUB 2000 150 IF UPPER$(d$)="D" THEN PRINT CHR$(27);"H";CHR$(27);"J";:FILES "*.SCR":PRINT CHR$(10)CHR$(10)"(L)aden / (E)nde "; 160 IF ASC(d$)=31 THEN PRINT CHR$(27)"Y ";CHR$(27);"I"; 170 IF ASC(d$)=30 THEN PRINT CHR$(27);"Y> ";CHR$(13):PRINT CHR$(27);"Y";CHR$(32);CHR$(32); 180 IF UPPER$(d$)<>"E" THEN GOTO 120 190 PRINT CHR$(27)"H"CHR$(27)"J" 490 STOP 990 REM 1000 f$="m:screen" 1010 h=HIMEM:k=INT((h+1)/256-1):j=k*256:MEMORY j-1:j=j+128 1020 POKE j,94,35,86,1,140,k,205,90,252,233,0,201 1030 POKE j+12,33,0,k,235,1,128,0,237,176,201 1040 OPEN"r",1,f$,128:FIELD 1,128 AS a$ 1050 c$=SPACE$(128):u=22832:FOR n=1 TO 180 1060 u%=UNT(u):u=u+128:CALL j(u%):v=VARPTR(c$):POKE v+1,0,k 1070 LSET a$=c$:PUT 1:NEXT:CLOSE:MEMORY h:RETURN 1080 REM 2000 PRINT CHR$(27)"H"CHR$(27)"E":INPUT;"Name des Bilds: ";f$ 2010 h=HIMEM:k=INT((h+1)/256-1):j=k*256:MEMORY j-1:j=j+128 2020 POKE j,94,35,86,1,140,k,205,90,252,233,0,201 2030 POKE j+12,33,0,k,1,128,0,237,176,201 2040 m=j+30:POKE m,35,94,35,86,33,0,k,235,1,128,0,237,176,201 2050 OPEN"r",1,f$,128:FIELD 1,128 AS a$ 2060 u=22832:FOR n=1 TO 180:GET 1 2070 u%=UNT(u):u=u+128:c$=a$:CALL m(c$):CALL j(u%) 2080 NEXT:CLOSE:MEMORY h:RETURN 3000 REM saving screen as a random file 3010 REM program "C11P4" from "PCW: Streamlined Basic" by Geoffrey Childs 3020 REM 4000 h=HIMEM:MEMORY &HF4FF 4010 POKE &HF500,1,9,245,205,90,252,233,0,201,1,48,89,33,0,90,10 4020 POKE &HF510,47,2,3,43,125,132,32,247,56,245,201 4030 g=&HF500:CALL g 4040 MEMORY HIMEM 4050 RETURN 4060 REM Invertieren des Bildschirms 9000 REM 9010 DATA 209,18,62,44,190,192,35,19,213,195,69,93 9020 DATA 33,72,93,54,195,35,54,104,35,54,1,201 9030 FOR n=360 TO 383:READ m:POKE n,m:NEXT:v=372:CALL v 9040 RETURN 9050 REM MULTIPLE POKE for Mallard Basic 1.29 9060 REM program "A4" from "PCW: Streamlined Basic" by Geoffrey Childs Basic" by Geoffrey Ch