Sayfa 11

1-) )<RVSOFF FOR TO 301NEXT (PRİNT ” FOR TO 18 PRINT TABCBB)"<UP)<3SPACE )<RVSON) 28 -) DOSYA SIİLME<RVSOFF)"1FOR TO FOR TO 18 PRINT )<RVSON) 3 -) TOPARLAMACASPACE ><RVSOFF >" CXs0 TO 301NEKT "<DO FOR BBs8 TO 18 PRINT TAB<BB)"<UP)<3SPACE )<RVSON)> 4 -) AD DEGİST. <RVSOFF>"1FOR TO 381NEXT FOR TO 18 TAB<CBB)"<UP)<3SPACE )<RVSON)> 5 -) KAFA DÜZEL.<RVSOFF>"1FOR TO "<DOKN)" FOR TO 18 PRINT TABCBB)"<UP)<3SPACE ><RVSON> & -) LİSTE<ESPACE TO 301NEXT

FOR BBs0 TO 108 PRINT 7

-) ACIKLAMACISPACE )<RVSOFF>"1FOR TO 30:NEXT N>"

ACE PRİNT PRİNT 19SPACE )<RVSO PRINT TABC18)"<RVSON><C3SPACEYA-) FO RMAT<ESPACE > <RVSOFF >" PRİNT TABC10)"<RVSON)<3SPACE)B-) TO 3SPACE > <RVSOFF >" PRINT DO SYA SILME PRİNT KO

PYALAMA< 3SPACE >" PRİNT 19SPACE )<RVSO

GET THEN Sia IF AS-CHRS(65) THEN 9853 IF THEN 1200 IF THEN 1300 IF THEN 1408 GoTO sia CONT PRİNT PRİNT O

RMA T<15SPACE>" PRİNT YENİ DISKETLER KULLANILMADAN ON-CE FORMA

TLANMALIDIR." "<28SPACEYBU İSLEM SÖYLE YAPI

PRİNT "<RVSON)<CTRL-8) CLOSE 1 <RE TURN) * PRİNT "<RVSON> OPENİ PRİNT CLOSE 1 <RETURN> <R VSOFF

İSMİ KULLANI CI TARAFINDAN 4 PRINT 16 KARAKTERİ GECMEYEN B IR KODU İSE HERHANGI "| "IKİ KARAKTERİBELİRLEYİCİSİD IR." PRİNT 3PRİNT PRİNT >HERH ANGI BIR TUSA BAS " PRİNT "<9SPACE 58325,67 GET ASIIF A$e"" THEN 998 IF THEN 581 IF " THEN 903 6GO0TO 998 * REM REM * “ PRİNT 56325,1 FOR Ezbii TO E,GINEKT FOR EsZ TO 2Z4391POKE PRİNT 56325, OtPOKE 56324,28 PRİNT "<2SPACE LUTFEN DİSKETİ TAKIN "<aSPACE)" INPUT İSMİNİ BELİRT * * IF LEN CA$))>16 THEN PRİNT " "t6G0TO

INPUT NUMARASINI BELİRT