100 PROGRAM "Ar.bas"
  110 NUMERIC EP,UJAR
  120 DO 
  130   CLEAR SCREEN
  140   INPUT PROMPT"Ird be az arat: ":AR
  150   INPUT PROMPT"Ird be a szazalekos arengedmenyt: ":ESZ
  160   CALL SZAMLALO
  170   CLEAR SCREEN
  180   PRINT "A ";AR;" Ft arbol a ";ESZ;" engedmeny"
  190   PRINT EP;" Ft megtakaritast jelent."
  200   PRINT 
  210   PRINT "Az uj ar ";UJAR;" Ft lesz."
  220   PRINT 
  230   PRINT 
  240   INPUT PROMPT"Akarsz uj arakkal szamolni?":VALASZ$
  250 LOOP WHILEUCASE$(VALASZ$(1:1))="I"
  260 END 
  270 DEF SZAMLALO
  280   LET EP=(AR/100)*ESZ
  290   LET UJAR=AR-EP
  300 END DEF