Demonstrates techniques for clearing/filling the screen, scrolling text, aligning decimal numbers, etc.
Appears on
Library tape of the Chicago Area Timex Users Group.
Gallery
Source Code
0 REM E`RND\.'*F7 SAVE TAN LEN \:: / PAUSE 50 CLS 60 BORDER 1: PAPER 6: INK 0 65 LET B$=" TIMEX SINCLAIR TS 2068 " 70 LET A$="PROGRAMMING TECHNIQUES FOR THE" 75 FOR N=1 TO 30 80 PRINT AT 11,N;A$(N): PAUSE 5: BEEP .03,9 85 PRINT AT 12,31-N;B$(31-N) 90 FOR M=1 TO 5 95 NEXT M 100 NEXT N 105 FOR N=1 TO 21 110 FOR M=1 TO 7 115 NEXT M 120 NEXT N 125 FOR K=1 TO 100: NEXT K 130 CLS 135 LET A$=" TOTAL SCREEN BLACKOUT ROUTINE " 140 PRINT A$ 145 FOR K=1 TO 100: NEXT K 150 GO SUB 9000 155 PRINT AT 10,0;A$ 160 FOR K=1 TO 150: NEXT K 165 LET A$=" CLEAR ALL OR PART OF THE SCREEN" 170 PRINT AT 10,0;A$ 175 PAUSE 10 180 LET C$=" " 185 FOR F=0 TO 9 190 PRINT AT F,0;C$ 195 NEXT F 200 FOR N=1 TO 100: NEXT N 205 FOR F=11 TO 21 210 PRINT C$ 215 NEXT F 220 PRINT AT 21,14;"OOPS" 225 CLS 230 LET R$="TELETYPING IN FROM THE RIGHT " 235 LET L$="TELETYPING IN FROM THE LEFT " 240 FOR N=1 TO 30 245 PRINT AT 5,N;L$(N): BEEP .03,5 250 PRINT AT 15,31-N;R$(31-N): BEEP .03,8 255 FOR M=1 TO 5 260 NEXT M 265 NEXT N 270 FOR N=1 TO 125: NEXT N 275 CLS 280 FOR I=1 TO 256 285 PRINT "\::"; 290 BEEP .01,9 295 NEXT I 300 PRINT AT 4,1;"FILLING UP PART OF THE SCREEN" 305 PRINT AT 6,12;" SLOWLY " 310 FOR N=1 TO 250: NEXT N 315 PRINT AT 6,12;"\::\::\::\::\::\::\::\::" 320 PRINT AT 4,1;"CLEARING UP THE SCREEN..SLOWLY" 325 LET L=0 330 LET X=7 335 FOR A=1 TO 256 340 PRINT AT X,L;" " 345 BEEP .05,3 350 LET L=L+1 355 IF L>=32 THEN LET X=X-1 360 IF L>=32 THEN LET L=0 365 NEXT A 370 FOR K=1 TO 100: NEXT K 375 GO SUB 9000 380 LET C$=" " 385 LET L=0 390 LET R=0 395 FOR I=1 TO 88 400 PRINT AT L,R;C$ 405 BEEP .05,4 410 LET L=L+1 415 IF L>=22 THEN LET R=R+1 420 IF L>=22 THEN LET L=0 425 NEXT I 430 PRINT AT 10,5;"CLEAR SLOWLY FROM LEFT" 435 PAUSE 100 440 PRINT AT 10,5;"OR QUICKLY FROM THE RIGHT" 445 FOR N=1 TO 125: NEXT N 450 LET C$=" " 455 LET L=0 460 LET R=28 465 FOR I=1 TO 154 470 PRINT AT L,R;C$ 475 LET L=L+1 480 IF L>=22 THEN LET R=R-4 485 IF L>=22 THEN LET L=0 490 BEEP .007,9 495 NEXT I 500 REM 505 GO SUB 9000 510 FOR I=1 TO 21 515 PRINT AT I,0;" " 520 IF I>=10 THEN PRINT AT 9,0;" OR CLEARING IT VERY QUICKLY " 525 NEXT I 530 PAUSE 60 535 CLS 540 PRINT AT 3,3;"MOVING ACROSS THE SCREEN" 545 FOR N=1 TO 150: NEXT N 550 LET A=15 555 FOR B=0 TO 21 560 INK 0: PRINT AT A-2,B+2;" \': \ :\''" 565 PRINT AT A-1,B;" \ : \ :\': \ : " 570 PRINT AT A,B;" \ :\..\.:\ :\..\.: " 580 BEEP .05,1 585 NEXT B 590 GO SUB 9000 595 LET L=14 600 FOR I=1 TO 7 605 LET C$=" " 610 PAPER 6: INK 1: LET V$="VVVVVVVVV" 615 PRINT AT L,12;V$ 620 PRINT AT L+1,12;C$ 625 LET L=L-1 630 BEEP .01,9 635 NEXT I 640 PRINT AT 10,13;"RAISING" 645 PRINT AT 12,15;"THE" 650 PRINT AT 14,13;"CURTAIN" 655 FOR N=1 TO 125: NEXT N 660 PRINT AT 10,12;C$ 665 PRINT AT 10,13;" LOWER" 670 FOR N=1 TO 125: NEXT N 675 LET L=8 680 FOR I=1 TO 8 685 LET V$="VVVVVVVVV" 690 LET D$="\::\::\::\::\::\::\::\::\::" 695 PRINT AT L,12;V$ 700 PRINT AT L-1,12;D$ 705 LET L=L+1 710 BEEP .03,3 715 NEXT I 720 REM PANEL 725 GO SUB 9000 730 LET R=11 735 LET L=7 740 FOR I=1 TO 77 745 PRINT AT L,R;" " 750 LET L=L+1 755 IF L>=14 THEN LET R=R+1 760 IF L>=14 THEN LET L=7 765 BEEP .01,20 770 NEXT I 775 PRINT AT 8,12;"OPEN UP A" 780 PRINT AT 10,12;" MESSAGE" 785 PRINT AT 12,12;" SPACE" 790 FOR K=1 TO 125: NEXT K 795 CLS 800 REM BORDER 805 LET B$="********************************" 810 PRINT B$ 815 FOR I=1 TO 20 820 PRINT AT I,0;"* *" 825 BEEP .01,9 830 NEXT I 835 PRINT B$ 840 PRINT AT 10,8;"CREATE A BORDER" 845 FOR N=1 TO 75: NEXT N: GO TO 1195 1200 1205 1210 GO SUB 9000 1215 DIM A$(32) 1220 LET B$="SCROLL A MESSAGE" 1225 LET C$="ANYWHERE YOU PLEASE" 1230 LET B$=A$+B$+A$ 1235 LET C$=A$+C$+A$ 1240 FOR N=1 TO LEN B$-30 1245 PRINT AT 7,2;B$(N TO N+27) 1250 BEEP .05,3: NEXT N 1255 FOR N=1 TO LEN C$-30 1260 PRINT AT 16,2;C$(N TO N+27) 1265 BEEP .05,8: NEXT N 1270 CLS : GO SUB 1325 1275 FOR I=16 TO 0 STEP -1 1280 PRINT AT I,17;"\::" 1285 PRINT ,"\ :U\: " 1290 PRINT ,"\ :S\: " 1295 PRINT ,"\ :A\: " 1300 PRINT ,"\.'\::\'." 1305 PRINT ,"/V\\": FOR N=1 TO 20: NEXT N 1310 IF I<=15 THEN PRINT AT I+6,15;" " 1315 NEXT I 1320 FOR N=1 TO 125: NEXT N: GO TO 1360 1325 INK 1: PRINT AT 2,5;"\::\::\::" 1330 PRINT AT 3,5;"\::": PRINT AT 3,7;"\::": PRINT AT 4,5;"\::\::\::" 1335 FOR C=9 TO 0 STEP -1 1340 INK 0: PRINT AT 3,6;C: FOR N=1 TO 30: NEXT N 1345 IF C=0 THEN PRINT AT 21,0;"BLASTOFF": FOR N=1 TO 75: NEXT N 1350 NEXT C 1355 RETURN 1385 FOR N=21 TO 0 STEP -1 1390 PRINT AT N,3;" GRAPHICS USING LOOPS " 1395 FOR K=1 TO 10: NEXT K 1400 PRINT AT N,0;" " 1405 BEEP .01,7: BEEP .04,8: BEEP .03,9: NEXT N 1410 CLS : BORDER 0 1415 INK 0: PRINT AT 3,5;" A STEP-1 LOOP ": FOR N=1 TO 75: NEXT N 1420 FOR N=25 TO 0 STEP -1 1425 INK 2: PRINT AT 11,N;"\:.\..\.: ": INK 0: PRINT AT 12,N;"O O " 1430 REM SPACE AFTER GRAPHICS 1435 FOR K=1 TO 10: NEXT K: BEEP .01,5: BEEP .02,10: BEEP .03,15: NEXT N 1440 PRINT AT 3,5;"OR A FOR-NEXT LOOP ": FOR N=1 TO 75: NEXT N 1445 FOR N=0 TO 28 1450 INK 2: PRINT AT 11,N;" \:.\..\.:": INK 0: PRINT AT 12,N;" O O" 1455 BEEP .01,15: BEEP .01,10: BEEP .01,5: NEXT N 1460 REM **SPACE BEFORE GRAPHICS 1465 FOR N=0 TO 17 1470 INK 1 : PRINT AT N,0;" " 1475 PRINT AT N+1,0;" \..\. " 1480 PRINT AT N+2,0;" \ : " 1485 PRINT AT N+3,0;" \ :\::\::" 1490 PRINT AT N+4,0;" \ :" 1495 FOR K=1 TO 10: NEXT K: NEXT N 1500 SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8: FOR N=1 TO 100: NEXT N: SOUND 8,0;9,0;10,0 1540 CLS 1545 PRINT "HAVING TROUBLE GETTING DECIMALS" 1550 PRINT "TO LINE UP,OR HAVING ZEROS AFTERA DECIMAL?" 1555 PRINT ,,"HERE IS A SHORT PROGRAM TO DO IT" 1560 PRINT ,,"FIRST GIVE YOUR NUMBER THE VALUE A THEN GOSUB TO THIS ROUTINE:" 1565 PRINT ,,"9000 LET A$=STR$ A" 1570 PRINT "9010 IF A$(1)= . THEN LET A$= O +A$" 1575 PRINT "9020 LET B=LEN STR$ INT VAL A$" 1580 PRINT "9030 PRINT TAB 27-B; (A$+( . AND B=LEN A$)+ 00 )( TO B+3)" 1585 PRINT "9040 LET A=A+10" 1590 PRINT "9050 RETURN" 1595 INPUT "WANT A COPY Y/N ?";A$: IF A$="Y" THEN COPY 1600 GO SUB 9000 1605 FOR L=10 TO 0 STEP -1 1610 FOR R=11 TO 21 1615 LET C$=" " 1620 PRINT AT L,0;C$ 1625 PRINT AT R,16;C$ 1630 NEXT L 1635 NEXT R 1640 PRINT AT 5,3;"YOU CAN";TAB 19;"CLEAR THE " 1645 PRINT AT 15,2;" SCREEN IN ";TAB 21;"PORTIONS" 1650 GO TO 9070 9000 CLS 9010 REM \::BLACKOUT\:: 9020 BORDER 2: PAPER 6: INK 1: LET B$="\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::" 9030 FOR I=0 TO 21 9040 PRINT B$ 9045 BEEP .01,12 9050 NEXT I 9055 INK 0 9060 RETURN 9995 OUT 244,1: MOVE "PRO TECH.BAS",1 9997 STOP 9998 SAVE "PRO TECH" LINE 1 9999 PAUSE 60: CLS : PRINT AT 10,5;"REWIND TO VERIFY": PAUSE 120: VERIFY "PRO TECH"