Sayfa 25

DIM DIM POKE 53200.6:POKE 53281.G:POKC 646. 1 Cs 14 PRINT PRİNT O S Es T“ PRİNT OZDEMİ R 1989“ $-CHRSC146) ANY KEY. BES ME FOR Xs1 TO IF THEN a NEKT FOR Xs2 TO X FOR $*5$ NEKT Kel Ki SA .;.,. TPSSCHRSC İZE) 173) FILE SELECTİON" B 1500 PRINT “1) SPECİFY A FLASHCARD FİLE" PRINT *2) CATALOG THE T *3) 2500:1F THEN PRİ NT HMS: END IF THEN 310 CLOSE 2:0PEN 2.8.0."$":PRINT NAMES "7 GET #2.T$:1F CLOSE - 308 IF THEN -F GOTO 260:PRİNT :60T0 268 IF THEN PRİNT. Ts; GoTO 260 19

*1) WORK WİTH THC CURRENT FİL.

PRINT “ERROR #"3E:" HAS OCCURR EO." FOR KXs1 TO 2008:NEXT 19 e A FLASHCARO 20060 PRINT “YOU MUST PİCK HOW MANY LİNCS OF TEXT“ PRINT "YOU WANT FEACH SİDE OF THE CARDS * PRINT "<THERE<2SPACEYARE 280 CHARACT

GOSUB 1500:60SUB 6500:60SUB 6000 PRINT “PRESS <RETURN> TO DELETE CAR D";K;

GOSUB THEN 670 FOR TO NC:FOR Yali TO 4 FOR Ks1 TO XINCENC-I IF. NCs8 THEN GOSÜB “ NO MORE CARDS

3008:RUN CaNC:GOSUB 678 GOSUB 6008 PRINT "PRİNT<28SPACE> 1) THİS CARD<ES

PACE>2) ENTİRE FİLE “; 6808

PRINT "TURN PRİNTER ON; THEN “3PS$; 3000 :1F Psi THEN

EsC OPEN 4.4:CMD 4:FOR TO E PRINT TO P$ X PRINT PRINT Müs2 THEN PRİNT Ps: GOTO 9840 PRINT FOR Xs1 TÜ Ps1 THEN