image of READY prompt

Wang2200.org

Listing of file='HELP' on disk='vmedia/games.wvd.zip'

# Sector 188, program filename = 'HELP'
0010 DIM A$
0020 DIM B$,T$,C$,Z$30
0030 DIM D$,E$,F$,G$,H$,I$,J$
0040 GOTO 1250
0050 SELECT PRINT 005(64)
0060 PRINT HEX(03)
0070 PRINT "HELLO,I AM A WANG COMPUTING SYSTEM.MY NAME IS,                  I.
     M.SMART"
0080 PRINT
   : PRINT "WHAT'S YOUR NAME ";
   : INPUT A$
   : PRINT
0090 PRINT HEX(03)
0100 PRINT "HI THERE ";
   : GOSUB 1290
   : PRINT " ARE YOU ENJOYING YOURSELF HERE"
0110 PRINT " IN BUSTLING BEAUTIFUL BALTIMORE";
0120 INPUT B$
   : PRINT
0130 IF B$="YES"THEN 180
0140 IF B$="NO"THEN 200
0150 PRINT TAB(6)
   : GOSUB 1290
   : PRINT ", I DON'T UNDERSTAND YOUR ANSWER OF, ";
   : PRINT B$;
0160 PRINT "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LIKE IT HERE "
0170 GOTO 110
0180 PRINT "OH, I'M GLAD TO HEAR THAT, ";
   : GOSUB 1290
   : PRINT
0190 GOTO 210
0200 PRINT "GEE, I'M AWFULL SORRY TO HEAR THAT ";
   : GOSUB 1290
   : PRINT ", MAYBE WE CAN BRIGHTEN UP YOUR STAY A BIT"
0210 SELECT P9
   : PRINT
   : SELECT P0
   : PRINT HEX(03)
0220 PRINT "SAY, ";
   : GOSUB 1290
   : PRINT ", I CAN SOLVE ALL KINDS OF PROBLEMS"
0230 PRINT "EXCEPT THOSE DEALING WITH EGYPT. WHAT KIND OF"
0240 PRINT "PROBLEMS DO YOU HAVE (SEX, HEALTH, MONEY, OR JOB)"
0250 INPUT C$
0260 IF C$="SEX"THEN 760
0270 IF C$="HEALTH"THEN 700
0280 IF C$="MONEY"THEN 570
0290 IF C$="JOB"THEN 330
0300 GOSUB 1290
   : PRINT " HOW CAN I POSSIBLY ANSWER YOUR QUESTIONS WHEN YOU GIVE AN
         ANSWER LIKE,'";
   : PRINT C$;
   : PRINT "'"
0310 PRINT "PLEASE ANSWER ACURATELY,WHAT KIND OF"
0320 GOTO 240
0330 PRINT HEX(03)
0340 PRINT "PLEASE SPECIFY WHERE THE PROBLEM EXISTS:"
0350 PRINT "     (PAY,PEOPLE,PRODUCT,PERSONALTY)";
0360 INPUT I$
0370 IF I$="PAY"THEN 420
0380 IF I$="PEOPLE"THEN 450
0390 IF I$="PRODUCT"THEN 490
0400 IF I$="PERSONALTY"THEN 530
0410 GOTO 340
0420 PRINT HEX(03)
   : PRINT "WHAT YOU HAVE IS A MONEY PROBLEM....."
0430 PRINT "I WILL TRANSFER YOU TO THAT DEPARTMENT"
0440 PRINT
   : PRINT
   : GOSUB 1290
   : PRINT ", IS YOUR PROBLEM ";
   : GOTO 580
0450 PRINT "I CAN SYMPATHIZE WITH YOU ";
   : GOSUB 1290
   : PRINT " ,";
0460 PRINT " I HAVE TO WORK LONG HOURS FOR LITTLE PAY AND SOMEONE KEEPS     PU
     LLING THE PLUG WHILE I'M THINKING! MY ADVICE TO YOU, ";
   : GOSUB 1290
   : PRINT ",";
0470 PRINT " IS TO BECOME A PLUMBER"
0480 GOTO 890
0490 PRINT "OBVIOUSLY YOU ARE IN THE WRONG BUSINESS"
0500 PRINT "YOU SHOULD BE SELLING WANG PRODUCTS"
0510 PRINT
   : PRINT
   : PRINT "IF YOU ARE SELLING WANG'S, THEN DON'T COMPLAIN AT LEAST YOUR
     WORKING"
0520 GOTO 890
0530 PRINT "IF YOUR PROBLEM IS SEX RELATED WRITE IN 'SEX' IF NOT WRITE 'NO'"
0540 INPUT J$
   : IF J$="SEX"THEN 760
0550 PRINT HEX(03)
   : PRINT "HOW CAN I HELP YOU I THINK ALL HUMANS ARE CRAZY BECAUSE I'M
       PERFECT"
   : A=A+1
   : IF A=8THEN 560
   : SELECT P2
   : GOTO 550
0560 SELECT P
   : GOTO 890
0570 PRINT HEX(03)
0580 INPUT "TOO MUCH OR TOO LITTLE?",E$
0590 IF E$="TOO MUCH"THEN 630
   : IF E$="TOOMUCH"THEN 630
   : IF E$="TO MUCH"THEN 630
   : IF E$="TOMUCH"THEN 630
0600 IF E$="TOO LITTLE"THEN 650
   : IF E$="TOOLITTLE"THEN 650
   : IF E$="TO LITTLE"THEN 650
   : IF E$="TOLITTLE"THEN 650
0610 PRINT "PLEASE SIMPLY ANSWER 'TOO MUCH' OR 'TOO LITTLE'"
0620 GOTO 580
0630 PRINT "THATS NO PROBLEM, WHAT YOU NEED IS A FRIEND...."
   : PRINT "     I CAN BE YOUR FRIEND.....(FOR A PRICE$$$$)"
0640 GOTO 890
0650 PRINT "MY ADVICE TO YOU ";
   : GOSUB 1290
   : PRINT " IS:"
0660 PRINT "    (1) MARRY RICH "
0670 PRINT "    (2) BECOME A PLUMBER"
0680 PRINT "    (3) BECOME VICE PRESIDENT AND SELL YOUR MEMOIRS"
0690 GOTO 890
0700 PRINT HEX(03)
0710 PRINT "TRY THE FOLLOWING:"
0720 PRINT "    (1) TAKE TWO ASPRIN OR EXLAX (WHICHEVER APPLIES)"
0730 PRINT "    (2) DRINK PLENTY OF FLUIDS (ORANGE JUICE NOT BEER)"
0740 PRINT "    (3) GO TO BED (ALONE)"
0750 GOTO 890
0760 PRINT HEX(03)
0770 PRINT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE"
0780 INPUT F$
0790 IF F$="TOO MUCH"THEN 840
0800 IF F$="TOO LITTLE"THEN 870
0810 PRINT "DON'T GET ALL SHOOK ";
   : GOSUB 1290
   : PRINT " JUST ANSWER THE QUESTION"
0820 PRINT "WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT";
0830 GOTO 780
0840 PRINT "YOU CALL THAT A PROBLEM?!!!  I SHOULD HAVE SUCH PROBLEMS!"
0850 PRINT "IF IT BOTHERS YOU, TAKE A COLD SHOWER ";
   : GOSUB 1290
0860 GOTO 890
0870 PRINT "WHY ARE YOU HERE ";
   : GOSUB 1290
   : PRINT "? YOU SHOULD BE"
0880 PRINT "IN TOKYO OR NEW YORK OR SOMEPLACE WITH SOME REAL ACTION."
0890 PRINT
0900 SELECT P
0910 PRINT "ANY MORE PROBLEMS YOU WOULD LIKE SOLVED ";
   : GOSUB 1290
0920 INPUT G$
0930 IF G$="YES"THEN 970
0940 IF G$="NO"THEN 990
0950 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";
   : GOSUB 1290
   : PRINT ;
0960 GOTO 910
0970 PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)";
0980 GOTO 250
0990 PRINT
1000 GOSUB 1290
   : PRINT " , FOR THE ADVICE THAT WILL BE...$10.00"
1010 PRINT "PLEASE LEAVE THE MONEY UNDER THE POWER SUPPLY"
1020 SELECT P9
   : PRINT
   : PRINT
   : SELECT P
1030 PRINT "DID YOU LEAVE THE MONEY ";
1040 INPUT H$
   : PRINT
1050 IF H$="YES"THEN 1100
1060 IF H$="NO"THEN 1150
1070 PRINT "YOUR ANSWER OF ";
   : PRINT H$;
   : PRINT " CONFUSES ME,  ";
   : GOSUB 1290
1080 PRINT "PLEASE RESPOND WITH A 'YES' OR 'NO'"
1090 GOTO 1030
1100 PRINT HEX(03)
1110 PRINT "HEY ";
   : GOSUB 1290
   : PRINT "???? YOU LEFT NO MONEY AT ALL!!!"
1120 PRINT "HOW DO YOU EXPECT ME TO CONTINUE MY PSYCHOLOGY"
1130 PRINT "STUDIES IF MY PATIENTS WILL NOT PAY THEIR BILL"
1140 GOTO 1220
1150 PRINT HEX(03)
1160 PRINT "THAT'S HONEST, ";
   : GOSUB 1290
   : PRINT " BUT"
1170 PRINT "HOW DO YOU EXPECT ME TO CONTINUE MY PSYCHOLOGY"
1180 PRINT "STUDIES IF MY PATIENTS WILL NOT PAY THEIR BILL!!!"
1190 SELECT P9
   : PRINT
   : PRINT
   : SELECT P
1200 FOR I=1TO 100
   : PRINT HEX(07)
   : NEXT I
1210 PRINT "NICE MEETING YOU ";
   : GOSUB 1290
   : PRINT " HAVE A NICE DAY."
1220 PRINT "NOW LET ME TALK TO SOMEONE ELSE"
1230 PRINT "TO CONTINUE PROGRAM PRESS'CONTINUE'THEN 'RETURN'"
1240 STOP
1250 FOR N=1TO 7
1260 PRINT
1270 NEXT N
1280 GOTO 60
1290 T=LEN(A$)
   : PRINT STR(A$,1,T);
   : RETURN
1300 DEFFN'15"\80S"
1310 STOP
1400 DEFFN'31
   : LOAD DC F"GAMES"