34 lines
1.5 KiB
QBasic
34 lines
1.5 KiB
QBasic
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
|