10 PRINT "*---TRS-80 VirusBuster--Version 2.13a-*"
30 PRINT "*------Copyright 1982 Froggosoft------*"
47 PRINT                 "Main Menu"
50 PRINT "1-Scan Machine | 2-About |     Reserved
66 PRINT "3-How to Pay   | 4-Exit  |     Reserved
68 GOTO 500
70 IF A$ = "Y" OR A$ = "y" THEN GOTO 90
80 IF A$ = "N" OR A$ = "n" THEN GOTO 170
90 INPUT "This may take a bit.  Proceed?(Y/N)"; C$
100 IF C$ = "Y" OR C$ = "y" THEN GOTO 120
110 IF C$ = "N" OR C$ = "n" THEN GOTO 160
120 FOR X=1 TO 100
130 PRINT "."
140 NEXT X
150 GOTO 200
160 PRINT "Your device will not be scanned."
170 INPUT "Exit to main menu? (Y/N)"; B$
180 IF B$ = "N" OR B$ = "n" THEN GOTO 220
190 IF B$ = "Y" OR B$ = "y" THEN GOTO 47
200 PRINT "Your machine is clean!"
210 GOTO 300
220 PRINT "Run this program when needed!  Goodbye!"
230 END
300 INPUT "Scan again? (Y/N)"; AA$
310 IF AA$ = "Y" OR AA$ = "y" THEN GOTO 400
320 IF AA$ = "N" OR AA$ = "n" THEN GOTO 170
400 PRINT "This machine is already clean!"
410 INPUT "Are you sure? (Y/N)"; BB$
420 IF BB$ = "Y" OR BB$ = "y" THEN GOTO 120
430 IF BB$ = "N" OR BB$ = "n" THEN GOTO 200
500 INPUT "Choose a number"; CC$
510 IF CC$ = "1" THEN GOTO 90
520 IF CC$ = "2" THEN GOTO 550
525 IF CC$ = "3" THEN GOTO 600
530 IF CC$ = "4" THEN GOTO 220
550 PRINT "TRS-80 VirusBuster build 1789-712"
560 PRINT "(C) 1982 Froggosoft"
570 PRINT "Programmed in Maine by:
580 PRINT "Steve Maguire"
590 GOTO 650
600 PRINT "This program is not freeware.  If you"
610 PRINT "like it and would like to support"
620 PRINT "VirusBuster, send $0.99 to 633"
630 PRINT "Maleva Street, Portland, Maine."
640 PRINT "Thank you!"
650 INPUT "Return to menu"; RM$
660 IF RM$ = "Y" OR RM$ = "y" THEN GOTO 47
670 IF RM$ = "N" OR RM$ = "n" THEN GOTO 650