home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DIVERSEN
/
TIPI2A
/
BUGDEMO.TPI
< prev
next >
Wrap
Text File
|
1994-10-02
|
1KB
|
76 lines
# BUGDEMO.TPI by Kent Peterson 9/25/94
# If this isn't an HP hundred series palmtop, gracefully abort
machine? 2 <
if
| Sorry, this program only runs on an HP hundred series palmtop.
bye
endif
define wait
8 do loop
enddef
deftable vark
"aav1.icn" "aav2.icn"
endtable
deftable bug
"bug.icn" "bug2.icn"
endtable
define bugs
50 do
index 2 mod 1 + bug
0 index 2 * 48 + 300 ploticon
index 2 mod 1 + bug
0 index 2 * 50 + 350 ploticon
index 2 mod 1 + vark 0 50
220 index - ploticon
wait
loop
enddef
6 setvmode
11 9 locate
"This program still" print$
" has a few bugs." print$
bugs
1 setpencolor
69 260 movepen
69 312 drawline
2 bug
3 50 300 ploticon
0 setpencolor
69 312 movepen
69 260 drawline
8 do wait loop
1 setpencolor
69 260 movepen
69 362 drawline
2 bug
3 52 350 ploticon
0 setpencolor
69 362 movepen
69 260 drawline
8 do wait loop
10 0 locate
| ╔═════════════════════════════════════╗
| ║ ║
| ║ TIPI's debugger kills bugs dead! ║
| ║ ║
| ║ ║
| ║ T I P I 2.0 ║
| ║ ║
| ║ Power Programming for Palmtop PCs. ║
| ║ ║
| ╚═════════════════════════════════════╝
begin key until
0 screen