Sayfa 17

UZSSUUS1UZS: PRINT U2$; KELİME-BIR | SLEM" PRINT TAB(14);”DATA GIRISI" FOR I-BF TO Bİ: : NEXT FOR TO 37: NEXT

P$-YSS*PS: FOR 1—49152 TO 49215: READ A:POKE NEXT :SYS 49152 READ A:1F THEN PRINT CEARSC147 ):G0TO 24 FOR TO BE:READ B:POKE PRINT NEXT :GOTO 2 1 FOR I-BF TO 13:READ CMSC1): NEXT GOSUÜB TABCBM);KRS;CMSCBE)