3 REM ** PLENTY OF K, A COMPUTER SAMPLER
4 REM BY ELIZABETH OMAN
6 POKE53280,0:POKE53281,0
7 GOSUB6000
9 GOSUB5000
10 REM EXPERIMENT WITH K
19 PRINT"[147]"
20 A$="%"
30 GOSUB1000
100 PRINTTAB(11)C$SPC(3)C$SPC(8)B$
120 PRINTTAB(10)A$SPC(3)A$SPC(1)A$SPC(3)A$SPC(6)A$SPC(2)A$
130 PRINTTAB(10)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(6)B$SPC(1)B$
135 PRINTTAB(11)B$SPC(1)C$SPC(1)B$SPC(10)B$
140 PRINTTAB(14)A$SPC(1)A$SPC(12)C$
150 PRINTTAB(14)A$SPC(1)A$SPC(11)C$
160 PRINTTAB(14)A$SPC(1)A$SPC(10)C$
170 PRINTTAB(14)A$SPC(1)A$SPC(8)D$
180 PRINTTAB(14)A$SPC(1)A$SPC(5)F$
190 PRINTTAB(14)A$SPC(1)A$SPC(3)E$
200 PRINTTAB(14)A$SPC(1)A$SPC(2)G$
210 PRINTTAB(14)A$SPC(1)D$SPC(4)C$
220 PRINTTAB(14)A$SPC(1)A$SPC(2)B$SPC(4)B$
230 PRINTTAB(14)A$SPC(1)A$SPC(3)C$SPC(1)B$
240 PRINTTAB(14)A$SPC(1)A$SPC(5)B$
260 PRINTTAB(14)A$SPC(1)A$SPC(3)A$SPC(1)D$
270 PRINTTAB(14)A$SPC(1)A$SPC(3)A$SPC(1)B$SPC(1)B$
280 PRINTTAB(14)A$SPC(1)A$SPC(4)B$SPC(2)B$
290 PRINTTAB(14)A$SPC(1)A$SPC(9)B$
300 PRINTTAB(14)A$SPC(1)A$SPC(9)B$
310 PRINTTAB(11)B$SPC(1)A$SPC(1)A$SPC(1)B$SPC(7)B$
320 PRINTTAB(10)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(1)A$SPC(6)B$
330 PRINTTAB(10)A$SPC(3)C$SPC(3)A$SPC(7)B$SPC(1)A$
340 PRINTTAB(11)C$SPC(3)C$SPC(9)C$
350 GETA$:IFA$=""GOTO350
355 GOSUB6000: PRINT"CHANGE CURSOR COLOR IF YOU WANT TO"
360 FORX=1TO6:PRINT  :NEXT:PRINT"WHAT SYMBOL DO YOU WISH TO CHANGE TO?"
361 PRINT"(1 ONLY)"
365 FORX=1TO5:PRINT  :NEXT:PRINT"DO NOT USE A COMMA, COLON,  REVERSE "
366 PRINT:  PRINT"ON, REVERSE OFF, OR QUOTES, PLEASE"
367 FORX=1 TO2:PRINT:NEXT:PRINT"ZZ WILL EXIT THIS PART OF PROGRAM"
370 PRINT:INPUTA$
371 IFA$="ZZ"GOTO7
372 GOSUB1000
380 GOTO100
1000 B$=A$+A$
1010 C$=A$+A$+A$
1020 D$=A$+A$+A$+A$
1030 E$=A$+A$+A$+A$+A$
1040 F$=A$+A$+A$+A$+A$+A$
1050 G$=A$+A$+A$+A$+A$+A$+A$:RETURN
2000 REM SAMPLER
2001 GOSUB6000
2009 PRINT
2010 PRINT"[154] [209][160][209]"SPC(3)"[158]LLL L"SPC(3)"[159]X  XX"SPC(2)"[209][209][209][160][160][209][209] [150]//// ///"
2011 PRINT"[154] [209][160][209]"SPC(4)"[158]L L"SPC(4)"[159]X XX"SPC(4)"[209][160][160][209]"SPC(4)"[150]//"SPC(3)"/"
2012 PRINT"[154] [209][209]"SPC(4)"[158]LLL"SPC(5)"[159]XXX"SPC(5)"[209][209][209][209]"SPC(4)"[150]//  /"
2013 PRINT"[154] [209][160][209]"SPC(4)"[158]L L"SPC(4)"[159]X XX"SPC(4)"[209][160][160][209]"SPC(4)"[150]////"
2014 PRINT"[154] [209][160][209]"SPC(3)"[158]LLL L"SPC(3)"[159]X  XX"SPC(2)"[209]"SPC(4)"[209]"SPC(3)"[150]// ///"
2015 PRINTTAB(21)"[209][209][209]  [209][209][209]"SPC(2)"[150]//  ///"
2016 PRINTTAB(30)"////  ///"
2017 PRINT"[158][166]"SPC(3)"[166]"SPC(2)"[155]X X  X"SPC(2)"[153][215][160][215]"SPC(3)"[215]"
2018 PRINT"[158][166] [160][166]"SPC(3)"[155] X  X "SPC(2)"[153] [215]"SPC(3)"[215]"
2019 PRINT"[158][166] [166]"SPC(5)"[155]X X"SPC(5)"[153][215]  [215]"
2020 PRINT"[158][166][166]"SPC(5)"[155]X X"SPC(5)"[153][215][160][215][215]"
2021 PRINT"[158][166][160][166]"SPC(5)"[155]X X"SPC(5)"[153][215][160][160][215]"SPC(6)"[156]+++  +"SPC(3)"++"
2022 PRINT"[158][166][160][160][166]"SPC(4)"[155]X  X"SPC(4)"[153][215]"SPC(3)"[215]"SPC(4)"[156]+"SPC(3)"+++  ++ +"
2023 PRINT"[158][166]"SPC(3)"[166]"SPC(2)"[155]X  X X"SPC(2)"[153][215][160][215]"SPC(3)"[215]"SPC(2)"[156]+";
2024 PRINTSPC(5)"+  ++"SPC(3)"+"
2025 PRINTTAB(24)"+ +  ++ +++  +"
2026 PRINT"[209][209]"SPC(4)"[209][209]  [149][166][166][166][166][166] [166][166][166][166]"SPC(5)"[156]++ ++  ++"
2027 PRINT" [209]"SPC(4)"[209]"SPC(4)"[149][166] [166]"SPC(3)"[166]"SPC(10)"[156]++ +"
2028 PRINT" [209]"SPC(3)"[209]"SPC(5)"[149][166][166][166]   [166]"SPC(9)"[156]++++ ++"
2029 PRINT" [209][209][209][209]"SPC(6)"[149][166] [166][160][166][166]"SPC(9)"[156]+++"SPC(3)"++"
2030 PRINT" [209]"SPC(3)"[209]"SPC(5)"[149][166][166][166][166][166][166]"SPC(4)"[156]++"SPC(3)"++"SPC(3)"+++  +"
2031 PRINT" [209]"SPC(4)"[209]"SPC(4)"[149][166][160][166][160][166][160][166]"SPC(3)"[156]+"SPC(3)"++"SPC(4)"+"SPC(3)"+"
2032 PRINT" [209]"SPC(4)"[209]"SPC(4)"[149][166][166][166][160][166][166][166]"SPC(4)"[156]+++"SPC(7)"+++"
2033 PRINT"[209][209]"SPC(4)"[209][209]"SPC(3)"[149][166][160][166][160][160][166][160][166]"
2034 PRINTTAB(10)"[149][166][166][166][166][166][160][166][166][166][166]"
2035 GETA$:IFA$=""GOTO2035
2036 PRINT:GOSUB6000
2038 GOTO5000
2850 REM TABLE FOR HEADINGS
2900 GOSUB6000
2910 FORX=1TO10:PRINT:NEXT:PRINT"DO YOU WISH TO FIGURE SIZES OF LETTERS"
2920 PRINT"FOR A HEADING?"
2930 FORX=1TO2:PRINT:NEXT:PRINT"Y/N"
3000 GETA$:IFA$=""GOTO3000
3010 IF A$="Y"THENPRINT"[147]":GOTO3020
3011 IFA$="N"GOTO7
3019 GOSUB6000
3020 FORX=1TO2:NEXT:PRINT"HOW MANY ROWS(1-4)?"
3025 FORX=1TO2:NEXT:PRINT:INPUT M
3030 IFM>4THEN PRINT"[158]TOO MANY" :GOTO3020
3031 IFM=0GOTO3020
3035 IFM<=4THENY=INT(25/M-1)
3040 FORX=1TO2:PRINT:NEXT:PRINT"THE MAXIMUM HEIGHT OF THE LETTERS IS "  Y
3050 PRINT:PRINT"[156]GIVE THE NUMBER OF LETTERS IN THE       LONGEST ROW, PLEASE (1-10)"
3060 PRINT:PRINT:INPUTQ
3070 IFQ>10THENPRINT"TOO MANY":GOTO3060
3071 IFQ=0GOTO3050
3080 IFQ<=10THENW=INT(40/Q-1)
3090 FORX=1TO2:PRINT:NEXT:PRINT "THE MAXIMUM WIDTH OF THE  LETTERS IS" W
3990 GETA$:IFA$=""GOTO3990
4000 GOSUB 6000
5000 FORX=1TO4:PRINT:NEXT:PRINTTAB(18)"MENU"
5010 FORX=1TO4:PRINT:NEXT:PRINT"SAMPLER":PRINT:PRINT"EXPERIMENT WITH K":
5015 PRINT:PRINT"TABLE FOR HEADINGS"
5020 FORX=1TO6:PRINT:NEXT:PRINT"SELECT BY PRESSING THE FIRST LETTER OF"
5025 FORX=1TO2:PRINT:NEXT:PRINT"YOUR SELECTION"
5030 GETC$:IFC$=""GOTO5030
5031 IFC$="S"GOTO2000
5032 IFC$="E"GOTO19
5033 IFC$="T"GOTO2900
5040 IFC$<>"S"THENPRINT"[147]"
5050 GOTO5000
6000 PRINT"[147]":RETURN