0 INPUT"ANNA TIEDOSTON NIMI:";TN$:INPUT"PRG, SEQ (P/S)??";F$
1 PRINT"[147]":OPEN2,8,2,"0:"+TN$+","+F$+",R"
2 GET#2,A$:IFST<>0THENCLOSE2:END
3 AS=ASC(A$+"@"):A=VAL(MID$(STR$(AS),1,1))+48:B=VAL(MID$(STR$(AS),2,1))+48
4 C=VAL(MID$(STR$(AS),3,1))+48:D=VAL(MID$(STR$(AS),4,1))+48
5 POKE1024,AS:POKE1026,A:POKE1027,B:POKE1028,C:POKE1029,D
6 PRINT"[154]";MID$(A$+"@",1,1):POKE198,0:WAIT198,1:GOTO2