home *** CD-ROM | disk | FTP | other *** search
/ Playboy's Wet & Wild Women / 111a_Playboy.dsk / STARTUP2.bas < prev   
BASIC Source File  |  2020-07-23  |  1KB  |  27 lines
  1. 5  HIMEM: 32768
  2. 10 D$ =  CHR$(4):F$ = "DRIVER": IF  PEEK( -1101) < >6  THEN  PRINT : PRINT "Requires Extended //e or //c to run.": END 
  3. 12  PRINT D$"PR#3": PRINT : PRINT : PRINT 
  4. 20  TEXT : HOME : GOSUB 100
  5. 21  PRINT D$"PREFIX/"
  6. 22  PRINT D$"BLOADDRIVER"
  7. 25  FOR X = 1 TO 8
  8. 30  PRINT D$"BLOADPAC.PIC"X".AUX,A$4000": CALL 36876: CALL 36891
  9. 35  PRINT D$"BLOADPAC.PIC"X",A$4000": CALL 36876
  10. 37  HOME 
  11. 40 Z =  PEEK( -16297) + PEEK( -16300) - PEEK( -16302) + PEEK( -16304) - PEEK(49246)
  12. 55  IF  PEEK(49249) <128  AND U <300  THEN U = U +1: GOTO 55
  13. 60 U = 0: TEXT : PRINT : HOME : NEXT : GOTO 25
  14. 100  INVERSE : PRINT  SPC( 78)
  15. 105  FOR X = 1 TO 20: VTAB X: PRINT " ";: HTAB 79: PRINT " ": NEXT : NORMAL 
  16. 110  INVERSE : PRINT  SPC( 79): NORMAL : POKE 34,3: POKE 32,3: POKE 33,73: POKE 35,18: HOME 
  17. 120  PRINT "                      Playboy's Wet & Wild Women"
  18. 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."
  19. 130  VTAB 13: PRINT  SPC( 50);"- TS"
  20. 135  VTAB 16: PRINT "                       [> Press any key to begin <]"
  21. 140  POKE  -16368,0
  22. 145  VTAB 16: HTAB 24: PRINT "/\";: HTAB 50: PRINT "\/"
  23. 150  IF  PEEK(49152) >127  THEN 170
  24. 155  VTAB 16: HTAB 24: PRINT "\/";: HTAB 50: PRINT "/\"
  25. 160  IF  PEEK(49152) <128  THEN 145
  26. 170 KEY =  PEEK(49152): POKE  -16368,0
  27. 175  RETURN