0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 DIM Y(227):POKE53280,0:POKE53281,0:POKE646,5:LA=54272+24:FL=1
20 SYS MEM,32,32:SYS SHOW ,0,0,7,1,0
25 SYS CLEAR:PRINT"[147]":SYS CH,8,8,0,0
26 FORI=0TO17:PRINT"                 [146]           [146]   ":NEXT
27 PRINT"////////////////////////////////////////"
28 SYS ZMEM,53248,1,0
31 SYS RE,0,0,95,41,1:SYS RE,1,1,94,40,1
34 SYS WR,20,18,"[202]UMPING":F=1:A=8:B=1:XP=0:F1=1:F2=1:XP=25
36 C=1
37 FORI=ATOBSTEP-B
40 FORX=-ITOISTEP.4
45 IFF=1THEN Y(C)=X*X+100-I*I+60
50 SYS SE,XP,Y(C)
55 IF Y(C)=160THENGOSUB280
60 XP=XP+F1:C=C+F2
63 IF C=0THENC=184
65 IF XP>=248ORXP<=24THENF1=-F1:GOSUB280
70 NEXT:NEXT
90 F=0
100 GOTO36
280 POKELA,15:POKELA,0:SYS SH,0,0,7,1,FL-1*SGN(F1):RETURN