Retro/softporn-adventure
Watch
1
0
Fork
You've already forked softporn-adventure
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add files via upload

Browse source 
source code from https://www.ifarchive.org/if-archive/games/appleII/softporn.zip
This commit is contained in:
gondur 2018-07-02 18:59:11 +02:00 • committed by GitHub
commit f8dd4bfece
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
8 changed files with 1306 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
___.bas Normal file
View file

@ -0,0 +1,34 @@
0 D$ = CHR$ (4):OS$ = "OPEN SG":CS$ = "CLOSE SG"
1 WS$ = "WRITE SG"
2 HOME : PRINT "PLEASE REMOVE THE 'SOFTPORN ADVENTURE' DISK AND PLACE ANOTHER DISK IN DRIVE 1. HIT THE SPACE BAR TO CONTINUE"
3 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 5
4 GOTO 3
5 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868
6 PRINT D$;OS$: PRINT D$;WS$
10 PRINT C: PRINT M: PRINT N: PRINT V
11 PRINT GG: PRINT R: PRINT QC
15 PRINT DL: PRINT FH: PRINT ID: PRINT RR
16 PRINT TE: PRINT SS: PRINT UR: PRINT MA
20 PRINT DE: PRINT TI: PRINT DD: PRINT PI: PRINT WA
21 PRINT ST: PRINT AP: PRINT AS: PRINT ID: PRINT BU
22 PRINT R: PRINT T: PRINT A: PRINT BD: PRINT TV
23 PRINT GC: PRINT AA: PRINT WR: PRINT FH: PRINT SC
24 PRINT WI: PRINT RR: PRINT BG: PRINT BB: PRINT BW
25 PRINT BI
100 FOR X = 1 TO 30: PRINT D%(X): NEXT
202 PRINT T1$: PRINT T2$: PRINT T3$: PRINT T4$: PRINT T5$
250 PRINT P1$: PRINT P2$
260 PRINT P3$: PRINT P4$
350 FOR X = 1 TO 30: PRINT T%(X): NEXT
390 FOR X = 1 TO 15
391 FOR Y = 1 TO 32: PRINT V1%(Y,X)
392 NEXT Y
393 NEXT X
394 PRINT D$;CS$: ONERR GOTO 8000
395 HOME : PRINT "GAME IS NOW SAVED": PRINT : PRINT "PLEASE INSTALL 'SOFTPORN ADVENTURE' IN DRIVE 1": PRINT "HIT THE SPACE BAR TO CONTINUE"
396 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 400
397 GOTO 396
400 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868
500 PRINT D$;"BLOAD CHAIN, A520"
510 CALL 520" SIN SIN "
8000 HOME : PRINT "DISK ERROR- HIT RESET TO RESTART OR:": POKE 34, PEEK (37) + 1: GOTO 395