55 IF PEEK(49249) <128 AND U <300 THEN U = U +1: GOTO 55
60 U = 0: TEXT : PRINT : HOME : NEXT : GOTO 25
100 INVERSE : PRINT SPC( 78)
105 FOR X = 1 TO 20: VTAB X: PRINT " ";: HTAB 79: PRINT " ": NEXT : NORMAL
110 INVERSE : PRINT SPC( 79): NORMAL : POKE 34,3: POKE 32,3: POKE 33,73: POKE 35,18: HOME
120 PRINT " Playboy's Wet & Wild Women"
125 PRINT : PRINT " Hello all. Welcome to a Europa BBS special production. This is": PRINT "a special summer issue digitized from Playboy's Wet & Wild Women.": PRINT "None of these pictures are especially rude so sit back and enjoy": PRINT "the summer's view."
130 VTAB 13: PRINT SPC( 50);"- TS"
135 VTAB 16: PRINT " [> Press any key to begin <]"