Fake Virus Warning

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.