Sayfa 28

DİR PRİNT TUSA BASIN...” GET AS:İF THEN tâğü 1270 PRİNT 1: DU So: PRİNT 1“ YPRİNT DOSYA THEN 1270 OPEN 6,8,15,“501**5D$:0LOBE (& ÖPEN İNPUTA7,AtCLOSE 7 İF ÜR As0 THEN PRİNT İSİMLİ SİLİNDİ.

1520 PRİNT “ZCLRSOİSK HATASI GET At:ı|F THEN 1520 S0TÖ 1270 PRİNT 1 DO 3 PRİNT ADİ CESPA CEM THEN "2 İNPUT NUMARASI DE

ÖPEN BLG, 15, 8 GÖTÜ 1270 REK REH ee GRAFİK ka HAFTALI

GET THEN 1780 İF TREN 1880 İF THEN 23 1780 PRİNT *<RVSON> 3 GR & PRİNT KODU ViP * VE THEN 1750 OPEN â ÖPEN 2,8,15:1NPUTA2,A:CLOSE 2 IF THEN 1970 İF Az&Z THEN PRİNT "<CLROBU TSİRDE BIR DÜSYA YOK 1“:END PRİNT “<CLR3DISK HATASİ END ÖPEN İF TRHSCO) INBUTAS, GOTÜ 1980 CLOSE PRİNT 1 & R AF UK 1: PRİNT PRİNT PRİNT

PRİNT - CİZGİ" PRİNT - CUBUK” PRİNT TAB(53)“F5 - ANA GET AKTIF THEN IF THEN Üs2:6070 2200

VE) *<RVSÖN> : GR PRİNT “<DOWNOKOD ERINT

THEN PRİNT "<DOUND<RVSON>

İNPUT 3000 YÖZ THEN YaZ FOR TÜV İF KACDDEB THEN İF TREN NEXT İ PRİNT TAHS(Sİ PRİNT ; PRİNT 1 PRİNT "<DOWN>FARKC2SPACE) 1" İNTCEBZ EK) FOR isi TO KİRES 11,0 LİNE 0,0,310,0,1 LİNE 196,1 LİNE 310,109,0,199,1 LİNE LİNE LİNE SA,28,64,199,1 FOR 3J<34 TÜ 199 15 FOR TO STER 15 PLOT NEXT ADE FOR TO 10 TEXT 2,180-(1540),D8,1,1,8 NEXT | TEXT TEXT ILİ B TEXT TEXT TEXT TEXT 235,2,EB$,1,1,8 TEXT 200,11, TEXT TEXT 1, 1,8 TEXT 235,20,FRKS,

| LİNE TEAM, İ NEXT | GET AS:İF THEN

PRİNT O iF THEN 2090 THEN FOR İ-8 TOY İF TREN İF EDÇİ)CEK THEN EKsEDİİ) NEXT | PRİNT “<DOUN>DONEM PRİNT