Notes

Disk info for 111b_X-Rated_Slide_Show.dsk:

File Name: 111b_X-Rated_Slide_Show/111b_X-Rated_Slide_Show.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 43776
Used Space (bytes): 99584
Physical Size (KB): 140
Free Space (KB): 42
Used Space (KB): 97
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 171
Used Sectors: 389
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 111b_X-Rated_Slide_Show.dsk:

111b_X-Rated_Slide_Show/111b_X-Rated_Slide_Show.dsk DISK VOLUME #254
A 003 A
B 034 AMY
B 034 ANN
B 034 BRIDGET
T 001 DISK
A 002 HELLO
B 002 INVERT
B 034 JANE
B 034 JEAN
B 034 JOANNE
B 034 MARGARET
B 034 MARY
A 005 P
T 001 PRINTER.LIST
B 034 SHEILA
A 005 X-RATED SLIDE SHOW
DOS 3.3 format; 43,776 bytes free; 99,584 bytes used.

Text found in 111b_X-Rated_Slide_Show.dsk/A.bas:

0 PRINT CHR$(4);"BLOAD INVERT"
1 TEXT : HOME :
2 VTAB 12: HTAB 12: PRINT "X-RATED SLIDE SHOW"
3 FOR I = 1 TO 3000: NEXT I
5 HGR : POKE -16302,0
10 RESTORE
11 READ NAME$
12 IF NAME$ = "EOF" THEN 50
14 PRINT
20 PRINT "BLOAD"NAME$",A$2000"
30 GET A$
40 IF ASC(A$) < >32 THEN 11
45 CALL 24576
46 GOTO 30
50 TEXT : HOME
51 VTAB 12: PRINT "DO YOU WISH TO SEE THE SLIDE SHOW AGAIN?": GET A$
52 IF (A$ < >"Y") *(A$ < >"N") THEN 51
53 IF A$ = "Y" THEN 5
55 END
90 DATA JANE,MARGARET,SHEILA,MARY,AMY,ANN
91 DATA JEAN,BRIDGET,JOANNE
99 DATA EOF

Text found in 111b_X-Rated_Slide_Show.dsk/HELLO.bas:

10 PRINT CHR$(4);"RUN A"

Text found in 111b_X-Rated_Slide_Show.dsk/P.bas:

0 PRINT CHR$(4);"BLOAD INVERT"
5 HGR : POKE -16302,0
10 RESTORE
11 READ NAME$: IF NAME$ = "EOF" THEN GOTO 50
12 READ N$: IF N$ = "EOF" THEN GOTO 50
13 READ S$: IF S$ = "EOF" THEN GOTO 50
19 PRINT
20 PRINT "BLOAD"NAME$",A$2000"
21 PRINT CHR$(4);"BLOAD"N$",A$ 4000"
22 PRINT CHR$(4);"BLOAD"S$",A$6000"
30 GET A$
40 IF A$ = "1" THEN GOTO 30
41 IF A$ = "2" THEN GOTO 1000
42 GOTO 30
45 CALL 24576
46 GOTO 30
50 TEXT : HOME
51 VTAB 12: PRINT "DO YOU WISH TO SEE THE SLIDE SHOW AGAIN?": GET A$
52 IF (A$ < >"Y") *(A$ < >"N") THEN 51
53 IF A$ = "Y" THEN 5
54 PRINT "FOR MORE FUN RUN HOT APPLES AND LISTEN CLOSELY( HINT:DISK DRIVE).ENJOY...."
55 END
90 DATA JANE,MARGARET,SHEILA,MARY,AMY,ANN
91 DATA JEAN,BRIDGET,JOANNE
99 DATA EOF
1000 POKE 49237,0: GET A$
1010 IF A$ = "N" AND A = 1 THEN A = 0: GOTO 11
1011 IF A$ = "N" AND A = 0 THEN A = 1: GOTO 2000
1020 IF A$ = "1" THEN POKE 49236,0: GOTO 30
1030 GOTO 1000
2000 N = 24576:LOC = 60: GOSUB 2020:N = 32767:LOC = 62: GOSUB 2020:N = 8192:LOC = 66: GOSUB 2020
2005 A = 1
2010 POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768: GOTO 5000
2020 POKE LOC,N - INT(N/256) *256: POKE LOC +1, INT(N/256): RETURN
5000 GOTO 1000

Text found in 111b_X-Rated_Slide_Show.dsk/X-RATED SLIDE SHOW.bas:

0 PRINT CHR$(4);"BLOAD INVERT"
5 HGR : POKE -16302,0
10 RESTORE
11 READ NAME$: IF NAME$ = "EOF" THEN GOTO 50
12 READ N$: IF N$ = "EOF" THEN GOTO 50
13 READ S$: IF S$ = "EOF" THEN GOTO 50
19 PRINT
20 PRINT "BLOAD"NAME$",A$2000"
21 PRINT CHR$(4);"BLOAD"N$",A$ 4000"
22 PRINT CHR$(4);"BLOAD"S$",A$6000"
30 GET A$
40 IF A$ = "1" THEN GOTO 30
41 IF A$ = "2" THEN GOTO 1000
42 GOTO 30
45 CALL 24576
46 GOTO 30
50 TEXT : HOME
51 VTAB 12: PRINT "DO YOU WISH TO SEE THE SLIDE SHOW AGAIN?": GET A$
52 IF (A$ < >"Y") *(A$ < >"N") THEN 51
53 IF A$ = "Y" THEN 5
54 PRINT "FOR MORE FUN RUN HOT APPLES AND LISTEN CLOSELY( HINT:DISK DRIVE).ENJOY...."
55 END
90 DATA JANE,MARGARET,SHEILA,MARY,AMY,ANN
91 DATA JEAN,BRIDGET,JOANNE
99 DATA EOF
1000 POKE 49237,0: GET A$
1010 IF A$ = "N" AND A = 1 THEN A = 0: GOTO 11
1011 IF A$ = "N" AND A = 0 THEN A = 1: GOTO 2000
1020 IF A$ = "1" THEN POKE 49236,0: GOTO 30
1030 GOTO 1000
2000 N = 24576:LOC = 60: GOSUB 2020:N = 32767:LOC = 62: GOSUB 2020:N = 8192:LOC = 66: GOSUB 2020
2005 A = 1
2010 POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768: GOTO 5000
2020 POKE LOC,N - INT(N/256) *256: POKE LOC +1, INT(N/256): RETURN
5000 GOTO 1000