Add files via upload
source code from https://www.ifarchive.org/if-archive/games/appleII/softporn.zip
This commit is contained in:
gondur
GitHub
parent
7cabde0519
commit
f8dd4bfece
8 changed files with 1306 additions and 0 deletions
123
_____.bas
Normal file
123
_____.bas
Normal file
|
|
@ -0,0 +1,123 @@
|
|||
0 POKE 34,0: POKE 35,24: POKE 1011,0: POKE 1012,0: CLEAR
|
||||
1 ONERR GOTO 0
|
||||
2 HOME : VTAB 7: HTAB 11: PRINT "SOFTPORN ADVENTURE": PRINT : HTAB 9: PRINT "WRITTEN BY CHUCK BENTON": PRINT : HTAB 13: PRINT "COPYRIGHT 1981": PRINT : HTAB 11: PRINT "BLUE SKY SOFTWARE"
|
||||
3 VTAB 22: HTAB 2: PRINT "SHOULD A SAVED GAME BE LOADED? (Y/N)": GET A$
|
||||
4 IF A$ = "Y" THEN QQ = 1
|
||||
5 HOME : VTAB 10: HTAB 15: PRINT "PLEASE WAIT": VTAB 13: HTAB 11: PRINT "INITIALIZATION PHASE"
|
||||
10 ONERR GOTO 0
|
||||
15 C = 3:M = 10:N = 0:V = 0
|
||||
20 DE = 0:TI = 0:DD = 0:PI = 0:WA = 0
|
||||
21 ST = 0:AP = 0:AS = 0:ID = 0:BU = 0
|
||||
22 R = 0:T = 0:A = 0:BD = 0:TV = 0
|
||||
23 GC = 0:AA = 0:WR = 0:FH = 0:SC = 0
|
||||
24 WI = 0:RR = 0:BG = 0:BB = 0:BW = 0
|
||||
25 BI = 0
|
||||
100 DIM D%(30)
|
||||
110 D%(1) = 1:D%(2) = 2:D%(3) = 3:D%(4) = 2
|
||||
115 D%(5) = 5:D%(6) = 6:D%(7) = 7:D%(8) = 19
|
||||
120 D%(9) = 9:D%(10) = 13:D%(11) = 1:D%(12) = 2
|
||||
125 D%(13) = 4:D%(14) = 2:D%(15) = 5:D%(16) = 1
|
||||
130 D%(17) = 8:D%(18) = 6:D%(19) = 14:D%(20) = 7
|
||||
135 D%(21) = 8:D%(22) = 1:D%(23) = 2:D%(24) = 6
|
||||
140 D%(25) = 12:D%(26) = 18:D%(27) = 6:D%(28) = 16
|
||||
145 D%(29) = 9:D%(30) = 10
|
||||
200 DIM NG$(20)
|
||||
201 S$ = " "
|
||||
202 DIM T1$(20),T2$(20),T3$(20),T4$(20),T5$(20)
|
||||
203 DIM VC$(30)
|
||||
205 DIM SS$(20):SS$ = "I SEE SOMETHING!!"
|
||||
207 IC$ = "IT'S CLOSED":IO$ = "IT'S OPEN"
|
||||
210 NG$ = "I CAN'T GO IN THAT DIRECTION!!"
|
||||
220 DIM VB$(20),NN$(20),IN$(80)
|
||||
230 DIM NA$(200),NB$(200),NC$(200),ND$(200)
|
||||
240 DIM NY$(20):NY$ = "NOT YET,BUT MAYBE LATER................"
|
||||
250 DIM P1$(20),P2$(20),P3$(20),P4$(20)
|
||||
260 P3$ = "LUBRICATED":P4$ = "RIBBED"
|
||||
345 DIM T%(30)
|
||||
347 IF PEEK (768) < > 255 THEN 0
|
||||
350 FOR X = 1 TO 30:T%(X) = 0: NEXT
|
||||
385 DIM V1%(32,15)
|
||||
390 FOR X = 1 TO 15
|
||||
391 FOR Y = 1 TO 32:V1%(Y,X) = 0
|
||||
392 NEXT Y
|
||||
393 NEXT X
|
||||
402 V1%(1,1) = 3:V1%(1,2) = 8:V1%(1,3) = 57:V1%(1,4) = 13
|
||||
404 V1%(2,1) = 4:V1%(2,2) = 9:V1%(2,3) = 10:V1%(2,4) = 11:V1%(2,5) = 12
|
||||
406 V1%(3,1) = 3:V1%(3,2) = 15:V1%(3,3) = 14:V1%(3,4) = 23
|
||||
408 V1%(4,1) = 1:V1%(4,2) = 48
|
||||
410 V1%(5,1) = 2:V1%(5,2) = 16:V1%(5,3) = 20
|
||||
412 V1%(6,1) = 1:V1%(6,2) = 56
|
||||
414 V1%(7,1) = 1:V1%(7,2) = 61
|
||||
416 V1%(8,1) = 1:V1%(8,2) = 46
|
||||
418 V1%(9,1) = 2:V1%(9,2) = 17:V1%(9,3) = 60
|
||||
420 V1%(10,1) = 1:V1%(10,2) = 18
|
||||
422 V1%(11,1) = 1:V1%(11,2) = 48
|
||||
424 V1%(12,1) = 1:V1%(12,2) = 19
|
||||
426 V1%(13,1) = 1:V1%(13,2) = 21
|
||||
428 V1%(14,1) = 2:V1%(14,2) = 41:V1%(14,3) = 22
|
||||
430 V1%(15,1) = 1:V1%(15,2) = 47
|
||||
432 V1%(16,1) = 1:V1%(16,2) = 26
|
||||
434 V1%(17,1) = 1:V1%(17,2) = 24
|
||||
436 V1%(18,1) = 2:V1%(18,2) = 28:V1%(18,3) = 65
|
||||
438 V1%(19,1) = 3:V1%(19,2) = 14:V1%(19,3) = 25:V1%(19,4) = 43
|
||||
440 V1%(20,1) = 1:V1%(20,2) = 34
|
||||
442 V1%(21,1) = 3:V1%(21,2) = 33:V1%(21,3) = 32:V1%(21,4) = 49
|
||||
444 V1%(22,1) = 2:V1%(22,2) = 27:V1%(22,3) = 48
|
||||
446 V1%(23,1) = 1:V1%(23,2) = 30
|
||||
448 V1%(24,1) = 2:V1%(24,2) = 69:V1%(24,3) = 29
|
||||
450 V1%(25,1) = 2:V1%(25,2) = 14:V1%(25,3) = 43
|
||||
452 V1%(26,1) = 1:V1%(26,2) = 49
|
||||
454 V1%(27,1) = 2:V1%(27,2) = 42:V1%(27,3) = 36
|
||||
456 V1%(28,1) = 3:V1%(28,2) = 77:V1%(28,3) = 55:V1%(28,4) = 83
|
||||
458 V1%(29,1) = 1:V1%(29,2) = 35
|
||||
460 V1%(30,1) = 1:V1%(30,2) = 34
|
||||
462 V1%(31,1) = 1:V1%(31,2) = 73
|
||||
500 DIM D$(1):D$ = CHR$ (4)
|
||||
520 DIM OT$(20):OT$ = "OPEN SIN SIN SIN SIN ,L560"
|
||||
530 DIM CT$(20):CT$ = "CLOSE SIN SIN SIN SIN "
|
||||
540 DIM RT$(20):RT$ = "READ SIN SIN SIN SIN ,R"
|
||||
550 DIM OD$(20):OD$ = "OPEN LOG LOG LOG LOG ,L560"
|
||||
560 DIM CD$(20):CD$ = "CLOSE LOG LOG LOG LOG "
|
||||
580 DIM RD$(20):RD$ = "READ LOG LOG LOG LOG ,R"
|
||||
585 ONERR GOTO 8000
|
||||
590 IF QQ = 1 THEN 890
|
||||
600 HOME : VTAB 10: HTAB 15: PRINT "PLEASE WAIT": VTAB 13: HTAB 12: PRINT "GAME BEING LOADED"
|
||||
602 VTAB 20: HTAB 7: PRINT "DUPLICATION FOR OTHER THAN ": HTAB 5: PRINT "BACKUP PURPOSES IS A VIOLATION": HTAB 11: PRINT "OF APPLICABLE LAWS"
|
||||
605 PRINT D$;"BLOAD CHAIN,A520"
|
||||
610 CALL 520" SIN SIN "
|
||||
890 HOME
|
||||
900 PRINT : PRINT "INSTALL DISK WITH SAVED GAME IN DRIVE 1 HIT THE SPACE BAR TO CONTINUE"
|
||||
905 ONERR GOTO 2000
|
||||
910 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 990
|
||||
920 GOTO 910
|
||||
990 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868
|
||||
1000 D$ = CHR$ (4):OS$ = "OPEN SG":CS$ = "CLOSE SG"
|
||||
1020 PRINT D$;OS$: PRINT D$;"READ SG"
|
||||
1030 INPUT C: INPUT M: INPUT N: INPUT V
|
||||
1031 INPUT GG: INPUT R: INPUT QC
|
||||
1035 INPUT DL: INPUT FH: INPUT ID: INPUT RR
|
||||
1036 INPUT TE: INPUT SS: INPUT UR: INPUT MA
|
||||
1040 INPUT DE: INPUT TI: INPUT DD: INPUT PI: INPUT WA
|
||||
1050 INPUT ST: INPUT AP: INPUT AS: INPUT ID: INPUT BU
|
||||
1060 INPUT R: INPUT T: INPUT A: INPUT BD: INPUT TV
|
||||
1070 INPUT GC: INPUT AA: INPUT WR: INPUT FH: INPUT SC
|
||||
1080 INPUT WI: INPUT RR: INPUT BG: INPUT BB: INPUT BW
|
||||
1090 INPUT BI
|
||||
1100 FOR X = 1 TO 30: INPUT D%(X): NEXT
|
||||
1110 INPUT T1$: INPUT T2$: INPUT T3$: INPUT T4$: INPUT T5$
|
||||
1120 INPUT P1$: INPUT P2$
|
||||
1130 INPUT P3$: INPUT P4$
|
||||
1140 FOR X = 1 TO 30: INPUT T%(X): NEXT
|
||||
1150 FOR X = 1 TO 15
|
||||
1160 FOR Y = 1 TO 32: INPUT V1%(Y,X)
|
||||
1170 NEXT Y
|
||||
1180 NEXT X
|
||||
1185 PRINT D$;CS$
|
||||
1190 ONERR GOTO 8000
|
||||
1191 PRINT : PRINT "INSTALL 'SOFTPORN ADVENTURE' IN DRIVE 1 HIT THE SPACE BAR TO CONTINUE"
|
||||
1192 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 1195
|
||||
1193 GOTO 1192
|
||||
1195 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868
|
||||
1200 GOTO 600
|
||||
2000 PRINT "DISK ERROR- HIT RESET TO RESTART OR:": GOTO 900
|
||||
8000 PRINT "DISK ERROR- HIT RESET TO RESTART OR:": GOTO 1191
|
||||
Loading…
Reference in a new issue