home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
601-625
/
apd602
/
pattern_viewr.amos
/
pattern_viewr.amosSourceCode
Wrap
AMOS Source Code
|
1993-02-25
|
407b
|
17 lines
' PATTERN VIEWER BY JASON CHAN
' >>>>>> JUST PRESS ANY KEY TO VIEW PATTERNS <<<<<<
MAIN
Procedure MAIN
Screen Open 0,320,256,64,Lowres : Curs Off : Change Mouse 2 : Cls 0
N=0
Ink 9,38
Locate ,6 : Cline
Do
Inc N
If N=36 Then N=1 : Locate ,6 : Cline
Set Pattern N
Locate ,6 : Print "PATTERN:";N
Bar 0,0 To 320,32
Wait Key
Loop
End Proc