100 PROGRAM "Terulet.bas"
  105 ! Ez a program kiszamitja egy kor
  110 ! keruletet ill. teruletet
  120 ! -------------------------------
  130 LET A$="A kor "
  140 LET B$="Add meg a kor sugarat:"
  150 NUMERIC SUGAR,TERULET,KERULET
  160 DO 
  170   CLEAR SCREEN
  180   PRINT AT10,10:"1. TERULET"
  190   PRINT AT11,10:"2. KERULET"
  200   PRINT AT12,10:"3. BEFEJEZES"
  210   DO 
  220     PRINT AT15,10:"Add meg a valasztasod"
  230     INPUT AT16,10,PROMPT"szamat ":SZAM
  240   LOOP WHILESZAM<1ORSZAM>3ORSZAM<>INT(SZAM)
  250   CLEAR SCREEN
  260   IF SZAM=1THEN
  270     INPUT AT10,1,PROMPTB$:SUGAR
  280     LET TERULET=PI*SUGAR^2
  290     PRINT AT15,5:A$;"terulete:";
  300     PRINT AT16,4:TERULET
  310     CALL WAIT
  320   ELSE IF SZAM=2THEN
  330     INPUT AT10,1,PROMPTB$:SUGAR
  340     LET KERULET=2*PI*SUGAR
  350     PRINT AT15,1:A$;"kerulete:"
  360     PRINT AT16,1:STR$(KERULET)
  370     CALL WAIT
  380   END IF 
  390 LOOP WHILESZAM<>3
  400 END 
  490 DEF WAIT
  495   PRINT AT22,2:"Nyomj meg egy gombot!"
  500   DO 
  510     GET KEY$
  520   LOOP UNTILKEY$<>""
  530 END DEF