       Files       Edit       Run       Compile       Options       Setup
+---------------- Editor ----------------++--------------- Trace --------------+
Ś  Line 51    Col 1     C:\P\PDC\PRIM.PROŚŚCALL:    oszthato(11,2,_)           Ś
ŚCLAUSES                                  ŚŚ                4>11Ś
Ś                                        ŚŚFAIL:    oszthato(11,2,_)           Ś
Ś%Ismetles                               ŚŚREDO:    oszthato(11,2,_)           Ś
Ś                                        ŚŚ         1=0Ś
Śfor(Mettol,Mettol).                     ŚŚFAIL:    oszthato(11,2,_)           Ś
Śfor(Mettol,Futo) if                     ŚŚREDO:    p(_)                       Ś
Ś    Mettol1=Mettol+1,                   ŚŚRETURN:  *p(3)                      Ś
Ś        for(Mettol1,Futo).              ŚŚCALL:    oszthato(11,3,_)           Ś
Ś%Kovetkezo primszam keresese            ŚŚ         9>11                       Ś
Ś%Oszthato valamelyik elozo primszammal, ŚŚFAIL:    oszthato(11,3,_)           Ś
Śkovetkezo(12) if trace(off),fail. %NyomkŚŚREDO:    oszthato(11,3,_)           Ś
Śkovetkezo(N) if                         ŚŚ         2=0Ś
Ś    p(P),oszthato(N,P,Milyen),          ŚŚFAIL:    oszthato(11,3,_)           Ś
Ś    !,                                  ŚŚREDO:    p(_)                       Ś
Ś    tedd_el(Milyen,N).                  ŚŚRETURN:  *p(5)                      Ś
Śkovetkezo(N) if % Nincs tobb primszam, vŚŚCALL:    oszthato(11,5,_)           Ś
Ś    tedd_el(prim,N).                    ŚŚ         25>11Ś
Ś                                        ŚŚRETURN:  oszthato(11,5,prim)        Ś
Ś%Oszthato-e a szam a primszammal?       ŚŚCALL:    tedd_el(prim,11)           Ś
Śoszthato(N,P,prim     ) if              ŚŚ                                    Ś
Ś    P*P>N,!.               %Tul nagy a pŚ+------------------------------------+
Śoszthato(N,P,osszetett) if              Ś+-------------- Dialog --------------+
Ś    (N mod P)=0.           %Igen.       ŚŚMeddig?100                          Ś
Ś                                        ŚŚ2       3       5       7       11Ś
Ś%Tedd el a szamot, ha prim!             ŚŚ13      17      19      23      29  Ś
Śtedd_el(osszetett,_).                   ŚŚ31      37      41      43      47Ś
Śtedd_el(prim,N) if assertz(p(N)),write(NŚŚ53      59      61      67      71Ś
Ś                                        ŚŚ73      79      83      89      97Ś
ŚGOAL                                                                         ŚŚ                                    Ś
Ś    write("Meddig?"),                   ŚŚ                                    Ś
Ś    readint(Meddig),                    ŚŚMeddig?100Ś
Ś    retractall(p(_)), %Biztos, ami biztoŚŚ2       3       5       7       11  Ś
Ś    for(2,N),                           ŚŚ13      17      19      23      29Ś
Ś        kovetkezo(N),                   ŚŚ31      37      41      43      47Ś
+----------------------------------------+Ś53      59      61      67      71Ś
+---------------- Message ---------------+Ś73      79      83      89      97Ś
ŚExecute program                         ŚŚ                                    Ś
ŚC:\P\PDC\PRIM.PRO is saved on disk      ŚŚ                                    Ś
ŚCompiling C:\P\PDC\PRIM.PRO to memory   ŚŚMeddig?100Ś
ŚCompiling C:\P\PDC\PRIM.PRO to memory   ŚŚ2       Meddig?100Ś
Śp                                       ŚŚ2       3       Meddig?100Ś
ŚExecute program                         ŚŚ2       3       5       7Ś
ŚCompiling C:\P\PDC\PRIM.PRO to memory   ŚŚ                                    Ś
Śp                                       ŚŚ                                    Ś
ŚExecute program                         Ś+------------------------------------+
+----------------------------------------+______________________________________
F1-Help F2-Save F5-Zoom  F10-Step  Shift-F10-Resize  Alt-T-Trace on/off  Esc-End