100 DEFINTI,S:RV$=CHR$(27)+"p":NV$=CHR$(27)+"q":CLS:PRINT@81,NV$; 1000 PRINT"Introducing":LINE(82,1)-(165,53),1,B:LINE(81,0)-(166,54),1,B:LINE(84,3)-(163,19),1,BF:LINE(84,35)-(163,51),1,BF 1010 PRINT@165,"the";:PRINT@55,RV$;"Radio Shack";NV$;:PRINT@137,"TRS 80";:LINE(123,27)-(127,27) 1020 PRINT@216,RV$;"TANDY 102";NV$;:PRINT@110,"Portable";:PRINT@190,"Computer";:P=289:GOSUB21000 2000 LINE(7,7)-(57,7):LINE-(50,31):LINE-(15,31):LINE-(7,7):LINE(6,6)-(58,6):LINE-(50,30):LINE-(15,30):LINE-(6,6) 2010 LINE(15,33)-(50,33):LINE-(57,57):LINE-(7,57):LINE-(15,33):LINE(15,34)-(50,34):LINE-(58,58):LINE-(6,58):LINE-(15,34) 2020 LINE(12,9)-(52,11),1,BF:LINE(31,11)-(33,28),1,BF:LINE(19,36)-(45,38),1,BF:LINE(13,55)-(52,53),1,BF:LINE(18,38)-(12,55) 2030 LINE(19,38)-(13,55):LINE(20,38)-(14,55):PRINTRV$;:FORI=0TO7:PRINT@11+40*I,STRING$(28,32);:NEXTI:LINE(68,1)-(231,62),0,B 2040 PRINT@13," The Radio Shack TRS-80 ";:PRINT@56,"Tandy 102 Portable";:PRINT@94,"Computer packs desktop"; 2050 PRINT@135,"computing power and";:PRINT@176,"several important";:PRINT@212,"accessories into a single"; 2060 PRINT@254,"compact, portable, and":PRINT@296," affordable unit. ";NV$;:GOSUB20000 3000 PRINT"Built-in programs for:":N=1:GOSUB22000:PRINT@81,". Personal word processing";:PRINT@121,". Schedule or event notes"; 3010 PRINT@161,". Address book";:PRINT@201,". Telecommunications";:PRINT@241,".Powerful Microsoft BASIC";:GOSUB20000 4000 PRINT"Built-in features:":N=1:GOSUB22000:PRINT@81,". Direct-connect autodial modem";:PRINT@121,". Programmable RS-232 interface"; 4010 PRINT@161,". Parallel printer interface";:PRINT@201,". Fast 1500-baud cassette interface";:PRINT@241,". ";RV$;"Tandy Portable Disk Drive Available";NV$;:GOSUB20000 5000 PRINT"Full-size, full-function keyboard:":N=1:GOSUB22000:PRINT@81,". Full ASCII character set"; 5010 PRINT@121,". Special and graphics characters";:PRINT@161,". 10-digit keypad function via NUM key"; 5020 PRINT@201,". Eight user-definable keys"; 5030 PRINT@241,". Keyahead and repeating keys";:GOSUB20000 6000 PRINT"The Tandy 102 features an 8 line, 40":PRINT" column LCD display screen.":N=2:GOSUB22000 6010 PRINT@121,". Full ASCII character set displayable";:PRINT@161,". Focus adjustable for viewing angle"; 6020 PRINT@201,". ";RV$;" Reverse video ";NV$;" characters";:PRINT@241,". 240 x64 pixel graphic resolution"; 6030 PRINT@281,". Special characters and symbols";:GOSUB20000 7000 LINE(5,56)-(42,0):LINE-(52,0):LINE-(88,56):LINE-(83,63):LINE-(11,63):LINE-(5,56) 7010 RESTORE7000:FORI=1TO21:READA,B,C,D:LINE(A,B)-(C,D):NEXTI 7020 DATA11,63,26,38,31,31,42,13,42,0,59,25,62,31,74,50,88,56,55,56,47,56,24,56,24,56,31,45,40,31,47,20,42,13,49,25,58,38,65,50 7030 DATA74,50,59,50,43,50,28,50,43,25,59,25,31,31,62,31,44,38,58,38,26,37,35,50,31,31,47,56,41,32,47,42,43,50,50,38,47,56,62,31 7040 DATA55,56,61,45 7050 PRINT@10,"TANDY 102 GRAPHIC CAPABILITIES";:LINE(60,8)-(239,8):PRINT@92,"Lines";:PRINT@133,"Points";:PRINT@174,"Rectangles"; 7060 PRINT@215,"Characters";:LINE(165,20)-(220,55),1,B:LINE(164,19)-(221,56),1,B:LINE(166,38)-(219,38) 7070 FORS=1TO55:PSET(S+165,38+17*(COS(S*.114))):NEXTS:CLS 8000 LINE(5,8)-(5,14):PRINT@41,RV$;" TANDY 102 ";NV$:PRINT:PRINT" SCREEN GRAPHICS":PRINTTAB(7);"for":PRINT" Businessmen":PRINT" and Engineers" 8010 LINE(0,0)-(239,63),1,B:LINE(3,6)-(97,60),1,B:LINE(3,16)-(97,16):LINE(4,7)-(96,15),1,B:LINE(100,3)-(236,60),1,B 8020 RESTORE8000:FORI=108TO218STEP10:READA:LINE(I,57)-(I+10,57-A),1,BF:FORJ=1TO2:READA 8030 LINE(I,57)-(I+10,57-A),1,B:NEXTJ,I:GOSUB20000 8040 DATA8,20,23,11,21,25,10,20,23,9,18,22,8,30,35,9,34,47,11,31,39,14,28,49,12,27,33,4,14,16,6,16,19,8,20,25 9000 PRINT"Powerful TEXT program:";:N=1:GOSUB22000:PRINT@81,". Personal word processing"; 9010 PRINT@121,". CUT, COPY, and PASTE commands";:PRINT@163,"make for easy operation":PRINT@201,". FIND command to quickly locate";:PRINT@243,"desired text"; 9020 PRINT@281,". Works on BASIC programs, too ";:GOSUB20000 10000 PRINT"A powerful telecommunications package is standard on the Tandy 102.":N=2:GOSUB22000 10010 P=121:A$=". Built-in programmable RS-232":GOSUB22010:P=161:A$=". Direct-connect autodial modem":GOSUB22010 10020 P=201:A$=". Smart telecommunications software":GOSUB22010:P=241:A$=". Communications hardware is":GOSUB22010 10030 P=283:A$=" supported by BASIC":GOSUB22010:GOSUB20000 11000 PRINT"The Tandy 102 includes powerful":PRINT" Microsoft BASIC.":N=2:GOSUB22000:PRINT@121,". Fourteen-digit accuracy"; 11010 PRINT@161,". Line, point, and character graphics";:PRINT@201,". Extensivemath functions"; 11020 PRINT@241,". In-memory file system";:PRINT@281,". Full communications support";:GOSUB20000 12000 PRINTTAB(8);"RADIO SHACK'S new TRS-80":PRINTTAB(6);"Tandy 102 Portable Computer":PRINT 12010 PRINTRV$;"Powerful Versatile Expandable Affordable";NV$;:LINE(0,23)-(239,23):LINE(0,32)-(239,32):LINE(0,21)-(239,21) 12020 LINE(0,34)-(239,34):PRINT:PRINTTAB(9);"Sold and Serviced by":PRINTTAB(12)RV$;" Radio Shack ";NV$ 12030 PRINTTAB(8);"Supported by Club 100";:GOSUB20000:GOTO100 20000 A$=INKEY$:FORI=1TO1250:IFINKEY$>""THENI=1250 20010 NEXTI:CLS:RETURN 21000 A$=INKEY$:FORI=1TO75:PRINT@P," ";TIME$;" ";DAY$;" ";DATE$;" ";:IFINKEY$>""THENI=75 21010 NEXTI:CLS:RETURN 22000 N=8*N+3:LINE(0,N)-(239,63),1,B:LINE(1,N+1)-(238,62),1,B:RETURN 22010 PRINT@P," ";:FORI=1TOLEN(A$):PRINTCHR$(8);MID$(A$,I,1);"_";:FORJ=1TO18:NEXTJ,I:PRINTCHR$(8);" ";:RETURN This is the original RS demo program for the Model 100 in '83. Ive updated it to say 102, plus I threw in a Club 100 plug.