STARDEMO ======== --------------------------------------------------- | Author: Jari Rytilahti | | Original idea: Jari Rytilahti | | Type of calculator: CASIO fx-9700GE (or similar)| --------------------------------------------------- ----------------------------------------------------------------------------- 1. System requirments 2. A description of the program 3. How to get in contact with me 4. Signtable 5. Source ----------------------------------------------------------------------------- 1. System requirments: --------------------- - a CASIO fx-9700GE (or similar CASIO calculator) - WINDOWS '95 (Not!) 2. A description of the program ------------------------------- The program will draw a small animation of a star. Not very fancy and not fast, but it works. 3. How to get in contact with me -------------------------------- If you have any comments on the game or if you have made it better or if you have some other programs to the CASIO calculator, send a message to me by email. jari.rytilahti@swipnet.se http://home.swipnet.se/snafu ============================================================================= We want ... ... ... ... ... ... ... ... ... ... ... ... A SHRUBBERY!! ============================================================================= 4. Signtable ------------ > :greater than >= :greater or equal than < :less than <= :less or equal than => :if statement -> :assign * :multiply / :divide _| :fraction. _ :That little black triangle {} :Comment. Just to make it easier to understand ----------------------------------------------------------------------------- 5. Source --------- 001: STARTDEMO {INIT} 002: Cls : Mcl : Deg 003: 30 -> C ~ D 004: 30 -> P ~ Q 005: 5 -> K 006: 2-> L 007: Range 1,127,0,1,63,0,0,720,144 008: Lbl 0 : Cls : 0 -> I {MAIN} 009: Graph(X,Y)= ( C cos (T + A) +64, P sin (T + A) +32) 010: A + 10 -> A 011: C - K -> C 012: C <= -D => -K -> K 013: C >= D => -K -> K 014: P - L => P 015: P <= -Q => -L -> L 016: P >= Q => -L -> L 017: Lbl 1 {DELAY} 018: I = 5 => Goto 0 019: Isz I : Goto 1 020: 'JMR-95