0 POKE55,255:POKE56,91:CLR:SYS57812"3D-GRAFIK   .OBJ",8,1:GOTO5000
1 POKE214,Y:POKE211,X:SYS58640:RETURN
2 :POKE198,0:A=0:X=6:Y=4:GOSUB1:PRINT"[158][192][153][192]>",,"<[153][192][158][192]"
3 GETA$:IFA$=""ANDA<6THENX=6:Y=4+2*A:GOSUB1:PRINT"   ",,"   ":A=A+1
4 IFA$="[145]"ANDA>0THENX=6:Y=4+2*A:GOSUB1:PRINT"   ",,"   ":A=A-1
5 IFA$>"0"THENIFA$<"8"THENX=6:Y=4+2*A:GOSUB1:PRINT"   ",,"   ":A=VAL(A$)-1
6 IFA$=CHR$(13)THENA=A+1:RETURN
7 GOSUB29:X=6:Y=4+2*A:GOSUB1:PRINT"[158][192][153][192]>",,"<[153][192][158][192]":GOTO3
8 A$="":A=0:PRINT"[164][157]";
9 GETB$:IFB$="_"THENRUN1000
10 IFB$="^"ORB$=" "ORB$="$"THENIFA<=MATHEN14
11 IFB$=CHR$(13)THENPRINT" ":RETURN
12 IFB$=CHR$(20)ANDA>0THENA=A-1:A$=LEFT$(A$,A):PRINT"[157]  [157][157][164][157]";:GOSUB30:GOTO9
13 IFB$<"("ORB$>"Z"ORA>MAORB$="@"ORB$="?"ORB$=":"ORB$=";"ORB$=" "THEN9
14 GOSUB30:A$=A$+B$:A=A+1:PRINTB$"[164][157]";:GOTO9
15 A$="":F=0:PRINT"[164][157]";:POKE198,0
16 GETB$:IFB$="_"THENRUN1000
17 IFB$="."ORB$="-"THENIFF<31THEN21
18 IFB$=CHR$(13)THENPRINT" ":RETURN
19 IFB$=CHR$(20)THENIFF>0THENGOSUB30:F=F-1:A$=LEFT$(A$,F):PRINT"[157]  [157][157][164][157]";:GOTO16
20 IFB$<"0"ORB$>"9"ORF>30THEN16
21 GOSUB30:A$=A$+B$:F=F+1:PRINTB$"[164][157]";:GOTO16
22 GETA$:IFA$=""THEN22
23 GOSUB30:IFA$="J"ORA$="Y"ORA$="[202]"ORA$="[217]"THENPRINT"[202]A !!";:A$="J":RETURN
24 IFA$="N"ORA$="[206]"THENPRINT"[206]EIN !!";:A$="N":RETURN
25 GOTO22
26 POKE144,0:POKE780,8:SYS63048:IFST=-128THENRETURN
27 PRINT"[147]":SYS49253:POKE198,0:WAIT198,1:POKE198,0:RETURN
28 RESTORE:S=54272:FORT=0TO6:READE:POKES+T,E:NEXT:POKES+24,15:POKES+4,16:RETURN
29 IFA$=""THENRETURN
30 POKE54276,17:POKE54276,16:RETURN
31 DATA,99,,8,,0,0
1000 POKE657,128:POKE53280,1:POKE53281,1:PRINT"[147]     [156]>> 3[196]-[199]RAFIK-[199]ENERATOR [214]1.0 <<
1001 X$[178]"SIN(X)"
1002 [150][165]X(X)[178][191](X)
1010 [141]28:[141]30
1020 [153],"1) ASCUNKTION EINGEBEN"
1030 [153],"2) CHR$RAFIK BERECHNEN"
1040 [153],"3) CHR$RAFIK ZEIGEN"
1050 [153],"4) CHR$RAFIK SICHERN"
1060 [153],"5) CHR$RAFIK LADEN"
1070 [153],"6) STR$IRECTORY"
1080 [153],"7) (null)ROGRAMM BEENDEN"
1100 X[178]0:Y[178]21:[141]1:[153]"F(X) = "X$
1110 X[178]0:Y[178]24:[141]1:[153]"  VONCLR (null)ARIO (null)OACK FUER (null)AGIC-STR$ISK 1994":MA[178]64
1120 [141]2:[145]A[137]1200,1500,2000,2100,2200,2500,2400
1200 [153]"LOAD     CLR>> 3STR$-CHR$RAFIK-CHR$ENERATOR (null)1.0 <<"
1201 X[178]0:Y[178]23:[141]1:[153]"(null)IE KOENNEN BIS ZU 3 (null)ARAMETER ( A,B,C )BENUTZEN."
1210 [153]"PEEKITTE GEBEN (null)IE NUN DIE ASCORMEL FUER RIGHT$HREASCUNKTION AN:"
1220 [153]"ASC((null)) = "X$"TOCMD";:A$[178]X$:A[178][195](A$):[141]9:X1$[178]A$:[153]
1250 [153]"LOAD1001X$="[170][199](34)[170]X1$[170][199](34)
1270 [153]"1002DEFFNX(X)="X1$
1290 [153]"RUN1000";
1300 [129]T[178]0[164]4:[151]631[170]T,13:[130]:[151]198,5:[128]
1500 [153]"LOAD     CLR>> 3STR$-CHR$RAFIK-CHR$ENERATOR (null)1.0 <<":FL[178]0
1510 [153]"PEEKITTE GEBEN (null)IE DEN (null)ERT FUER ATN AN.     >";:[141]15:A[178][197](A$)
1520 [153]"PEEKITTE GEBEN (null)IE DEN (null)ERT FUER PEEK AN.     >";:[141]15:B[178][197](A$)
1530 [153]"PEEKITTE GEBEN (null)IE DEN (null)ERT FUER LEN AN.     >";:[141]15:C[178][197](A$)
1560 [153]"PEEKITTE GEBEN (null)IE DEN LINKEN (null)AND (null)1 AN.  >";:[141]15:X1[178][197](A$)
1570 [153]"PEEKITTE GEBEN (null)IE DEN RECHTEN (null)AND (null)2 AN. >";:[141]15:X2[178][197](A$)
1571 [139]X1[177][178]X2[167][153]"ON                                       ONON":[137]1570
1580 [153]"PEEKITTE GEBEN (null)IE DEN UNTEREN (null)AND (null)1 AN. >";:[141]15:Y1[178][197](A$)
1590 [153]"PEEKITTE GEBEN (null)IE DEN OBEREN (null)AND (null)2 AN.  >";:[141]15:Y2[178][197](A$)
1591 [139]Y1[177][178]Y2[167][153]"ON                                       ONON":[137]1590
1610 [153]"(null)OLL DER PEEKILDSCHIRM ABGESCHALTET WERDEN ( MID$/(null) ) ?   ";:[141]22:[153]
1620 F1[178]59:[158]49229:[139]A$[178]"J"[167]F1[178]11
1630 [153]"(null)OLLEN (null)IE EINE RECHTECKIGE CHR$RUNDFLAECHE( MID$/(null) ) ?   ";:[141]22
1635 [150][165]E(Q)[178][171][181]([186](13456[171]D[172]D)[170].5):[139]A$[178]"J"[167][150][165]E(Q)[178][171]116
1640 [158]49184,5,1:[158]49152
1650 C1[178]320[173](X2[171]X1):C2[178]C1[172]X1:C3[178]200[173](Y2[171]Y1):C4[178]C3[172]Y1:C5[178]319:C6[178][171]1:C7[178]199
1655 [153]"LOADG(null)3000";:[151]631,13:[151]198,1:C8[178](X2[171]X1)[173]320
1660 [139][171]C2[179]C5[167][139][171]C2[177][178].[167][158]49553,[171]C2
1670 [139](200[170]C4)[179]200[167][139](200[170]C4)[177][178]0[167][158]49585,200[170]C4
1680 [129]D[178]X1[164]X2[169]C8:Y[178][165]X(D):X3[178][181](C1[172]D[171]C2):Y3[178][181](200[171]C3[172]Y[170]C4)
1770 [139][194](653)[178]2[167][153]"LOAD":[158]49168:[137]1000
1775 [139]Y3[177]C7[176]Y3[179].[167][130]:[137]1785
1780 [158]49370,X3,Y3:[130]
1785 [151]53280,5:[151]198,0:[146]198,1:[158]49229:[161]A$:[139]A$[179][177]"_"[167]4000
1790 [153]"LOAD":[158]49168:[137]1000
1800 [150][165]E(Q)[178][171][181]([186](13456[171]L1[172]L1)[170].5)
2000 [158]49184,5,1:[158]49152:H[178]1:V[178]5
2010 [161]A$:[139]A$[178]""[167]2010
2020 [139]A$[178][199](133)[167]H[178](H[170]1)[175]15
2030 [139]A$[178][199](136)[167]V[178](V[170]1)[175]15
2035 [139]A$[178]"_"[167][153]"LOAD":[158]49168:[137]1000
2040 [158]49184,V,H:[151]53280,H:[137]2010
2100 [153]"LOAD     CLR>> 3STR$-CHR$RAFIK-CHR$ENERATOR (null)1.0 <<":MA[178]10
2110 [153]"PEEKITTE GEBEN (null)IE DEN (null)AMEN EIN, UNTER"
2120 [153]"WELCHEM (null)IE DIE 3STR$-CHR$RAFIK SPEICHERN"
2130 [153]"MOECHTEN.  >";:[141]8
2133 [139][200](A$[170]" ",1)[178]"$"[167][141]26:[137]2100
2140 A$[178][200](A$[170]"           ",11)[170]".GRAF":[153]"ON"A$
2150 [158]57812A$,8:[151]251,0:[151]252,96:[151]780,251:[151]781,64:[151]782,127
2160 [158]65496:[137]2300
2200 [153]"LOAD     CLR>> 3STR$-CHR$RAFIK-CHR$ENERATOR (null)1.0 <<":MA[178]10
2210 [153]"PEEKITTE GEBEN (null)IE DEN (null)AMEN EIN, UNTER"
2220 [153]"WELCHEM (null)IE DIE 3STR$-CHR$RAFIK GESPEICHERT"
2230 [153]"HABEN.  >";:[141]8
2233 [139][200](A$[170]" ",1)[178]"$"[167][141]26:[137]2200
2240 A$[178][200](A$[170]"           ",11)[170]".GRAF":[153]"ON"A$
2250 [158]57812A$,8:[151]780,0:[151]781,0:[151]782,96:[158]65493
2300 [151]144,0:[151]780,8:[158]63048
2310 [139]ST[178][171]128[167]A[178]2:A$[178]"DEVICE NOT PRESENT":B[178]0:C[178]0:[137]2330
2320 [159]1,8,15:[132]1,A,A$,B,C:[160]1
2330 [153]""A", "A$" ,"B","C:[151]198,0:[146]198,1:[137]1000
2400 X[178]30:Y[178]16:[141]1:[153]"( MID$/(null) )"
2410 [161]A$:[139]A$[178]""[167]2410
2420 [139]A$[178]"J"[176]A$[178]"Y"[176]A$[178]"MID$"[176]A$[178]"(null)"[167][129]T[178]0[164]9:[151]2049[170]T,0:[130]:[153]"LOAD":[158]64738
2430 [141]30:[139]A$[178]"N"[176]A$[178]"(null)"[167]1000
2440 [137]2410
2500 [141]26:[137]1000
3000 [153]"LOAD     CLR>> 3STR$-CHR$RAFIK-CHR$ENERATOR (null)1.0 <<":[158]49168
3010 [153]"PEEKEI DER (null)ECHNUNG NACH RIGHT$HRER ASCORMEL TRAT
3020 PRINT"EIN [198]EHLER AUF. [213]NTERSUCHEN [211]IE DIESE"
3030 PRINT"BITTE AUF EVENTUELLE [198]EHLER."
3040 PRINT"[212]ESTEN [211]IE AUCH, OB DIESE [199]LEICHUNG"
3050 PRINT"IMMER DEFINIERT IST, SPEZIELL AN DIESER"
3060 PRINT"[211]TELLE:":PRINT,"[216] =";:IFFL=0THENPRINTD
3065 IFFL=1THENPRINTFNW(.)
3080 POKE198,0:WAIT198,1:GOTO1000
4000 POKE53265,F1:E=116/(X2-X1):F=116/(Y2-Y1):W=SQR(.125):H=-116:I=116
4001 POKE631,13:POKE198,1:POKE56325,255:FL=1:M=Y1:N=Y2:O=X1:P=X2:Q=653:R=49481
4005 DEFFNW(G)=O+SQR(D*D+J*J)/E:DEFFNA(G)=G+I+W*(D+I)
4007 DEFFNB(G)=F*(N-L)+W*(D+I)
4010 FORD=HTOISTEP4:K=FNE(.):FORJ=KTO.:L=FNX(FNW(.)):IFL<MTHENL=M:GOTO4050
4034 IFL>NTHENL=N
4050 IFPEEK(Q)=2THENPRINT"[147]":SYS49168:POKE56325,58:GOTO1000
4080 Y=FNB(.):SYSR,FNA(J),Y:SYSR,FNA(-J),Y:NEXT:NEXT
4090 POKE53265,59:POKE53280,5:POKE198,0:WAIT198,1:SYS49168:POKE56325,58:GOTO1000
5000 POKE780,0:SYS65493:POKE788,123:GOTO1000