Amiga Dunyasi - Sayi 30 (Kasim 1992).pdf - Retro Dergi

C$=Mid$(B$,K,1)H=Instr(A$,C$)-1SC=Screen Colour-2If H>-1VERI=X(H,Y,X)IfVERI0R=(RmodSC)+lIfCM=0R=Rnd(SC)+lEnd IfIf RENKFRR=RENKEnd IfPlot C,D,RElsePlot C,D,FREnd IfEnd IfEnd ProcProcedure HARFJ3IRIS[X,Y,C,M,FR,CM,RENK]A$="ABCDEFGHIJKLMNO-PQRS-TU- VWXYZ"A$=A$+"[]/*&.,:;'!?_0123456789"C$="—":D$=" "B=XDoDoB$=Inkey$If Instr(D$,B$)>0B$=Mid$(C$,Instr(D$,B$), 1)ExitEnd IfB$=Upper$tB$)S=ScancodeExit If Instr(A$,B$)>0 or S=65 or S=68LoopIf S=65 and XBDec X : B$=""ENTRY$=Left$(ENTRY$,Len(ENTRY$)-1)PRG[X,Y,M,B$,FR,CM,RENK]End IfIf Len(ENTRY$)