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"