1 REM SUPER SHEET 2 DIM N(200):DIM N$(200):DIM LAB$(200):DIM S(600):DIM TYP(600):DIM NUM(600) 3 FOR N=1 TO 200:N$(N)=" ":NEXT 5 KEY OFF:SCREEN 2:SCREEN 0,1,0,0:VIEW PRINT 1 TO 24:COLOR 15,0,0:CLS 6 FOR P=0 TO 15:PALETTE P,0:NEXT 7 SCREEN 0,1,2,0:CLS:SCREEN 0,1,3,0:CLS:SCREEN 0,1,1,0:CLS:SCREEN 0,1,0,0:SCREEN 0,1,0,0:CLS 10 COLOR 15:LOCATE 8,29:PRINT "S U P E R S H E E T" 15 COLOR 11:LOCATE 10,27:PRINT "Created by peron" 20 COLOR 12:LOCATE 12,29:PRINT "Programmed by peron" 25 COLOR 14:LOCATE 6,20:PRINT STRING$(40,205):LOCATE 14,20:PRINT STRING$(40,205) 30 PP=100:PALETTE 15,8:PALETTE 14,4:FOR P=1 TO PP:NEXT:PALETTE 15,7:PALETTE 14,12:PALETTE 11,3:PALETTE 12,4:FOR P=1 TO 15:PALETTE P,P:NEXT 31 SCREEN 0,1,2,0:GOSUB 1000:SCREEN 0,1,3,0:GOSUB 2000:SCREEN 0,1,0,0 35 LOCATE 24,1:FOR A=1 TO 7:PRINT:NEXT:VIEW PRINT 2 TO 24:LOCATE 24,1:FOR A=1 TO 8:PRINT:NEXT:VIEW PRINT 1 TO 24 40 COLOR 11,1:LOCATE 1,1:PRINT "Options:";:COLOR 15:PRINT " File Edit ";:IF S2=0 THEN COLOR 8 ELSE COLOR 15 41 PRINT "Calculate ";:IF N2=0 THEN COLOR 8 ELSE COLOR 15 42 PRINT "Jazzy ";:COLOR 15:PRINT "Info "; 43 COLOR 14,4:PRINT " (c)1989 Rufus Pro ";:COLOR 0,7:PRINT " Tandy 1000ex":COLOR 15,0:LOCATE 2,1:PRINT STRING$(80,205):COLOR 13:LOCATE 2,4:PRINT DATE$ 44 HELP=0 45 GOSUB 900 50 IF A$="E" OR A$="e" THEN HELP=1:GOTO 100 55 IF A$="F" OR A$="f" THEN HELP=2:GOTO 400 56 IF N2=0 THEN 65 60 IF A$="J" OR A$="j" THEN HELP=3:GOTO 600 65 IF A$="C" OR A$="c" THEN HELP=4:GOTO 700 66 IF A$=CHR$(27) THEN SCREEN 2:CHDIR "..":RUN "menu" 70 IF ASC(RIGHT$(A$,1))=157 THEN LOCATE 1,1:COLOR 15,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Clearing memory...":FOR N=1 TO N2:N$(N)=" ":LAB$(N)="":NEXT:S=0:S2=0:XT=0:YT=0:N2=0:VIEW PRINT 3 TO 25:COLOR ,0:CLS:VIEW PRINT 1 TO 25:GOTO 40 80 IF A$="I" OR A$="i" THEN 3000 95 GOTO 45 100 IF N2<>0 THEN 200 105 REM DEFINE NEW SHEET 106 COLOR 14,1:LOCATE 1,1:PRINT "*EDIT* ";:COLOR 15:PRINT "Use the number pad to difine cell size :: ";:COLOR 0,3:PRINT " ENTER=SELECT :: ESC=CANCEL " 110 COLOR 2,0 114 X=1:Y=4:LOCATE Y,X:PRINT STRING$(8,219) 115 GOSUB 900:COLOR 2 116 IF A$="4" AND X<>1 THEN 135 117 IF A$="4" AND X=1 THEN PALETTE 2,14:PLAY "C40A40":PALETTE 2,2 118 IF A$="6" AND X<>71 THEN 140 119 IF A$="6" AND X=71 THEN PALETTE 2,14:PLAY "C40A40C40":PALETTE 2,2 120 IF A$="2" AND Y<>22 THEN Y=Y+2:FOR A=1 TO X STEP 10:LOCATE Y,A:PRINT STRING$(8,219):NEXT 121 IF A$="2" AND Y=22 THEN PALETTE 2,14:PLAY "C40A40C40":PALETTE 2,2 122 IF A$="8" AND Y<>4 THEN FOR A=1 TO X STEP 10:LOCATE Y,A:PRINT STRING$(8,32):NEXT:Y=Y-2 123 IF A$="8" AND Y=4 THEN PALETTE 2,14:PLAY "C40A40C40":PALETTE 2,2 125 IF ASC(A$)=27 THEN VIEW PRINT 3 TO 24:CLS:VIEW PRINT 1 TO 24:GOTO 40 126 IF ASC(A$)=13 THEN XT=X:YT=Y:ROWS=(10+X)/10:COLS=(Y/2)-1:N2=ROWS*COLS:GOTO 200 130 GOTO 115 135 FOR A=4 TO Y STEP 2:LOCATE A,X:PRINT STRING$(8,32):NEXT:X=X-10:GOTO 115 140 X=X+10:FOR A=4 TO Y STEP 2:LOCATE A,X:PRINT STRING$(8,219):NEXT:GOTO 115 145 GOTO 115 150 FOR A=4 TO Y STEP 2:LOCATE A,X:PRINT STRING$(8,32):NEXT:X=X-10:GOTO 115 155 X=X+10:FOR A=4 TO Y STEP 2:LOCATE A,X:PRINT STRING$(8,219):NEXT:GOTO 115 200 REM EDIT SHEET IN MEMORY 201 IF DSP=0 THEN 209 ELSE VIEW PRINT 3 TO 24:CLS:VIEW PRINT 1 TO 24 202 N=0:FOR Y=4 TO YT STEP 2:FOR X=1 TO XT STEP 10 203 N=((X+10/10)+((Y/2)-3)):T$=N$(N):R=2:IF LAB$(N)="F" THEN R=6 204 COLOR 15,R:LOCATE Y,X:PRINT T$:GOSUB 950 205 NEXT:NEXT:DSP=0:IF DSPFLG=1 THEN DSPFLG=0:GOTO 40 209 COLOR 14,1:LOCATE 1,1:PRINT "*EDIT* ";:COLOR 15:PRINT "Select Cell to define use :: ";:COLOR 11,4:PRINT " T=TEXT :: F=FORM :: N=NUM :: ENT/DEL/ESC " 210 X=1:Y=4 211 N=((X+10/10)+((Y/2)-3)):T$=N$(N):COLOR 11,5:LOCATE Y,X:PRINT T$:R=2:IF LAB$(N)="F" THEN R=6 215 GOSUB 900 216 IF A$="8" AND Y<>4 THEN COLOR 15,R:LOCATE Y,X:PRINT T$:Y=Y-2:GOTO 211 217 IF A$="2" AND Y<>YT THEN COLOR 15,R:LOCATE Y,X:PRINT T$:Y=Y+2:GOTO 211 218 IF A$="4" AND X<>1 THEN COLOR 15,R:LOCATE Y,X:PRINT T$:X=X-10:GOTO 211 219 IF A$="6" AND X<>XT THEN COLOR 15,R:LOCATE Y,X:PRINT T$:X=X+10:GOTO 211 220 IF A$="T" AND LAB$(N)<>"F" THEN 250 221 IF A$="t" AND LAB$(N)<>"F" THEN 250 225 IF A$="N" AND LAB$(N)<>"F" THEN 300 226 IF A$="n" AND LAB$(N)<>"F" THEN 300 230 IF A$="F" OR A$="f" THEN 350 235 IF A$=CHR$(27) THEN COLOR 15,R:LOCATE Y,X:PRINT T$:GOTO 40 240 IF A$=CHR$(8) AND LAB$(N)<>"F" THEN LAB$(N)="":N$(N)=" ":GOTO 211 245 GOTO 215 250 T2$=T$:COLOR 15,1:LOCATE Y,X:PRINT STRING$(8,32) 252 B$="" 255 GOSUB 900 256 COLOR 7,1 260 IF ASC(A$)=27 THEN T$=T2$:GOTO 211 265 IF ASC(A$)=>65 AND ASC(A$)<=122 AND LEN(B$)<>8 THEN B$=B$+A$:T$=B$+STRING$(8-LEN(B$),32):LOCATE Y,X:PRINT T$ 266 IF A$=CHR$(13) AND LEN(T$)=0 THEN LAB$(N)="":N$(N)=T$:GOTO 211 270 IF ASC(A$)=13 AND LEN(T$)>0 THEN LAB$(N)="T":N$(N)=T$:GOTO 211 275 IF ASC(A$)=8 AND LEN(B$)>0 THEN B$=LEFT$(B$,LEN(B$)-1):T$=B$+STRING$(8-LEN(B$),32):LOCATE Y,X:PRINT T$ 276 GOTO 255 280 GOTO 255 300 T2$=T$:COLOR 14,4:LOCATE Y,X:PRINT STRING$(8,32) 301 FL1=0 302 B$="" 305 GOSUB 900 306 COLOR 14,4 310 IF ASC(A$)=27 THEN T$=T2$:GOTO 211 315 IF ASC(A$)=>48 AND ASC(A$)<=57 AND LEN(B$)<>8 THEN B$=B$+A$:T$=B$+STRING$(8-LEN(B$),32):LOCATE Y,X:PRINT T$ 316 IF ASC(A$)=46 AND FL1=0 THEN B$=B$+A$:T$=B$+STRING$(8-LEN(B$),32):LOCATE Y,X:PRINT T$:FL1=1 320 IF ASC(A$)=13 AND LEN(T$)>0 THEN LAB$(N)="N":N$(N)=T$:GOTO 211 321 IF ASC(A$)=13 AND LEN(T$)=0 THEN LAB$(N)="":N$(N)=T$:GOTO 211 325 IF ASC(A$)=8 AND LEN(B$)>0 THEN C$=RIGHT$(B$,1):B$=LEFT$(B$,LEN(B$)-1):T$=B$+STRING$(8-LEN(B$),32):LOCATE Y,X:PRINT T$:IF C$="." THEN FL1=0 330 GOTO 305 350 COLOR 15,2:LOCATE Y,X:PRINT T$:SEL=S 351 IF SEL>500 THEN COLOR 15,1:LOCATE 24,1:PRINT "Formula Message :: Can not produce new formula > Over 500 bits :: ESC=RETURN ":WHILE INKEY$<>CHR$(27:WEND:LOCATE 24,1:PRINT STRING$(80,32):GOTO 211 355 COLOR 15,1:LOCATE 24,1:PRINT "Formula :: 1=~+~ 2=~-~ 3=~/~ 4=~x~ 5=~%~ :: ";:COLOR 14,6:PRINT " Select calc tool :: ESC=RETURN ":COLOR ,0 360 GOSUB 900 361 IF ASC(A$)=27 THEN LOCATE 24,1:PRINT STRING$(80,32):GOTO 211 362 IF VAL(A$)<1 OR VAL(A$)>5 THEN 360 365 TYP=VAL(A$) 370 COLOR 15,1:LOCATE 24,1:PRINT "Formula :: Sellect cell :: ENTER=SELECT :: TAB=TOTAL :: ESC=RETURN :: " 374 N=((X+10/10)+((Y/2)-3)):T$=N$(N):COLOR 1,7:LOCATE Y,X:PRINT T$:R=2:IF LAB$(N)="F" THEN R=6 375 GOSUB 900 376 IF A$="8" AND Y<>4 THEN COLOR 15,R:LOCATE Y,X:PRINT T$:Y=Y-2:GOTO 374 377 IF A$="2" AND Y<>YT THEN COLOR 15,R:LOCATE Y,X:PRINT T$:Y=Y+2:GOTO 374 378 IF A$="4" AND X<>1 THEN COLOR 15,R:LOCATE Y,X:PRINT T$:X=X-10:GOTO 374 379 IF A$="6" AND X<>XT THEN COLOR 15,R:LOCATE Y,X:PRINT T$:X=X+10:GOTO 374 380 COLOR ,0:IF A$=CHR$(27) THEN LOCATE 24,1:PRINT STRING$(80,32):S2=S:GOTO 211 381 IF A$=CHR$(13) AND LAB$(N)="N" THEN S=S+1:NUM(S)=N:TYP(S)=TYP:LOCATE 24,70:PRINT S:PLAY "A40" 382 IF A$=CHR$(9) AND LAB$(N)="" THEN S=S+1:NUM(S)=N:TYP(S)=9:LOCATE 24,1:PRINT STRING$(80,32):LAB$(N)="F":S2=S:GOTO 211 383 IF A$=CHR$(13) AND LAB$(N)="F" THEN S=S+1:NUM(S)=N:TYP(S)=TYP:LOCATE 24,70:PRINT S:PLAY "A40" 385 GOTO 375 390 RESUME 391 391 RESET:COLOR 15,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Bruno software error. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:COLOR 7,0:CLS:END 400 COLOR 14,1:LOCATE 1,1:PRINT " *FILE* ";:COLOR 15,4:PRINT "OPTIONS: Directory Load Save Erase :: ESC=RETURN ":COLOR 15,0 401 RESET 405 GOSUB 900 406 IF A$="D" OR A$="d" THEN DRR=1:GOTO 450 407 IF A$=CHR$(27) THEN ON ERROR GOTO 390:SCREEN 0,1,0,0,0:DRR=0:IF DSP=1 THEN DSPFLG=1:GOTO 200 ELSE 40 408 IF A$="L" OR A$="l" THEN 470 409 IF A$="S" OR A$="s" THEN 480 410 IF A$="E" OR A$="e" THEN 500 445 GOTO 405 450 COLOR 15,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Disc Busy..." 451 ON ERROR GOTO 455 452 OPEN "i",#1,"dfiles.sht":INPUT #1,F2:FOR F=1 TO F2:INPUT #1,F$(F),I$(F):GOSUB 950:NEXT:CLOSE:GOTO 460 455 OPEN "o",#1,"dfiles.sht":WRITE #1,0:CLOSE:ON ERROR GOTO 456:RESUME 452 456 COLOR 15,1:LOCATE 1,1:PRINT "Bad disc in drive A. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:RESUME 400 460 PCOPY 0,1:SCREEN 0,1,1,1,0:VIEW PRINT 3 TO 25:COLOR ,0:CLS:VIEW PRINT 1 TO 25:GOSUB 950 461 VIEW PRINT 1 TO 25 465 COLOR 12:LOCATE 5,10:PRINT "Index : Filename : Information" 466 COLOR 4 :LOCATE 6,10:PRINT "------------------------------" 467 FOR F=1 TO F2:COLOR 14:LOCATE 6+F,10:PRINT F:LOCATE 6+F,18:PRINT F$(F):GOSUB 950:COLOR 14:LOCATE 6+F,30:PRINT I$(F):GOSUB 950:NEXT 468 GOTO 400 470 COLOR 15,1:VIEW PRINT 23 TO 24:CLS:LOCATE 24,1:PRINT "Enter load Name:";:COLOR 14:LINE INPUT "",O$ 471 IF O$="" OR LEN(O$)>8 THEN COLOR ,0:CLS:VIEW PRINT 1 TO 25:GOTO 400 472 ON ERROR GOTO 499 473 CLOSE 475 COLOR ,0:CLS:VIEW PRINT 1 TO 25:LOCATE 1,1:COLOR 15,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Loading "O$" from drive A..." 476 OPEN "i",#1,O$+".sht":GOSUB 950:INPUT #1,S2,XT,YT:N2=((XT+10/10)+((YT/2)-3)) 477 FOR N=1 TO N2:INPUT #1,N$(N),LAB$(N):GOSUB 950:NEXT 478 FOR S=1 TO S2:INPUT #1,NUM(S),TYP(S):GOSUB 950:NEXT 479 CLOSE:COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "File has been loaded ok. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:DSP=1:GOTO 400 480 COLOR 15,1:VIEW PRINT 23 TO 24:CLS:LOCATE 24,1:PRINT "Enter save Name:";:COLOR 14:LINE INPUT "",O$ 481 IF O$="" OR LEN(O$)>8 THEN COLOR ,0:CLS:VIEW PRINT 1 TO 25:GOTO 400 483 ON ERROR GOTO 490 484 GOTO 495 485 COLOR ,0:CLS:VIEW PRINT 1 TO 25:LOCATE 1,1:GOSUB 950:COLOR 15,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Saving "O$" to drive A...":ON ERROR GOTO 491 486 S2=S:CLOSE:N2=((XT+10/10)+((YT/2)-3)):OPEN "o",#1,O$+".sht":GOSUB 950:WRITE #1,S2,XT,YT 487 FOR N=1 TO N2:WRITE #1,N$(N),LAB$(N):GOSUB 950:NEXT 488 FOR S=1 TO S2:WRITE #1,NUM(S),TYP(S):GOSUB 950:NEXT 489 CLOSE:COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "File has been saved ok. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:GOTO 400 490 OPEN "o",#1,"dfiles.sht":WRITE #1,1,O$,INFO$:GOSUB 950:CLOSE:GOSUB 950:RESUME 485 491 ON ERROR GOTO 493:RESUME 492 492 GOSUB 950:OPEN "i",#2,"dfiles.sht":GOSUB 950:CLOSE:COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Not enough disc memory in drive A , file not saved. (press a key)":RESET:WHILE INKEY$="":GOSUB 950:WEND:GOTO 400 493 RESUME 494 494 COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Disc in drive A is not stable , file not saved. (press a key)":RESET:WHILE INKEY$="":GOSUB 950:WEND:GOTO 400 495 OPEN "I",#1,"DFILES.SHT":GOSUB 950:INPUT #1,F2:FOR F=1 TO F2:GOSUB 950:INPUT #1,F$(F),I$(F):IF F$(F)=O$ THEN CLOSE:GOTO 485 496 NEXT:CLOSE 497 CLS:LOCATE 24,1:COLOR 15,1:PRINT "Information on file:";:COLOR 14:LINE INPUT "",INFO$:IF INFO$="" OR LEN(INFO$)>60 THEN 497 498 OPEN "O",#1,"DFILES.SHT":GOSUB 950:WRITE #1,F2+1:FOR F=1 TO F2:GOSUB 950:WRITE #1,F$(F),I$(F):NEXT:WRITE #1,O$,INFO$:GOSUB 950:CLOSE:GOTO 485 499 RESET:LOCATE 1,1:COLOR 15,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "File not found on drive A. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:RESUME 400 500 COLOR 15,1:VIEW PRINT 23 TO 24:CLS:LOCATE 24,1:PRINT "Enter erase Name:";:COLOR 14:LINE INPUT "",O$ 501 IF O$="" OR LEN(O$)>8 THEN COLOR ,0:CLS:VIEW PRINT 1 TO 25:GOTO 400 502 ON ERROR GOTO 520 503 CLOSE:RESET 505 COLOR ,0:CLS:VIEW PRINT 1 TO 25:LOCATE 1,1:COLOR 15,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Erasing "O$" from drive A...":GOSUB 950 506 HIT=0:OPEN "I",#1,"DFILES.SHT":INPUT #1,F2:FOR F=1 TO F2:GOSUB 950:INPUT #1,F$(F),I$(F):IF O$=F$(F) THEN HIT=F 507 NEXT:CLOSE:IF HIT=0 THEN LOCATE 1,1:COLOR ,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Filename not found. (press a key)":WHILE INKEY$="":GOSUB 950:WEND:GOTO 400 508 IF F2=1 THEN OPEN "o",#1,"dfiles.sht":WRITE #1,0:GOSUB 950:CLOSE:GOTO 511 509 OPEN "o",#1,"dfiles.sht":WRITE #1,F2-1:FOR F=1 TO F2:IF HIT<>F THEN WRITE #1,F$(F),I$(F) 510 GOSUB 950:NEXT:CLOSE 511 ON ERROR GOTO 514 512 GOSUB 950:KILL O$+".sht" 513 COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "File erased ok. (press a key)":WHILE INKEY$<>"":GOSUB 950:WEND:GOTO 400 514 RESUME 515 515 RESET:COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "File erased from directory but not from disc. (press a key)":WHILE INKEY$<>"":GOSUB 950:WEND:GOTO 400 520 RESUME 521 521 RESET:COLOR ,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Bad disc in drive A. (press a key)":WHILE INKEY$<>"":GOSUB 950:WEND:GOTO 400 600 COLOR ,0:AL=0:FOR Y=4 TO YT STEP 2:AL=AL+1:IF AL=3 THEN AL=1 601 FOR X=1 TO XT STEP 10 602 GOSUB 950 605 N=((X+10/10)+((Y/2)-3)):T$=N$(N) 610 IF LAB$(N)="N" THEN C=12 ELSE IF LAB$(N)="T" THEN C=15 ELSE IF LAB$(N)="F" THEN C=10 615 IF LAB$(N)="F" AND T$=" " THEN T$="? ? ? ? " 616 IF AL=2 THEN GOSUB 635 620 LOCATE Y,X:COLOR C:PRINT T$ 625 NEXT:NEXT 630 COLOR 15,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Press any key to return.":WHILE INKEY$="":WEND:DSPFLG=1:DSP=1:COLOR ,0:GOTO 201 635 IF C=12 THEN C=4 ELSE IF C=15 THEN C=7 ELSE IF C=10 THEN C=2 640 RETURN 700 REM CALCULATE! 701 IF S2=0 THEN 45 705 COLOR 14,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT " *CALCULATE* ";:COLOR 15:PRINT " Please wait calculations taking place." 706 GOSUB 950 710 TOT=0:GOT=0:S=0 715 S=S+1 716 GOSUB 950 720 NUM=NUM(S):TYP=TYP(S) 725 N=NUM 730 GOT=VAL(N$(N)):GOSUB 740:GOTO 736 736 IF S=S2 THEN 805 ELSE 715 740 IF TYP=9 THEN N$=STR$(TOT):N$=RIGHT$(N$,LEN(N$)-1):N$=LEFT$(N$,8):N$(N)=N$+STRING$(8-LEN(N$),32):TOT=0:GOTO 800 745 IF TYP=1 THEN TOT=TOT+GOT:GOTO 800 746 IF TOT=0 THEN TOT=GOT:GOTO 800 750 IF TYP=2 THEN TOT=TOT-GOT:GOTO 800 ELSE IF TYP=3 THEN TOT=TOT/GOT:GOTO 800 ELSE IF TYP=4 THEN TOT=TOT*GOT:GOTO 800 ELSE IF TYP=5 THEN TOT=GOT/100:TOT=TOT*10:GOTO 800 800 RETURN 805 COLOR 14,1:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT " *CALCULATE* ";:COLOR 15:PRINT "Displaying new calculations in sheet.":DSPFLG=1:DSP=1:COLOR ,0:GOTO 200 900 A$=INKEY$ 901 IF A$="H" OR A$="h" THEN GOSUB 955 905 COLOR 10,0:LOCATE 2,70:PRINT TIME$ 910 IF A$<>"" THEN RETURN ELSE 900 950 COLOR 10,0:LOCATE 2,70:PRINT TIME$:RETURN 955 REM 960 IF HELP=2 THEN SCREEN 0,1,2,2,0:GOTO 980 965 IF HELP=1 THEN SCREEN 0,1,3,3,0:GOTO 990 970 RETURN 980 WHILE INKEY$="":WEND 981 IF DRR=1 THEN SCREEN 0,1,1,1,0:RETURN ELSE SCREEN 0,1,0,0,0:RETURN 990 WHILE INKEY$="":WEND 995 SCREEN 0,1,0,0,0:RETURN 1000 COLOR 15:LOCATE 1,29:PRINT "Help for ~File~ option" 1001 COLOR 14:LOCATE 3,1 1005 PRINT "If you can not load a file then:" 1006 COLOR 12:PRINT " *Check to see if it is in the directory" 1007 PRINT " *Make sure you type in the Filename correctly" 1008 PRINT " *Make sure the file was saved correctly" 1009 PRINT:COLOR 14:PRINT "If you can not save a file then:":COLOR 13 1010 PRINT " *Has the disc got enough space on it?" 1011 PRINT " *Did you use valid characters in the filename?" 1012 PRINT " *Is the disc of the correct IBM type/Format?" 1013 PRINT:COLOR 14 1014 PRINT "If you can not erase a file then:":COLOR 10 1015 PRINT " *Using erase the characters in filename must be typed exactly as shown (including capitals)." 1020 PRINT " *Check Directory to see if you are correct" 1021 PRINT " *Part erases are made because the file was not saved properly." 1022 COLOR 11:PRINT:PRINT:PRINT " NEVER USE EXTENSIONS IN FILENAMES (~.???~)" 1023 COLOR 15:LOCATE 24,28:PRINT "[ press any key to return ]" 1024 RETURN 2000 COLOR 15:LOCATE 1,29:PRINT "Help for ~Edit~ option" 2001 COLOR 7:LOCATE 3,1 2002 PRINT "KEY PRESSED : OPTION USED IN : RESULTING ACTION -----------------------------------------------------------------" 2003 COLOR 11 2004 PRINT " H : ALL : Displays the main option help page ESC : ALL : Alows you to escape from an option ENTER : ALL : Inputs action into the sheet" 2005 PRINT " B.SPACE : EDIT : Erases the selected cell contents N : EDIT : Alows you to enter a number cell T : EDIT : Alows you to enter a text cell" 2006 PRINT " F : EDIT : Alows you to produce a formula B.SPACE : TEXT/NUM/FORM : Deletes last character typed ----------------------------------------------------------------" 2007 COLOR 13:PRINT "Formula instructions:" 2008 COLOR 12 2009 PRINT "Select the type of function by pressing the corresponding number from the information bar at the bottom of the screen.These functions work the same way as those on a normal calculator." 2010 PRINT " When you have done this the information bar will change and tell you to start producing your formula.As you start to do this a counter on the far right of thebar will keep track of the number of steps in your formula." 2015 PRINT " Move the cursor (the highlighted cell) to the desired position.Then press either ENTER to enter cell in the formula,or TAB to output the Total into that cell." 2016 COLOR 14 2018 GOTO 1023 3000 PCOPY 0,1:SCREEN 0,1,1,1,0:VIEW PRINT 3 TO 25:COLOR ,0:CLS 3005 COLOR 12,0:LOCATE 4,9:PRINT CHR$(218)STRING$(60,196)CHR$(191) 3006 FOR Y=5 TO 18:LOCATE Y,9:PRINT CHR$(179):LOCATE Y,70:PRINT CHR$(179):NEXT:LOCATE 19,9:PRINT CHR$(192)STRING$(60,196)CHR$(217) 3010 COLOR 15,1 3020 LOCATE 5,10:PRINT " S U P E R S H E E T " 3021 LOCATE 6,10:PRINT " ---------------------- " 3022 COLOR 7 3023 LOCATE 7,10:PRINT " " 3024 LOCATE 8,10:PRINT " (C)1989 peron " 3025 LOCATE 9,10:PRINT " Created for Tandy 1000,and IBM computers " 3030 LOCATE 10,10:PRINT " Programmed by Juan Domingo Perón " 3031 LOCATE 11,10:PRINT " " 3032 LOCATE 12,10:PRINT " " 3033 COLOR 14 3034 LOCATE 13,10:PRINT " No part of this software may be re-produced,copied in " 3035 LOCATE 14,10:PRINT " any shape or form whatsoever.All rights reserved. " 3040 COLOR 15 3045 VIEW PRINT 1 TO 25:LOCATE 1,1:PRINT STRING$(80,32):LOCATE 1,1:PRINT "Press a key to return." 3050 WHILE INKEY$="":GOSUB 950:WEND:SCREEN 0,1,0,0,0:GOTO 40