1 'USCONS.BA  87 09 21
5 CLS:DEFINTA-Z:DEFSNGM:PRINTCHR$(27)"V";:MD=1'MD=2 for Tandy 200
10 PRINT@283,"U.S. Constitution Preamble"
20 RESTORE2000:M=1:GOSUB50
30 PRINT@283,"c1987 Neil Wick [71056,613]":FORY=1TO7000:NEXT
40 CLS:PRINT@240,:IFMD<>2THENRESTORE:GOSUB1130
45 RESTORE2000:M=.58:GOSUB50:IFMD=2THENRESTORE4000:GOTO300ELSEGOTO100
50 GOSUB1000:IFA$="z"THENRETURNELSEA=Z:GOSUB1000:B=Z:GOSUB1000:C=Z:GOSUB1000:D=Z
60 IFM<1THENA=M*A+6:B=M*B:C=M*C+6:D=M*D:IFMD=2THENA=A+41:C=C+41
61 GOSUB80:GOTO50
80 LINE(A,B)-(C,D)
85 A=A+1:C=C+1:B=B-1:D=D-1:LINE(A,B)-(C,D)
90 IFM=1THENA=A+1:C=C+1:B=B-1:D=D-1:LINE(A,B)-(C,D)
95 RETURN
100 POKEE1,8:GOSUB200:POKEE1,16:GOSUB200:POKEE1,64:GOSUB200:POKEE1,128:GOSUB200:POKEE1,0:POKEE2,1:GOSUB200
110 GOTO300
200 READA$:U=PEEK(VARPTR(A$)+1)+256*PEEK(VARPTR(A$)+2)-65536:CALLML,0,U:RETURN
300 IFMD=2THENPRINT@200,"          of the United States":FORY=1TO5000:NEXT
310 PRINT" in Order to form a more perfect Union,":FORY=1TO6000:NEXT
320 PRINT"           establish Justice,          "
330 GOSUB500:PRINT"      insure domestic Tranquility,"
340 GOSUB500:PRINT"     provide for the common defense,"
350 GOSUB500:PRINT"      promote the general Welfare,  "
360 GOSUB500:PRINT"  and secure the Blessings of Liberty"
370 GOSUB500:PRINT"     to ourselves and our Posterity, "
380 GOSUB500:PRINT"        do ordain and establish     "
390 GOSUB500:PRINT"           this Constitution   "
400 GOSUB500:PRINT"    for the United States of America."
410 FORY=1TO8000:NEXT:MENU
500 READA,B:IFA<0THENRETURNELSESOUNDA,B:GOTO500
1000 IFP>=LEN(A$)THENREADA$:IFA$="z"THENRETURNELSEP=0
1001 P=P+1:Z=16*(ASC(MID$(A$,P,1))-48):P=P+1:Z=Z+ASC(MID$(A$,P,1))-48:RETURN
1100 DATA229,205,92,118,33,84,254,205,59,117,30,0,225,126,230,63,50,30,254,35,62,0,87,211,254,6,50,126,230,207,28,7,7,210,48,254,126,230,63,95,35,195,31,254,35,7,7
1125 DATA79,126,35,230,207,129,211,255,29,202,70,254,5,205,72,117,195,57,254,5,194,31,254,126,254,34,200,122,198,64,195,26,254,31,0
1130 ML=-508:E1=-428:E2=-427
1140 FORX=-508TO-427:READA:POKEX,A:NEXT
1150 RETURN
2000 DATA"00120<04070<0:0=0:0=0>2;0=2;152>0>361;260<131904130<180>180>1<2:1;2:222=19122507210;250?250?2:192:192:1?2:1?222=3023371=371=381838183614361433153315301<301<30223022342834283:2=3433402730093306330637063706400<400<450<450<49074;124512490;4716
2010 DATA"47164;244;24492:492:512=5317591259125:0?5:0?5;0<5;0<5:075:0755045504510:510:5112511257245724552:552:5;2=5;2=5=2;551;5;155;1560196019611<611<63246324612:612:5;315;31553355334?324?3248314831473368236?1=6?1=701870186=146=146:156:15681<681<6822
2020 DATA"68226<286<28712<6;3379247;097:0?7:0?7<127<127?127;097>077>07840884088:0?8:0?8=158=158>1<8>1<8>248>248:2;8:0>9304930491079107960=960=9611961193157330792>792>7?2>7?2>8;318;319031903196309>21:01<:01<9?199?199=189=189<179<1799199919972197219;2:
2040 DATA"9;2::22>9<36:62;:;17:819:819:724:724::2;::2;:?30:;34;;22:;17:?18:?18;41?;41?;524;524;529;718<00?;918;=1:;=1:<13:;=3?<;31;=1?<715<616<419<419<71?<71?<921<921<:22<:22<;25<;25<:29<:29<72><72><42><42><12=<12=;:2>;:2>;930=713=910=910=90<=90<=609
2050 DATA"=609=409=409<?0?<?0?<?12<?12=422=422=527=527=32>=22>=72?=72?=:31=337=?2;=?28>721>721>81<>81<>719>719>517>517>418>418=?1>=?1>=>24=>24>12;>12;>42?>42>>932
2060 DATAz
3000 DATA"rq00P0080>07030C10K00<0?030E00<0?03010C00<0?03<0>06<2?23>0<80>27:1>0703B02J00<2?23>0?03C02<0?03<1?0;04<2?2A000<1?1310181<0?83>0781>0701O000<1?1310180<0?03101<1?03A00101<1?0300"
3010 DATA"rq00q003>0<<0?0;<8>86<2?23>0<f000<1?13B100804i00"
3020 DATA"rB00C10?0>0D00<0?03010K00<0>060B00<0?030J00B00<0?03<0?03A00<0?03<0?03<0?03>1>0:04<2?23>0<00<0?03>0>0200<2?23>0?03C02<0?0;<8>86<2?23>0<000<1?13A1008041>1?1300101<1?03A00101<1?0300101<1?03B000<1?1310180<0?03000<1?13B100804000<1?q00"
3030 DATA"rH00<0?030B001008070301A0080<06020B1030>0<0C00<0?030J00<0?03<0>06<2?23>0?03K0003070>1<78?0<0B00<2?23>0?03C02<0?03<0>06<2?23>0>1310080<1?1310J00070?18C10080<0703000<1?1310180<0?03000<1?1310080<0?1310A00q00"
3040 DATA"rD0002<2?2330301f000200<2?23>0?03C02<0?0;<8>86<2?23>0<00387<>6<2A020>0<T000<1?1310180<0?03000<1?13B100804000<1<B10190?07W00q00"
4000 DATA6269,25,6269,37,7456,12,7456,25,6269,25,6269,37,8368,12,8368,25,-1,,7456,25,7032,25,6269,25,5586,25,4976,25,6269,75,-1,
4010 DATA6269,25,6269,37,7456,12,7456,25,6269,25,6269,37,8368,12,8368,25,-1,,4184,25,4433,25,4184,25,3728,25,5586,25,4184,75,-1,
4020 DATA6269,25,3728,37,3728,12,4184,25,4697,25,4697,37,4976,12,4976,25,-1,,4697,25,4184,25,4976,25,5586,25,6269,25,4697,75,-1,
4030 DATA4697,25,4697,37,5586,12,5586,25,4697,25,4697,37,6269,12,6269,25,-1,,6269,25,5586,25,4697,25,6269,25,4184,25,4697,75,-1,