Sayfa 14

PAUSE 2 38 PRİNT "3 “DOGRU VERİ YI YAZIN" DÜŞ RETURN PAUSE 3Ö:REM REM REM MENU #* REM PRİNT E N Üst" PRİNT ATC4,3)*BILGİ GIRISI PRİNT ATC4,S) “VERİLERİ DÜZELTME PRİNT LİSTE İCİNCİSSPAC PRİNT E)FS* PRİNT PACE PRİNT TARİHLERİ ICI NC9SPACE YT" PRİNT “DERS PRİNT PRİNT BILGI KAYDETME <1ASPACE PRİNT BİLGİSAYARA YÜKLEME PRİNT REM REM #& TEYBE KAYDETME #4 REM PRİNT “VERİLER TEYBE KAYDEDİLECEKTİR.. PRİNT "BIR BARDAK CAY ICMEYE PRİNT BİTİ NCE HABER VERECEGİM" GOSUB 4918 PRİNT H

AT(4,9)"TEK LTSTE ICIİNCİBSPAC

PRİNTWİ FÖR Besi TO BG ESCB) PRİNT# THE Hİ Hİ Wİ,VASCB) NEXT 8 ©LOSE 1 PRİNT RILER TEYBE KAYDEDİLMİSTİR* PRİNT "PROGRAMDAN CIKMAK ICIN PRİNT “MENÜYE DON MEK ICİN Fi” POKE 54276,128 GET TS11F THEN 3368 IF THEN POKE 54276,â1 38

IF T&«CHRSC136) 3408 3368 PRİNT GÜLE... * END GOTO 301REM REM REM #& BILGISAYARA YÜKLEME REM PRİNT "<CLR)>" PRİNT TEYPT EKİ VERİLER PRİNT LİRTGHT) * YÜKLENECEK PRİNT C3SPACE TAKIN.” PRİNT XX'E GETİRİN. * PRİNT *<3DOWN>CARIGKT> "3 “BASLAMAK I CIN F7 TUSUNA BASIN.” PRİNT "YÜKLEME Bİ PRİNT SİZE H ABER VERECEGİM." PRİNT H GET RTS-"* THEN 3528 IF THEN 3568 IF THEN 38 GOTO 3528 ÖPEN FOR TO BG 1 TNPÜTN 1 1 İL 1 1 1. Vas 1, NEXT B CLOSE 1 PRİNT *<CLR>* PRİNT "VERİLER Bİ LGISAYARA YÜKLENMİSTİR" POKE 54276,128 PAUSE 54276,8 GÖTÜ 301REM REM REM *& DAHA ONCE YAZILMIS MI? REM FOR TO BG IF TTs-BG THEN RETURN

IF THEN 3886 NEXT TT RETURN PRİNT >BU DERS DAHA ÖNCE KAYDEDİLDİĞSHİFT PRİNT BASKA B

PRİNT BASIN" GET THEN 3938 IF THEN 178

GBOTO REM *& FOR-NEXT'IİN DEVAMI