Sayfa 11

PRİNT *DERSCSSPACE "| IF THEN 38 GOSUB 3838 PRİNT

INPUT THEN IF THEN INT IN” 239 PRİNT 1DSCBG)

PRİNT INPUT ES(BG) IF THEN 388

REM REM #8 TUM LİSTE #8 REM IF THEN PRİNT *<CLR)*160TO saa FOR Bal TO BG

PRİNT 1 IF THEN PRİNT *<3SPACE SORTİ <RYSON)"TDO PRİNT *<3SPACE S28 TD0)8 AND TOOCA.5 FOR TO GET Ni$ IF PRİNT B IF Püs8 THEN 588 PRİNT > <RVSO 608 PRİNT YÖK<F3>*16DTO 688 PRİNT SON IF PP>E7 AND

&&TESEKKÜR ##<RVSOFF>* IF THEN PRİNT ATC5,5)*<CTR

REM REM 2x İLK REM PRİNT KAC DERS ICİN AT<B,7) "KULLANILACAK " İNPUT DTM DIM DİM GISCADI,GESLAD) DIM DIM VADİ DIM VASCAN) RETURN REM REM ** DERS SAYISI KÜNTROLU REM İF THEN RETURN PRİNT “DAHA FA ZLA DERS GİREMEZSİNİZ" PAUSE 3 GOTO REM REM #& ONCEKİ NOT KONTROLU REM IF AND THEN PRİ

NT NOTUN OLABİLMESİ ICİ 1F AND THEN PRİNT RIGHTOBİR ÖNCEKİ NOTUNDA OLMASI GER SL RETURNEREM REM REM YAZMA REM PRİNT >< NOT DEFTERİ <F3)<DOMN>" PRİNT "DERSCSSPACE PRİNT PRİNT “1. PRİNT PRİNT “2. YAZ PRİNT "a. PRİNT “2. YAZ.NÖTE PRİNT PRİNT “3 REM ** GERİSİ 42 GOSUB 2678 PRİNT DÖNMEK ICIN BASIN" GET OFSTİF IF 38

THEN 878 THEN PRİNT “<CL

REM GOTO * ETMEK | CIN Fa" PRİNT "MENÜYE DÖNME KOCIN F7 * GET THEN iB28 İF THEN