Fake Virus Warning

We're glad you came by, but you might find what you're looking for elsewhere.

TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it.

Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author:

AravenFtw Luke
Download: Untitled1.8xpNo Download Available
Version:
Compatibility: TI-83/84/+/SE
File Size: 1797 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD 
0→X
ClrHome
Lbl 1
Output(1,5,"WARNING!"
Output(2,1,"1 virus found on
Output(3,1,"your machine.
Output(5,2,"Remove viruses
Output(6,2,"Reinstall TI-OS
Output(8,3,"Navigate  "
0→A
Repeat X=100
getKey→X
If A=0:Output(5,1,""
If X=34 and A=0:Then:1→A:Output(5,1," "):End
If A=1:Output(6,1,""
If X=25 and A=1:Then:0→A:Output(6,1," "):End
If A=0 and X=105:Goto 3
If A=1 and X=105:Goto 2
End
Stop
Lbl 2
ClrHome
0→A
Output(1,1,"Reinstall TI-OS?
Output(2,1,"Continuing will
Output(3,1,"delete all data
Output(4,1,"and programs.
Output(7,2,"Cancel
Output(8,2,"Reinstall OS
Repeat X=100
getKey→X
If A=0:Output(7,1,""
If X=34 and A=0:Then:1→A:Output(7,1," "):End
If A=1:Output(8,1,""
If X=25 and A=1:Then:0→A:Output(8,1," "):End
If A=0 and X=105:Then:ClrHome:Goto 1:End
If A=1 and X=105:Goto 4
End
Stop
Lbl 4
ClrHome
Output(1,1,"Resetting...
For(X,1,10000):End
ClrHome
Pause "Memory Cleared"
Goto 84
Stop
ClrHome
Disp "Ti-34 MultiView
Lbl 84
Input "",S
Disp S
Goto 84
Stop

Lbl 3
ClrHome
Output(1,1,"Select payment"
Output(2,1,"type:"
Output(4,2,"Credit Card"
Output(5,2,"PayPay"
Repeat X=100
getKey→X
If A=0:Output(4,1,""
If X=34 and A=0:Then:1→A:Output(4,1," "):End
If A=1:Output(5,1,""
If X=25 and A=1:Then:0→A:Output(5,1," "):End
If A=0 and X=105:Goto 5
If A=1 and X=105:Goto 6
End
Lbl 5
ClrHome
Disp "Credit Card #:"
Input "",Str1
ClrHome
Output(1,1,"CREDIT CARD #:"
Output(2,1,Str1
Output(4,1,"COST: $150.99
Output(6,2,"Continue"
Output(7,2,"Cancel"
0→A
Repeat X=100
getKey→X
If A=0:Output(6,1,""
If X=34 and A=0:Then:1→A:Output(6,1," "):End
If A=1:Output(7,1,""
If X=25 and A=1:Then:0→A:Output(7,1," "):End
If A=0 and X=105:Goto 10
If A=1 and X=105:Goto 3
End
Lbl 10
randInt(1,2)→X
If X=1:Goto 11
Lbl 11
ClrHome
Disp "  TI-BASIC
Disp "Virus removal
Disp "failed. Your
Disp "machine will be
Disp "terminated.
Output(7,1,"Press any key
Output(8,1,"to continue…
Repeat X=100
End
If X=2:Goto 12
Stop
Lbl 6
ClrHome
Disp "PayPal ID#:"
Input "",Str1
ClrHome
Output(1,1,"PayPal ID#:"
Output(2,1,Str1
Output(4,1,"COST: $150.99
Output(6,2,"Continue"
Output(7,2,"Cancel"
0→A
Repeat X=100
getKey→X
If A=0:Output(6,1,""
If X=34 and A=0:Then:1→A:Output(6,1," "):End
If A=1:Output(7,1,""
If X=25 and A=1:Then:0→A:Output(7,1," "):End
If A=0 and X=105:Goto 10
If A=1 and X=105:Goto 3
End
Lbl 12
ClrHome
"VIRUS REMOVED!

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial 2.5 License.