home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug020.arc / CLEAR.MWB < prev    next >
Text File  |  1979-12-31  |  1KB  |  44 lines
  1.  
  2. 00100 REM THIS IS A COLLECTION OF SCREEN CLEARING ROUTINES
  3. 00110 REM BY MALCOLM OSBORNE BASED ON THE IDEAS OF C TRINGHAM
  4. 00120 CLS:PRINT"PLEASE INDICATE WHICH ROUTINE YOU WOULD LIKE TO SEE"
  5. 00130 CURS 1,2:PRINT"(1) SIDE WIPE"
  6. 00140 CURS 1,3:PRINT"(2) SIDE WIPE [2]"
  7. 00150 CURS 1,4:PRINT"(3) CENTRE WIPE"
  8. 00160 CURS 1,5:PRINT"(4) ROTATING WIPE"
  9. 00170 CURS 1,6:PRINT"(5) COMBINATION WIPE"
  10. 00180 A1$=KEY:IF A1$="" THEN 180
  11. 00190 N=ASC(A1$):LET N=N-48:IF N<0 OR N>5 THEN 180 ELSE GOTO240
  12. 00200 CLS:REM THIS FILLS THE SCREEN
  13. 00210 FOR X=1 TO 40
  14. 00220 PRINT"This is demonstration text ";
  15. 00230 NEXT X:LORES:RETURN
  16. 00240 ON N GOTO 390,440,330,250,250
  17. 00250 REM ROTATING WIPE
  18. 00260 GOSUB 200:FOR X=0 TO 127
  19. 00270 PLOT 0,0 TO X,47
  20. 00280 NEXT X
  21. 00290 FOR X=47 TO 0 STEP -1
  22. 00300 PLOT 0,0 TO 127,X
  23. 00310 NEXT X
  24. 00320 IF N<>5 THEN GOTO 480 ELSE 350
  25. 00330 REM CENTRE WIPE
  26. 00340 GOSUB 200
  27. 00350 FOR X=1 TO 64
  28. 00360 PLOTR 63+X,0 TO 63+X,47:PLOTR 64-X,0 TO 64-X,47
  29. 00370 NEXT X
  30. 00380 GOTO 480
  31. 00390 REM SIDE WIPE
  32. 00400 GOSUB 200:FOR X=1 TO 127
  33. 00410 PLOTR X,1 TO X,47
  34. 00420 NEXT X
  35. 00430 GOTO 480
  36. 00440 REM SIDE WIPE [2]
  37. 00450 GOSUB 200:FOR X=127 TO 1 STEP -1
  38. 00460 PLOTR X,1 TO X,47
  39. 00470 NEXT X
  40. 00480 CURS 1,16:PRINT"would you like to see another one?"
  41. 00490 A1$=KEY:IF A1$="" THEN 490
  42. 00500 IF A1$="Y" OR A1$="y" THEN RUN
  43. 0 CURS 1,16:PRINT"would you like to see another one?"
  44. 0