Sayfa 20

Get Bob A*41,0,0 To 16,80 Cls 0,0,0 To 16,200 Next End Proc

* ter AMOS (C) 1990 * yak Europress Software, Ltd. * ik * YAZI KAYDIRMA #1 vik *

Hide Screen Open 0,320,256,4,Lowres Curs Off : Flash Off : Cls 0 Palette 0,$F00,$FO,$48F

Do For To 210 Step 10 RENK-Rnd(2)41 YAZI$-"COMMODORE AMIGA" Next Loop

Procedure YAZIY,RENK,HIZ,YAZI$| Ink RENK,0

SWzScreen Width Def Scroll 1,0,Y To SW,Y--8,-HIZ,0 For A-1 To Len(YAZI$) Text SW-8,Y46,Mid$(YAZI$,A,1) For To 8/HIZ Scroll 1 Wait Vbl Next Next End Proc

İyi AMOS (C) 1990 * Europress Software, Ltd. * * * Hik YAZI KAYDIRMA #2 * * Hide Screen Open 0,640,256,2,Hires Curs Off Double Buffer Autoback 1 Palette 0,0 A$i(8,1,15)(8,-1,15)*

Set Rainbow 0,1,256,A$,A$,A$ Rainbow 0,0,43,254

S2-Logic

Do Read A$ If A$-"*SON*" Restore Read A$ End If Centre At(,30)4A$ For A-z1 To 8 Sereen Copy S1,0,8,640,249 To S2,0,7 Screen Swap Wait Vbi Next Loop

Data String$("-",60) Data Data" 'DÜŞEY EKSENDE" Data "YAZI KAYDIRMA RUTİNİ" Data "" Data "ARALIK / 1992" Data "En kısa zamanda" Data String$("-",19) Data "AMOS PROFESSİONAL" Data String$(" Data" “kullanmaya başlayınız" Data "", Data "*SON*"