Sayfa 13

PRİNT AB(29)"TTTTTTT IF THEN PRİNT US: İNPUT G$CÜ):1F THEN 12140 IF THEN PRİNT "CBUP)*:60TÜ PRİNT THEN PRİNT "<UP>":60T0 | B125 IF THEN 182118 PRİNT BU KADARSA VERİN" GET K$:1F K$-"" THEN IF K&<>"S" THEN 12200 FOR Ulz1 TO NEXT PRİNT > TO LENCSTRECVİ)-13PRİNT "FT": PRİNT PRİNT BASIN" GET THEN GOT0 & PRİNT PRİNT FOR Nz0 TO 18:PRİNT PRİNT CER PRİNT "<HOME > "BASIFOR TO 16:PRİNT BC$:NEXT BB$ 30SPACE *

)"BDE/BE$ PRINT PRİNT "<3DOLİN) PRİNT PRİNT "<HOME PRİNT "<HOME U T C E 5S A B I<3SPACE)" PRİNT >" PRİNT "<CTRL-7>"BF$BE$ PRİNT "BE$: "BES PRINT BF$"<DOLN><ERİGHTİ<CTRL-3)CESPACE )—C2SPACE YE ÜLENT UNAL<SSPACE )<CTRL-7)" PRİNT "<CTRL-3)<HOME 13DOLİND< PRİNT PRİNT >" PRİNT HESABI (0) 1986<2SPACEYBULENT UNRL - BASLAMAK 1 CINCESPACE -" a "<ÜP) “LEFTSCH 1$,38)

FOR TO 20:GET THEN NEXT GOTO 20048

INPUT 158100 GIBİ IF WT$-"" THEN 20068 IF LENCUTS)<>6 THEN 28060 PRİNT 1 <RYSOFF YÜKLEMES Iİ