Wrote a little program in BASIC that simulates the venerable Master PC, a reality warping program from erotica written by various authors in the old USENET days and even today.
It has had many shapes and forms. The stories have varied themes, content, and quality (no two authors go after the idea the same).
If you’re into mind control and/or reality warping, maybe with some magical sci-fi thrown in, then you might like a few of the Master PC stories.
The BASIC portion adds a little nostalgia. While I didn’t use TI-BASIC on this one, I remember writing little, stupid, semi-erotic text “games” on my calculator in my school days.
(Tested in QuickBASIC and “
~~~~~~~
05 conct=0
07 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
37 top=int(rnd(1)*20)
40 conct = conct + 1
50 sleep 1
60 cls
65 stepper=int(rnd(1)*5)
70 if stepper = 1 then conn$=conn$+“#$.”
71 if stepper = 2 then conn$=conn$+“\@’;”
72 if stepper = 3 then conn$=conn$+“.}{|”
73 if stepper = 4 then conn$=conn$+“*..$^&*”
74 if stepper = 0 then conn$=conn$+“@)#($%)%/”
80 print “Connecting to ”;name$
90 print conn$
100 if conct < top then goto 40
110 print “Connected to ”;name$
120 print name$;“ is now ready to be modified.”
130 print “Describe desired modification:”
140 input mod$
150 if mod$=“exit” then goto 300
152 if mod$=“” then print “Disconnecting from ”;name$
155 if mod$=“” then goto 05
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
270 print “Modification complete.”
280 print “Ready for next modification.”
290 goto 130
300 end