20 REM *** FONT-EDITOR ***
23 :
27 GN=PEEK(186):IFGN<8THENINPUT"FLOPPY-GERAETENUMMER ";GN:IFGN>11ORGN<8THEN27
32 IFPEEK(56)<95 THEN 40
35 SYS57812"GSF-KERN.OBJ",GN,1
37 POKE780,0:SYS65493
40 SYS57812"FONT-EDITOR.OBJ",GN,1
41 POKE780,0:SYS65493
55 SYS57812"SHAPE-LUPE.OBJ",GN,1
60 POKE780,0:SYS65493
70 SYS24000:(null)
80 POKE55,0:POKE 56,91:.MPS SCHUETZEN
90 CLR:GN=PEEK(186):!VORB
95 POKE 808,250:.RUN/STOP AUS
98 :
110 .LOOP:!MENUEFRAG
120 IFFTHEN:_LOOP
130 L=(null)XM,YM,XM+97,YM+41)
140 IFLTHEN:!MODEFRAG
160 L=(null)XZ,YZ,XZ+90,YZ+60+CY)
170 IFLAND(null)THEN:!ZEIERHOEH
180 IF(null)THEN:!WEITERWAEHL
200 :
500 REM *** EDITOR
520 .E:X=INT(((null)-XD)/PX)
525 Y=INT(((null)-YD)/PX)
530 IF X>CX OR Y>CY THEN:_EXITEDIT
540 IF (XORY)<0 THEN:_EXITEDIT
545 IFSP<S1THEN:(null)S1
550 IF MD THEN:_MAL
555 IF (null)=0 THEN:_E
558 XE=XD+PX*X:YE=YD+PX*Y
560 (null)XE,YE,XE+PX-G,YE+PX-G
562 (null) XP+X,YP+Y,2
563 !WAIT0:_E
565 .MAL:IF(null)THEN:!MODI
570 IFMOTHEN:_E
590 .PSET:XE=XD+PX*X:YE=YD+PX*Y
600 (null)XE,YE,XE+PX-G,YE+PX-G,D
610 (null)XP+X,YP+Y,S:_E
620 .EXITEDIT:(null)SP
630 (null) A$,XP,YP,XP+CX,YP+CY
640 (null) SH$(AZ),A$,0,0,1:(null) A$
650 _LOOP
670 :
1000 .ZEICHMENUE:IF F THENRETURN
1002 R=(null):!WAIT0
1005 FL=1:(null):.PD ZU
1010 IFR=1THEN:_ZEILOESCH
1020 IFR=2THEN:_ZEICHINVERT
1030 IFR=3THEN:_(null)
1035 IFR=6THEN:_SPIEGX
1037 IFR=7THEN:_SPIEGY
1040 :
1045 .*** SHIFTEN
1050 (null) SP,XZ+45,YZ+20
1060 .SHIFLOO
1070 L=(null)XZ,YZ,XZ+90,YZ+60+CY)
1080 IF L=0 THEN:_NEUDEF
1090 IF (null)=0 THEN:_SHIFLOO
1092 !WAIT0
1095 IF R=4 THEN:_SHIFTX
1098 IF (null)>XZ+45 THEN:_NACHUNT
1099 .NACHOBEN
1100 (null)A$,XP,YP,XP+CX,YP
1110 (null)U XP,YP,XP+CX,YP+CY,1
1120 (null) A$,XP,YP+CY,1:(null) A$
1140 _SHIFLOO
1145 .NACHUNT
1150 (null) A$,XP,YP+CY,XP+CX,YP+CY
1155 (null)D XP,YP,XP+CX,YP+CY,1
1160 (null) A$,XP,YP,1:(null) A$
1165 _SHIFLOO
1180 .SHIFTX
1185 IF(null)>XZ+45 THEN:_NARECHTS
1190 (null) A$,XP,YP,XP,YP+CY
1195 (null)L XP,YP,XP+CX,YP+CY,1
1200 (null) A$,XP+CX,YP,1:(null) A$
1205 _SHIFLOO
1210 .NARECHTS
1215 (null) A$,XP+CX,YP,XP+CX,YP+CY
1220 (null)R XP,YP,XP+CX,YP+CY,1
1225 (null) A$,XP,YP,1:(null) A$
1230 _SHIFLOO
1240 :
1260 .(null)
1270 (null) SP,LI+20,OB+20:!WAIT1
1280 X=INT(((null)-XD)/PX)
1290 Y=INT(((null)-YD)/PX)
1300 IF X>CX OR Y>CY THENRETURN
1310 IF (XORY)<0 THENRETURN
1320 (null) XP-1,YP-1,XP+CX+1,YP+CY+1
1330 (null) XP+X,YP+Y
1340 (null) XP-1,YP-1,XP+CX+1,YP+CY+1,0
1350 _NEUDEF
1360 :
1380 .SPIEGX
1390 FOR X=0 TO CX/2
1395 (null) A$,XP+X,YP,XP+X,YP+CY
1400 (null) B$,XP+CX-X,YP,XP+CX-X,YP+CY
1405 (null) A$,XP+CX-X,YP,1
1410 (null) B$,XP+X,YP,1:(null) B$,A$
1415 NEXT:_NEUDEF
1420 :
1425 .SPIEGY
1430 FOR Y=0 TO CY/2
1435 (null) A$,XP,YP+Y,XP+CX,YP+Y
1440 (null) B$,XP,YP+CY-Y,XP+CX,YP+CY-Y
1445 (null) A$,XP,YP+CY-Y,1
1450 (null) B$,XP,YP+Y,1:(null) B$,A$
1455 NEXT:_NEUDEF
1490 :
1500 .NEUE ZS-GROESSE
1510 FL=1:(null):!INPUT ZS-GROESSE
1520 (null) 37:(null) 30
1530 IF CX<XC AND CY<YC THEN:_NOWARN
1540 PRINT" [218][211]-[196]ATEN KOENNTEN
1550 [153]" EVTL. VERLORENGEHEN !
1560 .NOWARN:
1570 (null) (null)+6: (null) 20: !OK OR CANCEL
1580 (null): FL=1:(null) :.PD ZU
1590 IF OC=0 THEN RETURN
1610 FOR X=0 TO 95
1620 A$=SH$(X): (null) SH$(X),XC,YC
1630 (null) SH$(X),A$,0,0:(null) A$
1640 NEXT
1650 !NEUEDIT
5295 :
5300 .VERGROE:.***
5315 (null):(null) XD,YD,LX+3,LY+3
5316 SYS 23792,SH$(AZ),PX
5371 (null):RETURN
5372 :
5400 .MODEFRAG:.I,S-M ODER L-M
5405 (null)
5410 (null) XM+1,YM+1,96,25
5420 (null) ML,1
5430 IF (null) THEN ML=(null):GOTO 5450
5440 .MOWAE
5445 (null) 0,(ML-1)*(null),1E3,ML*8-1
5450 MD= ML<>1
5455 S= 3-ML :D=32+S*128
5460 MO=0:(null)
5462 .MODI: MO=1-MO
5463 (null):(null) XM+1,YM+1,96,41
5464 (null) XA:(null) YA
5465 IF MD=0 THEN PRINT"          ";
5467 IF MD THEN PRINT"[205]ODUS: "MD$(MO);
5470 (null):_WAIT0
5480 :
5500 .WEITERWAEHL:.MODUSWAHL
5507 (null):(null) XM+1,YM+1,96,25
5510 (null) 0,ML*8-8,1E3,ML*8-1
5520 ML =(ML+1)+3*(ML=3)
5530 _MOWAE
5540 :
5702 .ERROUT: (null) 0,13,1E3,13,32
5704 (null) 20:(null) 35
5706 PRINT E$:(null)7,1:!WAIT1
5710 (null):RETURN
5748 :
5750 .ZEIERHOEH: MD=(null)>XZ+45
5760 IF MD THEN AZ=-(AZ+1)*(AZ<95)
5765 IF MD=0 THEN AZ=AZ-1-96*(AZ=0)
5770 !EINTRA:!VERGROE
5775 _DEFAULTMODUS
5780 :
5800 .ZEILOESCH
5804 (null) SP,LI+20,OB+20:!WAIT1
5805 IF (null)LI,OB,RE,UN)=0 THEN RETURN
5810 (null) XP,YP,XP+CX,YP+CY,32
5820 _NEUDEF
5850 :
5860 .ZEICHINVERT
5880 (null) XP,YP,XP+CX,YP+CY
5890 _NEUDEF
5895 :
5900 .ANDERES ZEICH
5910 MK=AZ :.MERKEN
5920 !ZEIWAHL:AZ=MK
5930 .NEUDEF
5940 (null) A$,XP,YP,XP+CX,YP+CY
5950 (null) SH$(AZ),A$,0,0,1:(null) A$
5960 !EINTRA:_VERGROE
5963 :
6000 .EDITMENUE:
6001 IF F THEN IF (null)<>4 THENRETURN
6002 IF (null)=1 THEN:_ZEIWAHL
6005 IF (null)=3 THEN:_ANDERES ZEICH
6006 IF (null)=4 THEN:_NEUER ZEISA
6010 IF (null)=5 THEN:_NEUE ZS-GROESSE
6015 IF (null)=6 THEN:_EXIT PRG
6020 .*** VELOCITY
6050 (null)48,99,146,52
6060 (null)36:PRINT"SCHNELLER"
6070 (null)36:PRINT"LANGSAMER"
6075 PRINT"  [206]ORMALWERT"
6080 PRINT"   [215][197][201][212][197][210]"
6087 (null) 0,32,300,32
6090 (null) 20,38,122,46
6095 (null):R=0:_BALKEN
6100 .PFEILOO
6105 R=(null):IF R THEN:_BALKEN
6110 .WC:IF(null)1,1,300,300)=0 THEN:_WC
6115 (null):_PFEILOO
6120 .BALKEN
6121 (null):X=123-SP:Y=45
6122 (null) 21,Y-6,X,Y,160
6123 (null) X,Y-6,121,Y,32
6124 (null):(null)49,100,144,32
6125 IFR=0THEN6115
6126 IF R=4 THEN:_ENDPFEI
6130 IF R=1 THEN SP=SP+3*(SP>5)
6140 IF R=2 THEN SP=SP-3*(SP<97)
6150 IF R=3 THEN SP=45
6170 (null) SP:(null) R,1
6180 _PFEILOO
6190 .ENDPFEI:(null):(null)
6195 _WAIT0
6199 :
6200 .INPUT ZS-GROESSE
6210 IF CX>31 THEN FL=1:(null)
6230 (null)50,50,208,88
6240 (null) 2:PRINT"  [199][210][207][197][211][211][197] IN [208][201][216][197][204][206]
6250 [210] 0,10,300,10
6260 .[133]X: [237] 14:[236]0
6270 [153]" PEEKREITE (MAX. 40) :   CMDCMD";
6280 L[178]2:![133]
6290 XC[178][197](IP$)
6300 [139] XC[179]5 [176] XC[177]40 [167]:_[133]X
6310 .[133]Y: [237] 23:[236]0
6320 [153]" LEFT$OEHE  (MAX. 40) :   CMDCMD";
6330 L[178]2:![133]
6340 YC[178][197](IP$)
6350 [139] YC[179]3 [176] YC[177]40 [167]:_[133]Y
6370 [210] 0,32,300,32
6400 [142]
6405 :
6410 .EXIT PRG: [221] PL(3),75,210,30
6415 [237] 3:[236] 3
6420 [153]" ASCONT-STR$ISKETTE EINGELEGT?"
6430 [237] 16:[236] 55:!OK [176] CANCEL
6440 [139] OC[178]0 [167]:[219]:[142]
6450 [229]7,0
6455 [159]9,GN,15,"S:FONT-LISTE":[160]9
6460 [159]9,GN,2,"FONT-LISTE,S,W"
6470 [152]9,FA: [129] X[178]1 [164] FA
6480 [152]9,FM%(X):[152]9,FL$(X)
6485 [130]:[160] 9
6490 [151] 808,237:.[138][173][144] AKTIV
6495 [204] OFF:[128]
6499 :
6500 .NEUER ZEISA:.[172][172][172]
6540 ![133] ZS[171]GROESSE
6660 [237] 37:[236]30
6670 .NEUZEI1: [153]"(null)ATN(null)(null)(null)(null)CHR$:
6680 PRINT" [193]LLE EVTL. IM [211]PEICHER
6690 [153]" BEFINDLICHEN (null)S.-STR$ATEN
6700 PRINT" WERDEN GELOESCHT !
6710 [237] [245][170]6: [236] 20
6720 !OK [176] CANCEL:[219]
6725 FL[178]1: [219] :.PD ZU
6730 .[172][172][172] F[145]T ANLEGEN
6740 [139] OC[178]0 [167]:[142]
6755 [215] ZV$,1,21,1
6758 [220]:[213] ZV$,1,21,58,178
6764 [129] X[178]0 [164] 95
6767 [209] SH$(X),XC,YC
6770 [130]
6775 .NEUEDIT: [224] 0,10,320,200,223
6780 PX[178][181](190[173]XC)
6782 C[178][181](174[173]YC):[139] C[179]PX [167] PX[178]C
6785 [139] PX[177]20 [167] PX[178]20
6787 S1[178]425[173]PX
6790 LX[178]PX[172]XC:LY[178]PX[172]YC
6791 LI[178](210[171]LX[171]17)[173]2
6793 OB[178](191[171]LY[171]16)[173]2[170]9
6797 UN[178]LY[170]OB[170]16:RE[178]LX[170]LI[170]17
6800 [224] LI,OB,RE,UN,32
6810 [217] LI,OB,RE,UN
6813 XD[178]LI[170]7:YD[178]OB[170]6
6815 [218]:[153][199](6);
6817 [235] XD[171]1,YD[171]1,LX[170]12,LY[170]12
6818 G[178]2:[139] PX[179]5 [167] G[178]1
6820 [237] LY[170]3:.[172][172][172] GITTER
6821 [210] 0,0,0,LY
6822 [129] X[178]1 [164] XC:[236] PX[172]X[171]PX[170]1
6825 [210] PX[172]X,0,PX[172]X,LY,G[171]1
6828 [153][199](48[170]X[171][181](X[173]10)[172]10);
6829 [130]
6830 [210] 0,0,LX,0:[236] LX[170]3
6831 [129] X[178]1 [164] YC: [237] PX[172]X[171]PX[170]1
6835 [210] 0,PX[172]X,LX,PX[172]X,G[171]1
6836 [153][199](48[170]X[171][181](X[173]10)[172]10)"CMD";
6837 [130]
6838 [139]G[178]1[167]:[217]0,0,PX[172]XC[170]1,PX[172]YC[170]1
6839 [219]:.[172][172][172] ZEICHEN[171]ANZEIGE
6840 F[178]0:CX[178]XC[171]1:CY[178]YC[171]1
6843 XS[178](AZ[175]7)[172]24:YS[178][181](AZ[173]8)
6846 XZ[178]RE[170]15:YZ[178]OB
6850 [224] XZ,YZ,XZ[170]90,YZ[170]60[170]CY,32
6852 [217] XZ,YZ,XZ[170]90,YZ[170]60[170]CY
6855 XP[178]XZ[170](90[171]CX)[173]2 :YP[178]YZ[170]50
6857 [237] YP[170]CY[173]2[171]4:[236] XZ[170]3
6858 [153]"-";:[236] XZ[170]79:[153]"+"
6860 [217] XP[171]5,YP[171]4,XP[170]CX[170]5,YP[170]CY[170]4
6863 [218]
6864 .[172][172][172] MALMODUS
6865 XM [178]RE[170]10:YM [178]UN[171]42
6866 [139] YM[179]YZ[170]70[170]CY [167] YM[178]YZ[170]70[170]CY
6867 [217] XM,YM,XM[170]97,YM[170]42
6870 [235] XM[170]1,YM[170]1,96,41
6872 [153] "LOAD";:[236] 3
6873 [153] "INVERTIEREN"
6874 [236] 3:[153] "(null)KTE SETZEN"
6875 [236] 3:[153] [199](15)"  LOESCHEN"
6876 [210] 0,24,1E3,24
6877 YA[178][245][170]5:XA[178][244][170]9
6878 MD$(0)[178]"AN ":MD$(1)[178]"AUS"
6880 ML[178]1:!MOWAE
6883 [215] SH$(AZ),XP,YP,1
6885 [219]:_E[181]RA
6999 :
7000 .FARBMENUE: R[178][249]
7010 [207] FARBEN
7020 L[178]76:[221] 20,R[172]8[170]11,L,130
7030 [153][199](15);
7040 [129]X[178]0[164]15
7050 [135] A$:[236] (L[171]3[171][251]A$))[173]2
7060 [153]A$:[130]
7070 [216] F(R)[170]1
7080 .FARBFR: [139] [249][178]0 [167]:[219]:[142]
7090 F(R)[178][249][171]1:!FAERBEN
7100 [216] [249],1:_FARBFR
7195 :
7200 .DISKMENUE: R[178][249]
7205 [139] F [167] [139] R[177]3 [167] [142]
7207 [139] CX[177]31 [167] FL[178]1:[219]
7210 [139] R[178]2 [167]:_S[128]EBEFEHL
7211 [139] R[178]3 [167]:_ZS[147]
7212 [139] R[178]4 [167]:_ZS[148]
7213 [139] R[178]5 [167]:_[213][148]
7214 [139] R[178]6 [167]:_[213][147]
7215 .[172][172][172] [206]
7227 [204]0:[151]53281,F(2):[151]646,F(3)
7230 [153]"LOAD";:[206] GN:[146]56320,16,16
7235 [204]:_[146]0
7250 :
7400 .S[128]EBEFEHL
7410 [221]0,100,320,48
7420 [233] 1,0:[237] 3:[236]3
7430 [153]"ASCLOPPY-PEEKEFEHLSTEXT:"
7435 [233]0,0
7440 [217] 4,14,313,25
7450 [236] 7:[237] 16:L[178]37:![133]
7465 [236] 100:[237] 34:!OK [176] CANCEL
7480 [139] OC[178]0 [167]:[219]:[142]
7490 [229]7,0:[159]9,GN,15,IP$
7510 [236] 75:E$[178][241]:[153] E$;
7515 [229]7,1:![146]1
7520 [139] [197](E$)[171]1 [176] FA[178]0 [167]:_NO[147]
7525 [139] [202](E$,21,2)[178]"00"[167]:_NO[147]
7530 IP$[178][202](IP$,3,16)
7540 [129] X[178]1 [164] FA
7550 [139] IP$[179][177]FL$(X) [167] [130]:_NO[147]
7560 [129] Y[178]X [164] FA
7570 FM%(Y)[178]FM%(Y[170]1):FL$(Y)[178]FL$(Y[170]1)
7580 [130]: FA[178]FA[171]1
7590 [237]34:[236]10:[153]"VALINTRAG AUS ASCONT-(null)ISTE IST GELOESCHT.";:![146]1:_NO[147]
7595 :
7600 .ZS[147]:FL[178]1:[219]:.[172][172][172]
7610 FH$[178]"":L[178]13:!ASKNAME
7620 M$[178]"R":![159] FILE
7626 [139] [197](E$)[178]0 [167]:_[147]!
7627 .ERR: [153]:[153]""E$
7628 .NOLO1:[229]7,1:![146]1:_NO[147]
7630 .[147]!
7635 [161]#9,A$,A$
7640 [161]#9,A$:XC[178][198](A$[170][199](0))
7650 [139] XC[177]40 [167]:_NO[147]
7660 [161]#9,A$:YC[178][198](A$[170][199](0))
7670 [139] YC[179]3 [176] YC[177]40 [167]:_NO[147]
7675 [161]#9,A$:[161]#9,A$
7680 [237] 25:[236] 30:!NEUZEI1
7690 [139] OC[178]0 [167]:_NO[147]
7695 [229]7,0
7700 [129] X[178]0 [164] 95
7710 [161]#9,A$:ZL(X)[178][198](A$[170][199](0))
7720 [130]: .ZEI[171]LAENGEN LESEN
7730 [129] X[178]0 [164] 191
7740 [161]#9,A$:[130]:.ADR. UEBERLESEN
7750 [129] X[178]0 [164] 95
7757 [139] ZL(X)[178]0 [167]7810
7760 [158] 23465,ZL(X),SH$(X)
7810 [130]
7820 !E[181]RA:!VERGROE
7830 .NO[147]:[219]
7835 [160]9:[142]
7837 :
7840 .ZS[148]:.[172][172][172]
7842 FH$[178][201]([196](CY[170]101),2)[170]"."
7844 L[178]10:!ASKNAME:IP$[178]FH$[170]IP$
7846 [224] 0,20,1E3,1E3,32
7847 [236] 50:[237] 50:!OK [176] CANCEL
7848 [139] OC[178]0 [167]:_NO[147]
7856 [237] 23:[236] 8
7860 AD[178]3[172]96:MX[178]0:[153]"(null)EICHEN:"
7863 [129] X[178]0 [164] 95
7870 [158] 23456,SH$(X):ZL(X)[178][194](167)
7875 [139] X[178]32 [167] ZL(X)[178][181](CX[172].7)
7880 AD(X)[178]AD: [139] ZL(X)[178]0 [167]:_PCOD
7885 [158] 23459,ZL(X),SH$(X)
7887 AD[178]AD[170][194](252)[170]256[172][194](253)
7890 .PCOD: [153]"ON LENODE:"X;
7891 [153]" PEEKREITE:"ZL(X)"CMD "
7893 [139] ZL(X)[177]MX [167] MX[178]ZL(X)
7894 [130]
7900 M$[178]"W":![159] FILE
7902 [139] [197](E$) [167]:_ERR
7904 [152]9,[199](AD[175]255);
7905 [152]9,[199](AD[173]256);
7906 [152]9,[199](MX);[199](CY[170]1);
7907 [152]9,[199](0);[199](0);
7908 [129] X[178]0 [164] 95
7910 [152]9,[199](ZL(X));:[130]
7912 [129] X[178]0 [164] 95
7914 [152]9,[199](AD(X)[175]255);:[130]
7916 [129] X[178]0 [164] 95
7918 [152]9,[199](AD(X)[173]256);:[130]
7920 [224] 0,20,1E3,1E3,32
7925 [237]25:[153]" (null)EICHEN WERDEN"
7930 [153]" ABGESPEICHERT."
7935 [129] X[178]0 [164] 95
7937 [215] SH$(X),155,35,1
7938 [139] ZL(X)[178]0 [167]:_WEITER
7939 [158] 23462,ZL(X),SH$(X)
7940 .WEITER: [130]
7945 [224] 155,35,200,80,32
7950 [160]9
7952 E$[178][241]:[237][245][170]6:[153][163]5)E$
7953 [139] [197](E$) [167]:_NOLO1
7954 [139] FA[178]0 [167] X[178]1:[137] 7993
7955 [129] X[178]1 [164] FA
7960 [139] IP$[178]FL$(X) [167]:_NEU[195]
7965 [130]
7970 [129] X[178]1 [164] FA
7975 [139] AD[177]FM%(X) [167] [130]
7980 [129] Y[178]FA [164] X [169][171]1
7985 FM%(Y[170]1)[178]FM%(Y):FL$(Y[170]1)[178]FL$(Y)
7990 [130]
7993 FL$(X)[178]IP$:FA[178]FA[170]1
7994 .NEU[195]: FM%(X)[178]AD
7995 [153]"  (null)EUER VALINTRAG"
7996 [153]"  IN ASCONT-(null)ISTE.";
7997 _NOLO1
7999 :
8000 .MENUEFRAG:.LEISTE ABFRAGEN
8020 [139] [253][177]8 [167] [142]
8030 [129] P[178]1 [164] MN
8040 [139] [240]PL(P),0,PR(P),8)[167]8060
8050 [130]:[142]
8060 [224] PL(P),0,PR(P),7
8090 [221] PL(P),8,LM(P)[170]10,AN(P)[172]8[170]2
8092 [153]:[153] [199](14)[199](15)"";
8093 [129] Y[178]1 [164] AN(P): [236]3
8094 [153] MN$(P,Y):[130]
8100 [216]:[137]8120
8110 .FRAGLOOP: [216] [249],1
8120 [139] [249][178]0 [167]:_MENUEZU
8125 FL[178]0 :.PD[171]FLAG
8130 !(MJ$(P)):.[172][172][172] FKT. AUFRUFEN
8135 [229]7,1:[139] FL [167]:_MZU
8140 _FRAGLOOP
8160 .MENUEZU:[219]
8170 .MZU: [224] PL(P),0,PR(P),7
8180 [142]
8190 :
8200 .[146]1:[139][246][178]0[167]:_[146]1
8220 .[146]0:[139] [246] [167]:_[146]0
8230 [142]
8295 :
8300 .[133]:.ERSETZT [133][171]BEFEHL
8305 [151]198,0
8310 [153][199](15)[199](12);
8320 [129]X[178]0[164] L:.$[171]LAENGE
8330 IP$(X)[178]" "
8340 [130]:.  [174] [150]AULT
8350 [151]12[172]16[170]12,0:.CURS[176] AN
8360 PS[178]0:.CURS[176][185].
8370 .INPU
8380 [161]A$:[139]A$[178]""[167]8380
8390 [139]A$[179][177]""[167]:_CRSRLE
8400 [139] PS[178]L [167]:_INPU
8410 [236] [244][170][251]IP$(PS)):PS[178]PS[170]1
8420 _INPU
8430 .CRSRLE:[139]A$[179][177][199](20)[167]:_[153]
8440 [139] PS[178]0 [167] :_INPU
8450 PS[178]PS[171]1:[236] [244][171][251]IP$(PS))
8470 [153]"  ";: [236] [244][171][251]"  ")
8475 _INPU
8480 .[153]
8485 [139][198](A$)[178]13[167]:_AUSGABE
8487 [139] PS[178]L [167]:_INPU
8490 [139]([198](A$)[175]127)[179]32[167]:_INPU
8500 [153]A$;:IP$(PS)[178]A$:PS[178]PS[170]1
8510 _INPU
8520 .AUSGABE
8530 IP$[178]"":[129]X[178]0[164]PS[171]1
8540 IP$[178]IP$[170]IP$(X)
8560 [130]:[151]12[172]16[170]12,1
8570 [142]
8590 :
8600 .OK [176] CANCEL: [229]7,1:![146]0
8610 X1[178][244]:Y1[178][245]
8620 [153]"  (null)(null)  ";
8630 X2[178][244]:Y2[178][245]
8640 [217] X1[171]2,Y1[171]2,X2[170]2,Y2[170]8
8650 [236] [244][170]20
8660 [153]"ATNPEEKPEEK(null)(null)LENLEFT$";
8670 [217] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
8675 [224] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
8680 [223] SP,X1[170]4,Y1[170]4
8685 .BLINK
8690 [224] X2[170]18,Y2[171]2,[244][170]2,Y2[170]8
8692 [224] X1[171]2,Y1[171]2,X2[170]2,Y2[170]8
8695 [129] X[178]1 [164] 140
8697 [139] [246] [167]:![146]0:[137] 8700
8698 [130] :_BLINK
8700 OC [178] [240]X1,Y1,X2,Y2[170]8)
8705 [224] X1[171]2,Y1[171]2,[244][170]2,Y2[170]8,32
8710 [142]
8720 :
8750 .ASKNAME:.FUER ZS[147] UND [148]
8780 [221]60,90,208,88
8790 [237] 6:[153]" (null)(null)-(null)AME : "FH$;
8800 [217] 0,0,300,19
8810 _[133]
8820 .[159] FILE: SP$[178]"             "
8830 IP$[178][200](IP$[170]SP$,13)[170]".SH"
8835 [229]7,0
8840 [159]9,GN,2,IP$[170]",S,"[170]M$:E$[178][241]
8845 [237] [245][171]3:[142]
8850 :
8852 .KAESTCHEN
8854 Y[178][181](C[173]6):X[178]10[172](C[171]Y[172]6)
8856 [224]X,Y[172]10,X[170]9,Y[172]10[170]9
8858 [142]
8859 :
8861 .ZEIWAHL: FL[178]1:[219]
8865 [221] 8,15,64,174
8870 [153]:[153][199](6): [237]1
8875 [153]" (null)VALRIGHT$LENLEFT$VAL(null)(null)(null)(null)(null)ATN(null)"[199](7)
8880 [210] 0,9,1E3,9
8885 [235] 10,27,61,161
8890 [215] ZV$,1,1
8910 C[178]AZ:!KAESTCHEN
8915 [223] SP,X[170]5,Y[172]10[170]5
8920 .WA:[139] [240]1,1,1E3,1E3) [167]8940
8922 [219]:!VERGROE
8923 .[150]AULTMODUS: [218]
8925 [235] XM[170]1,YM[170]1,96,25
8930 [224] 0,ML[172]8[171]8,1E3,ML[172]8[171]1
8935 ML[178]1:_MOWAE
8940 [139] [246][178]0 [167]:_WA
8941 CN[178][181]([252][173]10)[170]6[172][181]([253][173]10)
8942 [139] CN[178]AZ [167]:_WA
8943 [139] CN[177]95 [167] CN[178]95
8945 C[178]AZ:!KAESTCHEN
8950 C[178]CN:!KAESTCHEN:AZ[178]C
8955 !E[181]RA:_WA
8965 :
8970 .E[181]RA: [218]
8973 [235] XZ,YZ,100,CY[170]70
8976 [233]0,1:[153][199](12);
8979 [236] 5: [237] 5
8981 [139] AZ[179]32 [167]C[178]AZ[170]64:_ZEI
8984 [139] AZ[179]64 [167]C[178]AZ   :_ZEI
8987 C[178]AZ[170]128
8990 .ZEI:[153]"(null)EICHEN: "[199](C)
8993 [236] 13: [237] 25
8995 [153]"LENODE:    CMDCMDCMD"AZ;
8997 [235] 0,0,320,200
8998 [215] SH$(AZ),XP,YP,1
9000 [219]:[142]
9001 :
9003 .MENUEDATEN:[131] 4,7
9010 [131] "STR$RIGHT$(null)(null)","DISKMENUE",4
9020 [131] "STR$IRECTORY","PEEKEFEHL SENDEN"
9030 [131] "ASCONT LADEN"
9040 [131] "ASCONT ABSPEICHERN"
9045 :
9050 [131] "ASCATN(null)PEEKVAL(null)","FARBMENUE",4
9060 [131] "(null)FEIL","LEFT$INTERGRUND"
9070 [131] "(null)CHRIFT","(null)AHMEN"
9075 :
9080 [131] "VALSTR$RIGHT$(null)(null)(null)","EDITMENUE",6
9082 [131] "(null). AUSWAEHLEN"
9084 [131] "(null)FEILGESCHW."
9086 [131] "(null). UEBERTRAGEN"
9088 [131] "(null)EUER ASCONT"
9090 [131] "CHR$ROESSE AENDERN"
9092 [131] "(null)RG VERLASSEN"
9095 :
9098 [131] "(null)VALRIGHT$LENLEFT$VAL(null)","ZEICHMENUE",7
9100 [131] "LOESCHEN","INVERTIEREN"
9103 [131] "ASCILL-ATNLGO"
9110 [131] " SHIFTEN/XR"," SHIFTEN/YR"
9120 [131] "SPIEGELN/XR","SPIEGELN/YR"
9152 :
9155 .FARBEN
9157 [131] SCHWARZ,WEISS,ROT,TUERKIS
9160 [131] "VIOLETT",GRUEN,BLAU,GELB
9163 [131] "ORANGE",BRAUN,HELLROT
9165 [131] GRAU 1,GRAU 2,HELLGRUEN
9167 [131] HELLBLAU,GRAU 3
9170 :
9175 .V[176]B:.[172][172][172]
9185 [204] 0,0,0
9190 [134] FL$(99),FM%(99)
9193 [159]1,GN,2,"FONT-LISTE,S,R"
9196 [132]1,FA
9200 [129] X[178]1 [164] FA
9203 [132]1,FM%(X),FL$(X):[130]
9206 [160] 1
9218 :
9225 [153]"LOAD";:[129] X[178]0 [164] 95
9227 Y[178] [181](X[173]6): [237] Y[172]10[170]1
9229 [236] (X[171]Y[172]6)[172]10[170]1
9231 [139] X[179]32 [167] [153][199](X[170]64);:[130]
9233 [139] X[179]64 [167] [153] [199](X);:[130]
9235 [153] [199](X[170]128);:[130]
9237 [213] ZV$,1,1,58,158
9240 :
9241 [207] MENUEDATEN
9244 [135] MN,MX:[134] MN$(MN,MX),MJ$(MN)
9247 [134] PL(MN),PR(MN),AN(MN),LM(MN)
9250 [153]:[153]"LOAD     ";
9253 [129] X[178]1 [164] MN
9256 [135] MN$(X,0),MJ$(X),AN(X)
9259 PL(X)[178][244]:[236] [244][170]4
9262 [153]MN$(X,0);
9265 [236] [244][170]4:PR(X)[178][244]
9268 [129] Y[178]1 [164] AN(X)
9271 [135] MN$(X,Y)
9274 L[178] [251]MN$(X,Y))
9277 [139] L[177]LM(X) [167] LM(X)[178]L
9280 [130]:[130]
9340 :
9390 [210] 0,8,319,8
9400 [224] 0,9,320,200,223
9405 F(4)[178]0:F(3)[178]1:F(2)[178]11:F(1)[178]7
9430 SP[178]45: [223] SP,PL(3)[170]10,5
9440 F[178]1:.FLAG, OB EDI[164]R DA IST
9450 [134]IP$(40):.FUER [133]
9525 AZ[178]1:. AKTUELLES ZEICHEN
9526 .ZEI[171][213]S,ZEI[171]LAENGEN,DATENADR.
9528 [134] SH$(95),ZL(95),AD(95)
9530 :
9531 .FAERBEN
9532 [218]:[235] 0,0,320,200
9534 [204] F(4),F(3),F(2)
9536 [228]0,0,319,7,F(3),F(4)
9538 [229] 6,1,F(3):[229] 7,1,F(1)
9540 [219]:[142]