10 :GOSUB 1680:POKE 2053,143:LOAD"VDC-TOOLS",8,1
20 GOSUB 1620
30 IF A<>0 THEN POKE2053,ASC(":"):GOTO10
39 POKE808,225
40 REM ********************************
50 REM * GRAFIKKLAU FUER DEN VDC-CHIP *
60 REM *------------------------------*
70 REM * WRITTEN IN 1988 BY :         *
80 REM *                              *
90 REM * CHRISTIAN EIGLMEIER          *
100 REM * KATTOWITZER WEG 5            *
110 REM * 3057 NEUSTADT 1              *
120 REM * TEL.: 05032-62223            *
130 REM ********************************
140 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
150 REM ! NUR FUER C128PC IM C64-MODE !
160 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
170 REM
180 POKE53280,0:POKE53281,0:POKE650,128:PRINTCHR$(14)CHR$(8);:M=0
190 REM
200 REM **** HAUPTMENUE ****
210 REM
220 RESTORE:FORX=1TO32:READY:READZ:POKE54784,Y:POKE54785,Z:NEXTX
230 DATA 0,126,1,80,2,102,3,73,4,32,5,0,6,25,7,29,8,0,9,7,10,32,11,7,12,0,13,0
240 DATA 14,0,15,0,20,8,21,0,23,8,24,32,25,64,26,240,27,0,28,32,29,7,34,125
250 DATA 35,100,36,5,22,120,25,71,4,39,7,32
260 PRINT"[147][153]  [199]RAFIK-[203]LAU FUER DEN [195]OMMODORE 128 [208][195] [146]";
270 PRINT"[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][192][192][192][192]"
280 PRINT"[158]- 1 -  [212]EXT-[211]CREEN WAEHLEN"
290 PRINT"- 2 -  [214][196][195]-[199]RAFIK (640*176)"
300 PRINT"- 3 -  [214][196][195]-[199]RAFIK (640*200)"
310 PRINT"- 4 -  [199]RAFIK SPEICHERN"
320 PRINT"- 5 -  [199]RAFIK LADEN"
330 PRINT"- 6 -  [199]RAFIK DRUCKEN"
340 PRINT"- 7 -  [196]IRECTORY ZEIGEN"
350 PRINT"- 8 -  [208]ROGRAMM VERLASSEN"
360 PRINT"[153][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][192][192][192][192]";
370 PRINT"  (C) 25/09/1988 - ALL RIGHTS RESERVED";
380 GETA$:IFA$<"1"ORA$>"8"THEN380
390 MN=VAL(A$):ON MN GOTO 400,610,740,860,1130,1380,1740,1900
400 REM ******************************
410 REM *** TEXT-SCREEN AUSWAEHLEN ***
420 REM ******************************
430 SYS 49152: REM WINDOW LOESCHEN
440 PRINT"[158][211]CHALTEN [211]IE AUF DEN [210][199][194]-[193]USGANG UM UND"
450 PRINT"           WAEHLEN [211]IE MIT"
460 PRINT"             <[195][210][211][210] [196][207][215][206]>[146]"
470 PRINT"              <[195][210][211][210] [213][208]> [146]"
480 PRINT"[201]HRE [211]TARTADRESSE DES [214]IDEO-[210][193][205]'S MIT"
490 PRINT"               <[210][197][212][213][210][206]>[146]"CHR$(13)"                 AUS"
500 PRINT"[203]EINE [193]USWAHL:    _ [146]"
510 PRINT"[211]TARTADRESSE :";
520 POKE54784,12:POKE54785,INT(AD/256)
530 POKE54784,13:POKE54785,AD-256*INT(AD/256)
540 PRINT"       [157][157][157][157][157][157][157]";AD;CHR$(13)"[145]";
550 GETTS$:IFTS$<>"" AND TS$<>"[145]" AND TS$<>CHR$(13)ANDTS$<>"_"THEN 550
560 IFTS$="[145]"THENAD=AD-2000:IFAD<0THENAD=14000
570 IFTS$=""THENAD=AD+2000:IFAD>14000THENAD=0
580 IF TS$<>CHR$(13)ANDTS$<>"_"THEN520
590 IFTS$=CHR$(13)THENM=1
600 GOTO 200
610 REM *******************************
620 REM *** VDC-GRAFIK (640*176 P.) ***
630 REM *******************************
640 SYS 49152: REM WINDOW LOESCHEN
650 PRINT"[158][211]CHALTEN [211]IE AUF DEN [210][199][194]-[193]USGANG UM UND"
660 PRINT"BETAETIGEN [211]IE <[210][197][212][213][210][206]>[146], UM DIE [205]ULTI-"
670 PRINT"COLOR-[199]RAFIK ZU UEBERNEHMEN."
680 PRINT"[203]EINE [213]EBERNAHME :  _ [146]"
690 POKE54784,25:POKE54785,199:POKE54784,20:POKE54785,56:POKE54784,21:POKE54785,0
700 POKE54784,6:POKE54785,22
710 GETTS$:IFTS$<>"_"ANDTS$<>CHR$(13) THEN 710
720 IF TS$=CHR$(13)THENM=2:AD=0
730 GOTO200
740 REM *******************************
750 REM *** VDC-GRAFIK (640*200 P.) ***
760 REM *******************************
770 SYS 49152:REM WINDOW LOESCHEN
780 PRINT"[158][211]CHALTEN [211]IE BITTE AUF DEN [210][199][194]-[193]USGANG"
790 PRINT"UM UND BETAETIGEN [211]IE ZUR [213]EBERNAHME DIE"
800 PRINT"<[210][197][212][213][210][206]>[146] [212]ASTE."
810 PRINT"[203]EINE [213]EBERNAHME :  _ [146]"
820 POKE54784,25:POKE54785,135
830 GETTS$:IFTS$<>CHR$(13)ANDTS$<>"_"THEN830
840 IFTS$=CHR$(13)THENM=3:AD=0
850 GOTO 200
860 REM *******************************
870 REM ***  GRAFIK/BILD SPEICHERN  ***
880 REM *******************************
890 IF M=0 THEN 260
900 SYS 49152:REM WINDOW LOESCHEN
910 DT$="":INPUT"[158][199]RAFIK/[194]ILD-[206]AME";DT$
920 IF DT$="" THEN 260
930 DT$=LEFT$(DT$,12)+".PIC"
940 IFM=2ORM=3THENAD=0
950 FORX=1 TO LEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0
960 POKE851,INT(AD/256):POKE850,AD-256*INT(AD/256)
970 IFM=1THENED=AD+1999
980 IFM=2ORM=3THENED=16383
990 POKE 853,INT(ED/256):POKE852,ED-256*INT(ED/256)
1000 POKE 854,M
1010 GOSUB1680:SYS 49185:REM BEREICH ABSPEICHERN
1020 GOSUB1620:IFA<>0THENPOKE198,0:WAIT198,1:GOTO260
1030 IFM>1THEN1120
1040 POKE850,0:POKE851,32:POKE852,255:POKE853,63:POKE854,1
1050 DT$=LEFT$(DT$,X-5)+".ZES"
1060 FORX=1 TO LEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0
1070 GOSUB1680:SYS 49185:REM ZEICHENSATZ SPEICHERN
1080 GOSUB1620:IFA<>0THENPOKE198,0:WAIT198,1:GOTO260
1090 POKE850,0:POKE851,8:POKE852,207:POKE853,15:POKE854,1:DT$=LEFT$(DT$,X-5)+".ATT"
1100 FORX=1 TO LEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0
1110 GOSUB1680:SYS49185:GOSUB1620:IFA<>0THENPOKE198,0:WAIT198,1:GOTO260
1120 GOTO 260
1130 REM ******************************
1140 REM *** BILD/GRAFIK NACHLADEN  ***
1150 REM ******************************
1160 SYS 49152:REM WINDOW LOESCHEN
1170 DT$="":INPUT"[199]RAFIK/[194]ILD-[206]AME";DT$
1180 IF DT$="" THEN 260
1190 DT$=LEFT$(DT$,12)+".PIC"
1200 FORX=1TOLEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0:POKE850,0
1210 POKE851,0:GOSUB1680:SYS 49336:REM BILD/GRAFIK LADEN
1220 GOSUB1620:IFA<>0THEN1360
1230 M=PEEK(854):AD=0
1240 IFM>1THEN1310
1250 POKE850,0:POKE851,32:DT$=LEFT$(DT$,X-5)+".ZES"
1260 FORX=1TOLEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0
1270 GOSUB1680:SYS49336:GOSUB1620:IFA<>0THEN1360
1280 POKE850,0:POKE851,8:DT$=LEFT$(DT$,X-5)+".ATT"
1290 FORX=1TOLEN(DT$):POKE827+X,ASC(MID$(DT$,X,1)):NEXTX:POKE827+X,0
1300 GOSUB1680:SYS49336:GOSUB1620:IFA<>0THEN1360
1310 IFM=1THENM$="[212]EXT-[211]CREEN"
1320 IFM=2THENM$="[214][196][195]-[199]RAFIK (640*176)"
1330 IFM=3THENM$="[214][196][195]-[199]RAFIK (640*200)"
1340 PRINT"[194]ILD/[199]RAFIK-[193]RT: ";M$;"[146]"
1350 PRINT"<[212][193][211][212][197]>[146]"
1360 GETTS$:IFTS$=""THEN1360
1370 GOTO 260
1380 REM *****************************
1390 REM ***   HARDCOPY-AUFRUFE    ***
1400 REM *****************************
1410 SYS 49152:REM WINDOW LOESCHEN
1420 IF M=0 THEN260
1430 GOSUB 1710
1440 IF M<>1THEN 1520
1450 POKE829,INT(AD/256):POKE828,AD-256*INT(AD/256):ED=AD+1999
1460 POKE831,INT(ED/256):POKE830,ED-256*INT(ED/256):AT=2048
1470 POKE833,INT(AT/256):POKE832,AT-256*INT(AT/256)
1480 POKE53265,PEEK(53265)AND111:POKE53296,1: REM 2 MHZ-MODUS
1490 SYS 49471: REM TEXT-HARDCOPY
1500 POKE53296,0:POKE53265,PEEK(53265)AND127OR16: REM 1 MHZ-MODUS
1510 GOTO260
1520 POKE53265,PEEK(53265)AND111:POKE53296,1: REM 2 MHZ-MODUS
1530 IF M=2 THEN POKE850,22
1540 IF M=2 THEN POKE850,22
1550 IF M=3 THEN POKE850,25
1560 SYS 49901
1570 POKE53296,0:POKE53265,PEEK(53265)AND127OR16: REM 1 MHZ-MODUS
1580 GOTO260
1590 REM *****************************
1600 REM *** HILFS-UNTERPROGRAMME  ***
1610 REM *****************************
1620 OPEN1,8,15
1630 INPUT#1,A,B$,C,D
1640 IF A=0 OR A=1 THEN 1660
1650 PRINT"";A;"[157],";B$;",";C;"[157],";D;"[146]"
1660 CLOSE 1:RETURN
1670 REM
1680 OPEN 1,8,15:CLOSE1
1690 IF ST<>0 THEN PRINT"[198]LOPPY EINSCHALTEN[146]":POKE198,0:WAIT198,1:GOTO1680
1700 RETURN
1710 OPEN 1,4,1:CLOSE 1
1720 IF ST<>0 THENPRINT"[196]RUCKER EINSCHALTEN[146]":POKE198,0:WAIT198,1:GOTO1710
1730 RETURN
1740 REM ******************************
1750 REM ***   DIRECTORY EINLESEN   ***
1760 REM ******************************
1770 SYS 49152:REM WINDOW LOESCHEN
1780 GOSUB 1680:REM FLOPPY EIN
1790 A=0:OPEN1,8,0,"$":PRINT"[158]";:POKE781,1:SYS65478:GETA$,A$:E$=CHR$(0)
1800 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:GOSUB1620:POKE198,0:WAIT198,1:GOTO260
1810 A=A+1:IFA>18 THEN GOSUB 1850
1820 PRINTASC(H$+E$)+256*ASC(L$+E$);
1830 GETA$,B$:IFA$THENPRINTA$B$;:GOTO1830
1840 PRINTA$:GOTO1800
1850 REM ******************************
1860 REM ***    SCREEN UEBERLAUF    ***
1870 REM ******************************
1880 PRINTCHR$(13)"<<[212][193][211][212][197]>>[146]"
1890 POKE 198,0:WAIT198,1:SYS 49152:PRINT"";:A=1:RETURN
1900 REM ******************************
1910 REM ***    PROGRAMM VERLASSEN  ***
1920 REM ******************************
1930 SYS 49152:REM WINDOW LOESCHEN
1940 PRINT"[158][208]ROGRAMM VERLASSEN[146]"
1950 PRINT"[211]IND [211]IE SICHER (J/N) ?"
1960 GETX$:IF X$<>"J" AND X$<>"N" THEN 1960
1970 IF X$<>"N" THEN SYS 64738
1980 GOTO 260