Master PC Simulator.bas

1 REM A simulation of the venerable Master PC program
2 REM a series of erotic fiction written from USENET days
3 REM all the way TO today by various authors,
4 REM with various themes, styles, AND quality.
5 REM This program made by MasterLoveHurts/Broken_Arrow.
6 REM Written in BASIC AND tested in qbasic AS well
7 REM AS "freebasic -lang qb". HAVE FUN!
8 conct = 0
9 conn$ = ""
10 CLS
20 PRINT "Welcome to the Master PC program"
30 INPUT "Who would you like to modify"; NAME$
35 IF NAME$ = "" THEN GOTO 30
36 PRINT "Connecting to "; NAME$
37 top = INT(RND(1) * 20)
40 conct = conct + 1
50 SLEEP 1
60 REM CLS
65 stepper = INT(RND(1) * 5)
70 IF stepper > 1 THEN PRINT "#";
71 Y = CSRLIN: X = POS(0) - 1
72 IF stepper < 2 AND X > 0 THEN LOCATE Y, X
75 IF stepper < 2 AND X > 0 THEN PRINT " ";
77 IF stepper < 2 AND X > 0 THEN LOCATE Y, X
100 IF conct < top THEN GOTO 40
102 CLS
105 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
110 PRINT "Connected to "; NAME$
120 PRINT NAME$; " is now ready to be modified."
122 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
125 PRINT "Type 'exit' to quit or"
127 PRINT "'new' to connect to new target"
129 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
130 PRINT "Describe desired modification:"
140 INPUT MOD$
145 IF MOD$ = "" THEN GOTO 130
152 IF MOD$ = "new" OR MOD$ = "exit" THEN PRINT "Disconnecting from "; NAME$
153 IF MOD$ = "new" OR MOD$ = "exit" THEN PRINT "@)#($%)%/"; : SLEEP 1: PRINT "*..$^&*"; : SLEEP 1: PRINT "\\@';"; : SLEEP 1
155 IF MOD$ = "new" THEN GOTO 8
157 IF MOD$ = "exit" THEN GOTO 300
160 status$ = ""
170 counter = 0
180 top = RND(1) * 20
190 status$ = status$ + "#"
200 SLEEP 1
210 CLS
220 PRINT "Uploading specified modification to "; NAME$
225 PRINT "-----------------------------------------"
226 PRINT MOD$; "..."
227 PRINT "-----------------------------------------"
230 PRINT "Do not power off."
240 PRINT status$
250 counter = counter + 1
260 IF counter < top THEN GOTO 190
265 CLS
270 PRINT "Modification complete."
280 PRINT NAME$; " is ready for next modification."
282 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
285 PRINT "Type 'exit' to quit or"
287 PRINT "'new' to connect to new target"
289 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
290 GOTO 130
300 PRINT ""
310 END