home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG020.ARC / CLEAR.DOC < prev    next >
Text File  |  1979-12-31  |  2KB  |  53 lines
  1.  
  2.                        CLEARING THE SCREEN
  3. AR┼á YO╒ LOOKIN╟ FO╥ ┴ SCREE╬ CLEARIN╟ ROUTIN┼ THA╘ WIL╠á SMARTE╬ ì
  4. U╨á YOU╥á BASI├ PROGRAMS┐á ╔ SA╫ THES┼ ROUTINE╙ I╬ ONLIN┼á AN─á ╔ ì
  5. THOUGH╘á THA╘á I╞ YO╒ COUL─ SE┼ THE═ AL╠ TOGETHE╥ YO╒ WIL╠ GE╘á ┴ ì
  6. BETTE╥ IDEA«á SIMPL┘ TYP┼ I╬ TH┼ PROGRA═ A╙ WRITTE╬ AN─ THE╬ TYP┼ ì
  7. RUN«á I╞á THER┼ I╙ ┴ ROUTIN┼ THA╘ YO╒ LIK┼ THE╬ JUS╘ TYP┼ I╬á TH┼ ì
  8. ROUTIN┼ BETWEE╬ TH┼ REM'╙ I╬ YOU╥ OW╬ PROGRA═ I╬ PLAC┼ O╞ TH┼ CL╙ ì
  9. COMMAND AND  YO╒ WIL╠ B┼á I╬ BUSINESS. BEST OF LUCK
  10. REGARDS MALCOLM OSBORNE
  11.  
  12. 00100 REM THIS IS A COLLECTION OF SCREEN CLEARING ROUTINES
  13. 00110 REM BY MALCOLM OSBORNE BASED ON THE IDEAS OF C TRINGHAM
  14. 00120 CLS:PRINT"PLEASE INDICATE WHICH ROUTINE YOU WOULD LIKE TO SEE"
  15. 00130 CURS 1,2:PRINT"(1) SIDE WIPE"
  16. 00140 CURS 1,3:PRINT"(2) SIDE WIPE [2]"
  17. 00150 CURS 1,4:PRINT"(3) CENTER WIPE"
  18. 00160 CURS 1,5:PRINT"(4) ROTATING WIPE"
  19. 00170 CURS 1,6:PRINT"(5) COMBINATION WIPE"
  20. 00180 A1$=KEY:IF A1$="" THEN 180
  21. 00190 N=ASC(A1$):LET N=N-48:IF N<0 OR N>5 THEN 180 ELSE GOTO240
  22. 00200 CLS:REM THIS FILLS THE SCREEN
  23. 00210 FOR X=1 TO 40
  24. 00220 PRINT"This is demonstration text ";
  25. 00230 NEXT X:LORES:RETURN
  26. 00240 ON N GOTO 390,440,330,250,250
  27. 00250 REM ROTATING WIPE
  28. 00260 GOSUB 200:FOR X=0 TO 127
  29. 00270 PLOT 0,0 TO X,47
  30. 00280 NEXT X
  31. 00290 FOR X=47 TO 0 STEP -1
  32. 00300 PLOT 0,0 TO 127,X
  33. 00310 NEXT X
  34. 00320 IF N<>5 THEN GOTO 480 ELSE 350
  35. 00330 REM CENTER WIPE
  36. 00340 GOSUB 200
  37. 00350 FOR X=1 TO 64
  38. 00360 PLOTR 63+X,0 TO 63+X,47:PLOTR 64-X,0 TO 64-X,47
  39. 00370 NEXT X
  40. 00380 GOTO 480
  41. 00390 REM SIDE WIPE
  42. 00400 GOSUB 200:FOR X=1 TO 127
  43. 00410 PLOTR X,1 TO X,47
  44. 00420 NEXT X
  45. 00430 GOTO 480
  46. 00440 REM SIDE WIPE [2]
  47. 00450 GOSUB 200:FOR X=127 TO 1 STEP -1
  48. 00460 PLOTR X,1 TO X,47
  49. 00470 NEXT X
  50. 00480 CURS 1,16:PRINT"would you like to see another one?"
  51. 00490 A1$=KEY:IF A1$="" THEN 490
  52. 00500 IF A1$="Y" OR A1$="y" THEN RUN
  53.