home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / HANDICAP / SIGN51_2.ZIP / PREMENU.BAS (.txt) next >
Encoding:
GW-BASIC  |  1991-07-12  |  1.6 KB  |  35 lines
  1. 5  COMMON ZZ,XX
  2. 10  REM  PREMENU.BAS, revised to use or change the default speed.
  3. 20  KEY OFF:CLS:SCREEN 1:COLOR 1,7
  4. 30  CLS:PRINT"   SIGN FRIENDS WAS WRITTEN FOR AN XT.
  5. 40  PRINT"EFFORT HAS BEEN MADE TO ADJUST SPEEDS
  6. 50  PRINT"ACCORDING TO FASTER MACHINES, ALSO.":PRINT:PRINT"   IF FURTHER ADJUSTMENT IS DESIRED--":PRINT:PRINT
  7. 60  PRINT"PRESSING:":PRINT:PRINT"      THE + KEY FOR FASTER":PRINT"      OR THE - TO SLOW DOWN":PRINT:PRINT"THE ANIMATION AT THIS POINT IN THE "
  8. 70  PRINT"PROGRAM, WILL SET SPEEDS ACCORDINGLY.":FOR GF= 1 TO 6:PRINT:NEXT
  9. 80  PRINT"       PRESS KEY TO CONTINUE..."
  10. 90      KU$=INKEY$:IF KU$="" THEN 90
  11. 100  CLS:LOCATE 1,10:PRINT"SPEED ADJUSTMENT UTILITY"
  12. 105  LOCATE 3,14:PRINT"By Ross Calloway"
  13. 110  LOCATE 20,10:PRINT "PRESS <-> for slower":LOCATE 21,16:PRINT "<+> for faster":LOCATE 22,16:PRINT"<ESC> for menu";
  14. 120  A$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1 d1g1l1h1f1r1e1d6F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  15. 130  B$="U6H6L11G1D1F1R5G1D1F1D1F1D1F1R3D2"
  16. 140  DRAW "S14C0M215,110C3XB$;":FOR DL=0 TO 900+ZZ:NEXT:DRAW "C0M140,130C3XA$;":FOR DL=0 TO 900+ZZ:NEXT
  17. 150  DRAW "C0M215,110  XB$;":DRAW "C0M140,130  XA$;C3"
  18. 160  IF SE$=CHR$(27) THEN 280 ELSE DRAW "C0M200,100TA+90C3XA$;":FOR DL=0 TO 900+ZZ:NEXT:DRAW "C0M 90,125TA-90C3XB$;":FOR DL=0 TO 900+ZZ:NEXT
  19. 170  DRAW "C0M200,100TA+90XA$;":DRAW "C0M 90,125TA-90XB$;C3TA0"
  20. 180  SE$=INKEY$:IF SE$="" THEN 120
  21. 185  IF SE$="-" THEN ZZ=ZZ+400 ELSE IF SE$="+" THEN ZZ=ZZ-400:GOTO 230
  22. 190  'IF SE$="-" THEN ZZ=ZZ+400:GOTO 230
  23. 200  'IF SE$="+" THEN ZZ=ZZ-400:GOTO 230
  24. 210  IF SE$=CHR$(27) THEN 280
  25. 220  IF SE$<>"+" AND SE$<>"-" THEN BEEP:GOTO 180
  26. 230  IF ZZ=>0 THEN 120
  27. 240  CLS:LOCATE 21,1:PRINT"Sorry, I cannot go any faster!          Press a key to continue...";
  28. 250  ZZ=0
  29. 260  GO$=INKEY$:IF GO$=""THEN 260
  30. 270  GOTO 100
  31. 280  OPEN "O",1,"SPEED.DAT"
  32. 290  PRINT #1,ZZ
  33. 300  CLOSE
  34. 310  CHAIN "TEST2",,ALL
  35.