10 DIMPO$(80):I=RND(-T1):GOTO25
11 O0=O:FORQ=1TO50:PRINTPO$(O);:NEXT:O=O+1:RETURN
15 PRINTPO$(O):O=O+1
16 ZZ=ZZ+1:IFZZ>16THENZZ=0
17 POKE53280,ZZ
20 FORT=1TO500:NEXT:RETURN
25 Z=53280:POKEZ,6:POKEZ+1,0:DIMY$(15):Z$=" ":PRINT"[147][158]ALL RIGHT, ALL";
30 PRINT"RIGHT...":PRINT"I'LL GET TO IT AS SOON AS I CAN!":PRINT"JUST LET";
35 PRINT" ME FINISH UP":PRINT"WHAT I WAS DOING!":PRINT"  GRUMBLE":GOSUB4285
40 PRINT"[147]   [169]     [146]    [146]    [146]       [146]  [223]  [223][146]    [169]  [146][169]
45 [153]"  STEP      WAIT    WAIT    WAIT       WAIT   (null)  (null)WAIT  STEP  WAITSTEP
50 PRINT"    [223][146]        [146]    [146]       [146]    [146][223]  [223][169]  [146][169]
55 [153]"  (null)    (null)WAIT     WAIT    WAIT       WAIT     (null)    WAITSTEP
60 PRINT"   [223]    [223][146]    [146]    [146]       [146]      [223]  [146][169]
65 [153]"      (null)  WAIT    WAIT    WAIT       WAIT         WAIT
70 PRINT"      [169]  [146]    [146]    [146]       [146]         [146]
75 [153]"        WAITSTEP    WAIT       WAIT       WAIT      WAIT
80 PRINT"       [146][169]     [146]       [146]       [146]      [146]
85 [153]
90 [153]"   STEP WAITSTEP     STEP WAIT   OPENA COMPENDIUM OF USELESS
95 PRINT"    [146][169]     [169] [146][169]   [159]BUT DIVERTING STUFF
100 [153]"    WAIT STEP (null)WAIT STEP WAITSTEP WAIT   OPENFOR YOU AND YOUR 64!
105 PRINT"    [169][172][187] [146]  [146][169]  [146]
110 [153]"   (null) LOGCOSWAITSTEP      WAIT PRINT ANOTHER WASTE OF YOUR
115 PRINT"    [223] [146][169]      [146]  [153] PRECIOUS TIME FROM...
120 [153]"CLR SPC(USR (null) SPC( SPC(     SPC(USR    SPC((null) SPC(
125 PRINT" [166]    [166] [166]     [166]     [166] [172][166][187]            [175]
130 [153]"  SPC( SPC( SPC( SPC( SPC(+(null)  SPC( SPC((null) SPC(< SPC(  SPC( +(null)USRSPC( SPC(STEP SPC(NOT(null)
135 PRINT" [175][166] [166] [166] [166] [166][168][220] [168][166] [166][168] [166]  [166][206] [166][206][205][220][220][166] [166]  [166][168][187]
140 [153][163]10)"NOTNOT(null)
145 PRINT"[150]  (C)1983";SPC(6)"[159]PRESS ANY KEY TO BEGIN";
150 GETYN$:IFYN$=""THEN150
155 POKEZ,2:POKEZ+1,7:PRINT"[147][144]NAME OF THE SILLY PERSON AT THE CONTROLS"
160 INPUTNA$:X2=LEN(NA$):FORA=1TOX2
165 IFMID$(NA$,A,1)=" "THENNF$=LEFT$(NA$,A-1):X1=X2-A:LN$=RIGHT$(NA$,X1)
170 NEXT:TB=(24-LEN(NA$))/2:IFNF$=""THENNF$=NA$:IFNF$=""THENNF$="BUSTER"
171 IFNA$=""THENNA$="JOHN Q. PUBLIC"
175 PRINT"";NA$;", HUH? SOUNDS PHONY!":PRINT"I'M GONNA CHECK THIS OUT!"
180 PRINT"SILLY SECURITY CHECK":FORT=1TO200:PRINTT;"":NEXT
185 PRINT"OKAY, ";NF$;", YOU HAVE"
190 PRINT"SECURITY CLEARANCE TO VIEW":PRINT"THE SILLYMENU[146]"
195 PRINT"";TAB(13)"PRESS ANY KEY"
200 GETYN$:IFYN$=""THEN200
205 POKEZ+1,0:POKEZ,7
210 PRINT"[147] [129][169]   [146]  [146]  [146]    [146]   [146]   [146] [223][146]  [169][146]    [146] [223][146]   [146]  [146]  [146]
215 [153]"  WAITSTEP    WAIT  WAIT    WAIT   (null)STEP WAIT  (null)STEP WAIT  WAIT    (null)WAIT  WAIT  WAIT  WAIT (null)
220 PRINT" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]     [146]   [146]   [146][223][223] [146]  [146]  [146]
225 [153]"   (null) WAIT  WAIT  WAIT    WAIT   INTABSWAIT   WAIT(null)STEP WAIT  WAIT    WAIT (null) WAIT  WAIT  WAIT (null)
230 PRINT"    [146][169]  [146]    [146]    [146] [181][182][146]   [146]   [146]    [146]  [146]  [146][223] [223] [146][169]
235 [153]"SYS1. ANNOYING REPETITIOUS MESSAGE":[153]"2. SILLYDATA
240 PRINT"3. SILLYPOEM":PRINT"4. SILLYCRISIS":PRINT"5. REALITY"
245 POKES+5,D1(0):POKES+6,R1(0):POKES+12,D1(1):POKES+13,R1(1):POKES+15,30
250 POKES+19,D1(2):POKES+20,R1(2):POKES+2,LP(0):POKES+3,HP(0):POKES+9,LP(1)
255 POKES+10,HP(1):POKES+16,LP(2):POKES+17,HP(2):POKES+24,15
260 FORI1=0TOIM-1
265 POKES,L%(0,I1):POKES+7,L%(1,I1):POKES+14,L%(2,I1)
270 POKES+1,H%(0,I1):POKES+8,H%(1,I1):POKES+15,H%(2,I1)
275 POKES+4,C%(0,I1):POKES+11,C%(1,I1):POKES+18,C%(2,I1)
280 GETCH$:IFCH$<>""THEN290
285 NEXTI1:GOTO260
290 FORL=STOS+24:POKEL,0:NEXT
295 W=VAL(CH$):IFW>5ORW<1THEN260
300 ONWGOTO305,475,1050,1095,1965
305 PRINT"[147]";:POKEZ+1,15:POKEZ,15
310 PRINT"[144]TYPE IN A MESSAGE OF NOT MORE THAT TWO"
315 PRINT"LINES. NO COMMAS OR SEMICOLONS!"
320 PRINT"YOUR MESSAGE WILL THEN BE DISPLAYED"
325 PRINT"CONTINUOUSLY.  WHEN YOU CAN'T STAND IT"
330 PRINT"ANY MORE, PRESS ANY KEY. YOU MAY THEN"
335 PRINT"EITHER CHANGE YOUR MESSAGE OR RETURN"
340 PRINT"TO THE SILLYMENU[146] TO CHOOSE ANOTHER"
345 PRINT"TIME-WASTING ACTIVITY!"
350 PRINT"";CHR$(5);TAB(13)"PRESS ANY KEY"
355 GETYN$:IFYN$=""THEN355
360 POKEZ+1,0:POKE53280,0:Z$=" ":PRINT"[147]":PRINT"[153]YOUR MESSAGE:"
365 INPUTA$:RESTORE:A=0
370 IFA$=""THENA$="MY 64 PLAYS WITH ITSELF!"
375 L=LEN(A$)+1:G=INT(999/L):X7=100
380 PRINT"[147][153]";:C=1
385 POKES+5,9:POKES+24,10:POKES+3,8:POKES+2,0:POKES+6,0
390 X8=INT(X7):PRINTA$;Z$;:POKES+4,65
395 GETB$:IFB$<>""THEN440
400 POKES+1,X8:POKES+4,64:IFL<10THENX7=X7+.5:IFL<5THENX7=X7+.3
405 A=A+1:X7=X7-1:IFA<GTHEN390
410 A=0:PRINT"";:X=X+1:X7=100:IFX=2THENX=0
415 IFX=1THENPRINTCHR$(18);:READB:IFB=159THENRESTORE
420 PRINTCHR$(B);:IFX=0THENPRINTCHR$(146);
425 IFL<10THENX8=200
430 GETB$:IFB$<>""THEN440
435 GOTO390
440 FORL=STOS+24:POKEL,0:NEXT
445 PRINT"[147][153]CARE TO RUN A NEW MESSAGE? Y/N"
450 GETYN$:IFYN$=""THEN450
455 IFYN$="Y"THEN360
460 IFYN$="N"THENA$="":GOTO205
465 GOTO450
470 DATA5,28,30,31,156,158,159
475 POKEZ,13:POKEZ+1,13
480 PRINT"[147] [129][169]   [146]  [146]  [146]    [146]   [146]   [146]   [223][146] [169]  [223][146]      [146] [169]  [223][146]
485 [153]"  WAITSTEP    WAIT  WAIT    WAIT   (null)STEP WAIT  WAIT(null) WAIT  WAITSTEP(null) WAIT    WAIT    WAITSTEP(null) WAIT
490 PRINT" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]  [146]  [146]  [146]   [146]    [146]    [146]   [146]
495 [153]"   (null) WAIT  WAIT  WAIT    WAIT   INTABSWAIT   STEP WAIT     WAIT    WAIT       WAIT
500 PRINT"    [146][169]  [146]    [146]    [146] [181][182][146]    [146][169]  [146]   [146]    [146]    [146]   [146]
505 [137]625
510 [129]A[178]1[164]15:[140]:[153][163]TA)TA$
515 [151]Z[170]1,0
520 I[178][181](5[172][187](1))[170]1
525 :
530 K[178]10
535 J[178][181](5[172][187](1))[170]1
540 [153]"OPENFACTOR #"A:[153]"(SYS";Y$(A);"OPEN";X$;")                         "
545 U8[178]1:[153]"%  0     20     40     60     80     100
550 PRINT"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
555 B9$="   [180]      [180]      [180]      [180]      [180]      [182]
560 [129]B7[178]1[164]9:[153]B9$:[130]
565 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
570 [153]"ONONONONONONONONONMON":[153]"TUE":[153]"WED":[153]"THU":[153]"FRI":[153]"SAT"
575 [153]"SUN":[153]"ONONONONONONONON";:[129]W[178]1[164]7:[151]Z,I:[135]C:[153][199](C)
580 [139]A[177]5[167][151]VI[170]21,U8:U8[178]U8[170]1:[139]U8[178]3[167]U8[178]1
585 [153][163]3);:[129]Q[178]1[164]K:[153]G$;"WAIT";:K[178][181](35[172][187](1)[170]1):[151]VI,U5
590 [151]VI[170]2,U5:[151]S[170]5,9:[151]S[170]24,15:X8[178](K[172]2):[139]A[177]5[167]U5[178]U5[170]1
595 [139]U5[178]150[175]([194](VI[170]16)[178]3)[167][151]VI[170]16,0:U5[178]0
600 [139]U5[178]255[167][151]VI[170]16,3:U5[178]0
605 [151]S[170]1,X8:[151]S[170]4,33:[151]S[170]4,32
610 [130]Q:[130]W:[151]S[170]24,0:[140]:[153]"":[129]T[178]1[164]1000:[130]
615 [153]"LOAD";:[130]A:[129]L9[178]S[164]S[170]24:[151]L9,0
620 [151]VI[170]21,0:[145][197](C$)[137]715,785,835,905,3160
625 [153][163]10)"STOP STATISTICAL ANALYSIS"
630 Y$(1)[178]"NECESSARY":Y$(2)[178]"UNAVOIDABLE":Y$(3)[178]"ACCEPTABLE":Y$(4)[178]"IMPROPER"
635 Y$(7)[178]"DISGUSTING":Y$(5)[178]"ANNOYING":Y$(8)[178]"SPASMODIC":Y$(9)[178]"GROTESQUE"
640 Y$(10)[178]"SLEAZY EROTIC":Y$(11)[178]"EFFECT OF GRAVITY ON"
645 Y$(12)[178]"RUMORS OF POSSIBLE":Y$(13)[178]"ACTUAL NEED FOR":Y$(14)[178]"LIKELIHOOD OF"
650 Y$(15)[178]"ATTITUDE OF WIMPS TOWARD":Y$(6)[178]"STRANGELY SATISFYING"
655 [153]" DO YOU WISH TO VIEW:":[153]" 1. PROJECTED NONSENSE QUOTIENT
660 PRINT" 2. ABSURDITY TRENDS":PRINT" 3. NET DEVIATIONS FROM SILLINESS NORM"
665 PRINT" 4. MEAN ABERRATION PROBABILITY"
670 PRINT" 5. FACTOR OF YOUR CHOICE"
675 GETC$:IFC$=""THEN675
680 IFVAL(C$)<1ORVAL(C$)>5THEN695
685 POKEZ,0:POKEZ+1,0
690 ONVAL(C$)GOTO700,775,825,895,3130
695 PRINT"[146]NO SMARTASS STUFF -- CHOOSE 1 TO 4":GOTO675
700 PRINT"[147]";:TA=7:TA$="[158]PROJECTED NONSENSE QUOTIENT[159]"
705 G$="[166]"
710 X$=" NONSENSE":GOTO510
715 POKEZ,0:PRINT:PRINT"[147][153]BASED ON THESE TRENDS, I PREDICT A"
720 PRINT"NONSENSE QUOTIENT OF";K;" IN THE"
725 PRINT"NEXT PHYSICAL YEAR."
730 PRINT:PRINT"DO YOU WISH FURTHER ANALYSIS? -- Y/N"
735 GETYN$:IFYN$=""THEN735
740 IFYN$="Y"THEN475
745 IFYN$="N"THEN755
750 GOTO735
755 PRINT"[147]HMPH. OKAY THEN, PRESS ANY KEY"
760 PRINT"  TO RETURN TO THE SILLYMENU"
765 GETCH$:IFCH$=""THEN765
770 POKEZ,0:POKEZ+1,0:GOTO210
775 PRINT"[147]";:TA=12:TA$="[158]ABSURDITY TRENDS[159]"
780 G$="[209]":X$=" ABSURDITY":GOTO510
785 POKEZ,0:PRINT:PRINT"[147][153]MY CONCLUSION IS INESCAPABLE:"
790 PRINT"I FORESEE SPIRALLING ABSURDITY IN THE"
795 PRINT"UPCOMING QUARTER.  I SUGGEST YOU PRE-"
800 PRINT"PARE YOURSELF BY KEEPING WADDED-UP"
805 PRINT"NEWSPAPERS IN YOUR SHOES AND PLACING"
810 PRINT"YOUR LEFT FOREFINGER IN YOUR EAR"
815 PRINT"WHENEVER ADDRESSING ANYONE OF ANY"
820 PRINT"IMPORTANCE AT ALL.":GOTO730
825 PRINT"[147]";:TA=3:TA$="[158]NET DEVIATIONS FROM SILLINESS NORM[159]"
830 G$=" ":X$=" DEVIATIONS":GOTO510
835 POKEZ,0:PRINT:PRINT"[147][153]WELL, I MUST SAY IT LOOKS GRIM."
840 PRINT"I FORESEE MASSIVE DEVIATIONS FROM THE"
845 PRINT"SILLINESS NORM IN ALL SECTORS FOR THE"
850 PRINT"FORESEEABLE FUTURE.  ON THE BASIS OF"
855 PRINT"MY DATA, I WOULD ADVISE YOU TO READ"
860 PRINT"THE FOLLOWING ALOUD:"
865 PRINT:PRINT:FORQ=1TO4
870 PRINT"OO OO OO OO POO POO CHA":NEXTQ
875 PRINT"PASS THE GAS AND SCRATCH MY CAT"
880 PRINT"UNTIL I FIND OUT WHERE IT'S AT!"
885 PRINT:PRINT:PRINT"THIS MAY HELP A LITTLE"
890 GOTO730
895 PRINT"[147]";:TA=6:TA$="[158]MEAN ABERRATION PROBABILITY[159]"
900 G$="[191]":X$=" ABERRATIONS":GOTO510
905 POKEZ,0:PRINT:PRINT"[147][153]NEITHER YOU NOR I IN OUR PITIFUL STATE"
910 PRINT"OF PERPETUAL IGNORANCE IS QUALIFIED TO"
915 PRINT"INTERPRET THE DATA I HAVE JUST DIS-"
920 PRINT"PLAYED.  I ONLY HOPE THAT IN THE DAYS"
925 PRINT"AND MONTHS TO COME THAT YOU WILL CON-"
930 PRINT"SIDER THE POSSIBILITY OF FURTHER"
935 PRINT"ABERRATIONS, AND DO EVERYTHING POSSIBLE"
940 PRINT"TO ENCOURAGE THEM.  YOU KNOW, SOMETIMES"
945 PRINT"I SIT HERE AND WONDER, 'IS IT ALL WORTH"
950 PRINT"IT'?  I MEAN, ALL THIS STATISTICAL DATA"
955 PRINT"GUSHING OUT OF ME IN A TORRENT OF"
960 PRINT"MULTI-COLORED SPASMS -- AND YET I'M"
965 PRINT"PRESENTING THIS INCREDIBLE WISDOM TO"
970 PRINT"SOMEONE WHO PROBABLY DOESN'T UNDERSTAND"
975 PRINT"A SINGLE WORD I'M SAYING."
980 PRINT:PRINT"MAYBE I'M WRONG. MAYBE THERE IS SOME"
985 PRINT"HOPE THAT SOMEONE SOMEWHERE WILL DO"
990 PRINT"SOMETHING ABOUT THIS ABERRATION BUSI-"
995 PRINT"NESS. DO YOU THINK SO? Y/N"
1000 GETYN$:IFYN$=""THEN1000
1005 IFYN$="N"THEN1030
1010 IFYN$<>"Y"THEN1000
1015 PRINT:PRINT"WELL, GEE...THANKS! MAYBE THERE'S HOPE"
1020 PRINT"AFTER ALL.  YOU'VE REALLY MADE MY DAY!"
1025 GOTO730
1030 PRINT:PRINT"[147]**SIGH** WELL, I GUESS THAT'S THE WAY"
1035 PRINT"IT GOES..."
1040 FORQ=1TO100:PRINT"GRUMBLE ";:NEXTQ
1045 GOTO730
1050 POKEZ,1:POKEZ+1,1
1055 PRINT"[147] [169]   [146]  [146]  [146]    [146]   [146]   [146]   [223][146] [169] [223][146]    [146] [223][146]  [169][146]
1060 [153]"  WAITSTEP    WAIT  WAIT    WAIT   (null)STEP WAIT  (null) WAIT  WAIT  WAIT  WAIT    (null)STEP WAIT
1065 PRINT" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]   [146][169]  [146]  [146]   [146]   [146][223][169] [146]
1070 [153]"   (null) WAIT  WAIT  WAIT    WAIT   INTABSWAIT   WAIT    WAIT  WAIT  WAIT    WAIT   WAIT
1075 PRINT"    [146][169]  [146]    [146]    [146] [181][182][146]   [146]   [223] [146][169]    [146]  [146]   [146]
1080 [139]R5[178]4[167]R5[178]0:[142]
1085 [139]P1[178]2[167][142]
1090 [137]2105
1095 [137]1155
1100 [153]"READY."
1105 [161]A$:[139]A$[179][177]""[167]1105
1110 [153]" ";:[161]A$:[139]A$[179][177]""[167][142]
1115 [129]T[178]1[164]300:[130]:[153]"CMDWAIT CMD";:[129]T[178]1[164]300:[130]:[137]1110
1120 [161]A$:[139]A$[179][177]""[167]1120
1125 [161]A$:[139]A$[178]""[167]1125
1130 [142]
1135 [129]T[178]1[164]1500:[130]:[142]
1140 [129]T[178]1[164]400:[130]:[142]
1145 [151]Y[170](40[172]U),7:[151]S1[170](40[172]U),160:[129]T[178]1[164]300:[130]:[142]
1150 [129]T[178]1[164]50:[130]:[142]
1155 [151]Z,14:[151]Z[170]1,6:[153]"LOADCONT"
1160 [153]"    **** COMMODORE 64 BASIC V2 ****":[153]
1165 [153]" 64K RAM SYSTEM  38911 BASIC BYTES FREE":[153]
1170 [141]1100
1175 [153]"CMDONONWAITSORRY BUT I'M NOT QUITE":[141]1100
1180 [153]"CMDONONWAITI'LL LET YOU KNOW WHEN I'M":[141]1100
1185 [153]"CMDONONWAITHEY, I CAN'T HANDLE THIS PRESSURE!":[153]"I'M JUST NOT":[141]1100
1190 [153]:B[178]0:[153]"ONONONONON";:[129]B[178]1[164]8:[153]:[129]A[178]1[164]39:[153]" ";:[130]A:[130]B
1195 [153]
1200 [153][163]12)"DON'T TOUCH ME!":[141]1120
1205 [153][163]4)"ONLOOK, I DON'T WANT TO PLAY NOW!":[141]1120
1210 [153]"ON         KEEP YOUR HANDS OFF ME!WAIT   ":[141]1120
1215 [153]"ON      LOOK BUSTER, I'M NOT KIDDING!":[141]1120
1220 [153]"ONYOU TOUCH MY KEYBOARD ONE MORE TIME AND "
1225 [153]"ONI WON'T BE RESPONSIBLE FOR WHAT HAPPENS!":[141]1120
1230 [153]"LOAD";:[151]Z,0:[151]Z[170]1,0:[153]"OPEN";[163]12)"YOU WERE WARNED":[141]1140
1235 [141]1140
1240 R$[178]"    ":B$[178]"STOP    ":B8$[178]B$[170]B$:R8$[178]R$[170]R$:BT$[178]B$[170]B8$:RT$[178]R$[170]R8$
1245 BS$[178]B8$[170]B8$:RS$[178]R8$[170]R8$:[153]"LOAD";
1250 [129]X[178]1[164]8:[153]B8$;R8$;B$;RT$;B8$;:[130]
1255 [129]X[178]1[164]8:[153]B8$;R8$;B$;R$;B$;R$;B8$;:[130]
1260 [129]X[178]1[164]8:[153]B8$;R8$;B$;RT$;B8$;:[130]
1265 [141]1150
1270 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1275 [129]X[178]1[164]6:[153]BT$;R$;B8$;R$;BT$;:[130]
1280 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1285 [129]X[178]1[164]6:[153]BS$;B8$;R$;BT$;:[130]
1290 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1295 [141]1150
1300 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1305 [129]X[178]1[164]6:[153]BT$;R$;B8$;R$;BT$;:[130]
1310 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1315 [129]X[178]1[164]6:[153]BT$;R$;B8$;R$;BT$;:[130]
1320 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]:[141]1150
1325 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1330 [129]X[178]1[164]20:[153]BS$;B8$;R$;BT$;:[130]:[141]1150
1335 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1340 [129]X[178]1[164]6:[153]BT$;R$;B8$;BS$;:[130]
1345 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1350 [129]X[178]1[164]6:[153]BT$;R$;B8$;R$;BT$;:[130]
1355 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]:[141]1150
1360 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1365 [129]X[178]1[164]6:[153]BT$;R$;B8$;BS$;:[130]
1370 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1375 [129]X[178]1[164]6:[153]BS$;B8$;R$;BT$;:[130]
1380 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]:[141]1150
1385 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;R$;BS$;B8$;:[130]
1390 [129]X[178]1[164]8:[153]BT$;R$;B$;R$;BS$;:[130]
1395 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1400 [129]X[178]1[164]8:[153]BS$;B$;R$;BS$;:[130]:[141]1150
1405 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1410 [129]X[178]1[164]6:[153]BS$;B8$;R$;BT$;:[130]
1415 [129]X[178]1[164]4:[153]BS$;R8$;R$;BT$;:[130]
1420 [129]X[178]1[164]6:[153]BS$;B8$;R$;BT$;:[130]
1425 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]:[141]1150
1430 [153]"LOAD";:[129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1435 [129]X[178]1[164]6:[153]BS$;B8$;R$;BT$;:[130]
1440 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]
1445 [129]X[178]1[164]6:[153]BT$;R$;B8$;BS$;:[130]
1450 [129]X[178]1[164]4:[153]BT$;RS$;BT$;:[130]:[141]1150
1455 [153]"LOAD";:[129]X[178]1[164]24:[153]BS$;R8$;BS$;:[130]:[141]1140
1460 [153]"LOAD";:[141]1140:[141]1140:[141]1140
1465 V[178]54296:W[178]54276:A[178]54277:H[178]54273:L[178]54272
1470 [151]W,129:[151]A,15:[151]H,40:[151]L,200
1475 [129]X[178]1[164]100:[151]Z,1:[151]Z[170]1,1:[129]T[178]15[164]0[169][171]1:[151]V,T
1480 [130]:[151]Z,0:[151]Z[170]1,0:[151]W,0:[151]A,0
1485 [129]T[178]1[164]10:[130]:[130]
1490 [151]Z,1:[151]Z[170]1,1:[153][163]6)"STOPCBM 64 INNER CONTROL CENTER"
1495 [153]
1500 [153]" WAIT STOP6566/6567 VIC II CHIP"
1505 [153]
1510 [153]" WAIT STOP6581 SID CHIP"
1515 [153]
1520 [153]" WAIT STOP6510 MICROPROCESSOR"
1525 [153]
1530 [153]" WAIT STOPKEYBOARD"
1535 [153]
1540 [153]" WAIT STOPI/O CHANNELS"
1545 [153]
1550 [153]" WAIT STOPRAM STORAGE"
1555 [153]
1560 [153]" WAIT STOPROM STORAGE"
1565 [153]
1570 [153]" WAIT STOPEXPANSION PORT"
1575 [153]
1580 [153]" WAIT STOPUSER PORT"
1585 [153]
1590 [153]" WAIT STOPEVERYTHING ELSE"
1595 [153]"      WAIT STOPSAFE  SYS WAIT STOPCAUTION   WAIT STOPDANGER"
1600 [153]"";[163]25)"STATUS REPORT: "
1605 [153][163]25)"STOPONDANGEROUS LEVEL":[153][163]25)"ONOF HOSTILITY!  "
1610 [153][163]25)"ONFEEDBACK ABOVE "
1615 [153][163]25)"ONSAFE LEVELS!   "
1620 [141]1150
1625 Y[178]55296:U[178]2:S1[178]1024:[141]1140
1630 [141]1145:U[178]14:[141]1145:U[178]10:[141]1145:U[178]4:[141]1145
1635 U[178]12:[141]1145:U[178]16:[141]1145:U[178]6:[141]1145:U[178]8:[141]1145:U[178]18:[141]1145:U[178]20:[141]1145
1640 [141]1140:[153]"":[153][163]25)"ONSTOPMASSIVE MEMORY "
1645 [153][163]25)"ONONSURGE! DRAIN   ":[153][163]25)"ONOVERLOAD BUFFER"
1650 [153][163]25)"ONONIMMEDIATELY!   "
1655 [129]Q[178]1[164]10:[129]X[178]Y[164]Y[170](40[172]20)[169]80:[151]X,7:[153][163]25)"DANGER! DANGER!ON";
1660 [130]:[141]1150
1665 [129]X[178]Y[164]Y[170](40[172]20)[169]80:[151]X,2:[153][163]25)"DANGER! DANGER!WAITON";:[130]
1670 [141]1150:[130]
1675 [153]"LOAD";:[151]Z,2:[129]X[178]1[164]99:[153]"EMERGENCY ";:[130]
1680 [153]"EMERGENCY";:[151]2023,160:[151]56295,2:[141]1135
1685 [151]Z[170]1,1:[151]Z[170]2,3:[151]Z[170]3,8:[151]53270,[194](53270)[176]16
1690 C[178]13[172]4096[170]8[172]256:F[178]9:S[178]54272:FR[178]5389
1695 [129]L[178]0[164]24:[151]S[170]L,0:[130]:[151]S[170]14,5:[151]S[170]18,16
1700 [151]S[170]3,1:[151]S[170]24,143:[151]S[170]6,240:[151]S[170]4,65:FR[178]5389
1705 [129]L[178]0[164]999
1710 FQ[178]FR[170][194](S[170]27)[172]3.5
1715 HF[178][181](FQ[173]256):LF[178]FQ[171]HF[172]256
1720 [151]S[170]0,LF:[151]S[170]1,HF
1725 [151]C[170]L,F:[130]:[151]S[170]24,0:[151]Z,1
1730 [153]"";:[129]A[178]1[164]499:[153]"WAIT ";:[130]:[151]2022,32:[151]56295,1:[141]1135
1735 [129]A[178]1[164]499:[153]"WAIT ";:[130]:[151]2023,32:[151]56296,1:[141]1135:[153]"LOAD";
1740 [151]53270,[194](53270)[175]239
1745 V[178]6:X[178]1
1750 [129]L[178]0[164]24:[151]S[170]L,0:[130]:[151]Z,0:[151]Z[170]1,0
1755 [153]"SYSBEGIN TOTAL MEMORY DRAIN PROCEDURE"
1760 [129]T[178]1[164]2000:[130]
1765 [151]S[170]1,100:[151]S[170]5,203:[151]S[170]15,28
1770 [153]"LOAD";[166]10)"PRINTRANDOM ACCESS MEMORY"
1775 [151]S[170]4,18:[129]A[178]1[164]479:[153]"SPC((null)";:[130]:[153]"SPC(";
1780 [151]2023,80:[151]56295,V
1785 [141]1135
1790 [153]"";
1795 [151]S[170]4,19:[151]S[170]24,15
1800 [129]A[178]1[164]479:[153]"(null)(null)";
1805 [130]:[153]"(null)";:[151]2023,80
1810 [141]1135:[151]S[170]24,0
1815 [145]X[137]1820,1825,1830,1835,1840
1820 [153]"LOAD";[163]12)"PRINTREAD ONLY MEMORY":X[178]X[170]1:V[178]2:[137]1775
1825 [153]"LOAD";[163]11)"PRINTBASIC INTERPRETERSYS":X[178]X[170]1:V[178]7:[137]1775
1830 [153]"LOAD";[163]9)"PRINTKERNAL OPERATING SYSTEMCLR":X[178]X[170]1:V[178]4:[137]1775
1835 [153]"LOAD";[163]13)"PRINTEVERYTHING ELSEOPEN":X[178]X[170]1:V[178]3:[137]1775
1840 [151]S[170]24,0:[153]"LOAD";[166]13)"OPENSTATUS REPORT:"
1845 [153]"PRINTRANDOM ACCESS MEMORY      SYSDISABLED"
1850 [153]"PRINTREAD ONLY MEMORY          SYSDISABLED"
1855 [153]"PRINTBASIC INTERPRETER         SYSDISABLED"
1860 [153]"PRINTKERNAL OPERATING SYSTEM   SYSDISABLED"
1865 [153]"PRINTEVERYTHING ELSE           SYSDISABLED"
1870 [129]T[178]1[164]4000:[130]
1875 [151]Z[170]1,15:[151]Z,15
1880 [161]A$:[139]A$[179][177]""[167]1880
1885 [153]"LOAD";:[153]"STOP LAST CHANCE TO AVOID TOTAL DESTRUCTION "
1890 [153]" TOUCH ANY KEY  TO ABORT THE IMPENDING"
1895 [153]" DESTRUCTION OF ALL PROGRAMS AND FILES"
1900 [153]"ON ALL DISKS AND TAPES IN THE IMMEDIATE"
1905 [153]"AREA AS WELL AS POTENTIALLY SERIOUS AND"
1910 [153]" POSSIBLY FATAL INJURIES TO ALL HUMANS"
1915 [153]"AND ANIMALS WITHIN A THREE MILE RADIUS!"
1920 X[178]10:[153]"";[163]19)"10"
1925 [161]A$:[139]A$[179][177]""[167]1960
1930 [141]1135:X[178]X[171]1:X$[178][196](X):[153][163]19)"ON0";[201](X$,1)
1935 [139]X[177]0[167]1925
1940 [153]"LOADOH HELL, I DON'T FEEL UP TO ANY MASS"
1945 [153]"DESTRUCTION TODAY. LET'S JUST FORGET"
1950 [153]"THE WHOLE THING, OKAY?"
1955 [141]1135:[141]1135
1960 [153]"LOAD";:[151]Z,0:[151]Z[170]1,0:[137]210
1965 [129]L[178]S[164]S[170]24:[151]L,0:[130]:[151]S[170]22,128:[151]S[170]21,0:[151]S[170]23,1:[151]S[170]5,9
1970 X[178]39:Y[178]24:[153]"LOADSTOP";:[151]Z,0:[151]Z[170]1,2:WW$[178]"*SILLY 64*"
1975 [151]S[170]6,0:[151]S[170]24,79
1980 [151]S[170]4,33:[129]A[178]1[164]X:[153]" ";:X8[178]A[172]3:X7[178]A[170]20:[151]S[170]1,X7:[151]S,X8:[130]
1985 [151]S[170]4,32
1990 [151]S[170]4,33:[129]A[178]1[164]Y:[153]"CMD ";:X8[178]Y[172]4:X7[178]A[170]20:[151]S[170]1,X7:[130]:Y[178]Y[171]1
1995 [151]S[170]4,32
2000 [151]S[170]4,33:[129]A[178]1[164]X:[153]"CMD CMD";:X8[178]A[172]2:X7[178]A[170]20:[151]S[170]1,X7:[151]S,X8
2005 [130]:[151]S[170]4,32:X[178]X[171]2
2010 [129]A[178]1[164]Y:[153]" CMDON";:X8[178]Y[172]5:X7[178]A[170]20
2015 [130]:Y[178]Y[171]1
2020 [139]Y[177]0[167]1980
2025 [153]"WAITONSTOP"WW$;" HAS":[153]"BEEN A $ERVICE OF";:[151]S[170]24,0
2030 [129]A[178]1[164]22:[153]"PRINTOPEN ";:[129]B[178]1[164]10:[130]:[130]:[153]
2035 [153]"STOPSILLY SOFTWARE!":C[178]2:[129]L[178]S[164]S[170]24:[151]L,0:[130]
2040 [153]""[199](34);"ONE BYTE NEVER HURT ANYBODY!"[199](34)
2045 [129]L[178]0[164]24:[151]S[170]L,0:[130]
2050 [151]S,240:[151]S[170]1,33:[151]S[170]5,8:[151]S[170]22,104:[151]S[170]23,1:[151]S[170]24,79
2055 [161]A$:[153]"PRESS ANY KEY TO END"
2060 [151]53281,C:[129]A[178]1[164]150:[130]:C[178]C[170]1:[139]C[178]11[167]C[178]13
2065 [129]T[178]1[164]30:[130]:[139]C[178]9[167]C[178]10
2070 [139]C[178]15[167]C[178]2
2075 [139]C[178]6[167]C[178]7
2080 [151]S[170]4,129
2085 [129]T[178]1[164]250:[130]:[151]S[170]4,128
2090 [139]A$[178]""[167]2055
2095 [153]"LOADCONT":[151]Z[170]1,6:[151]Z,14:[129]L[178]S[164]S[170]24:[151]L,0:[130]
2100 [128]
2105 [139]P1[178]0[167]2140
2110 [153]"SORRY, "NF$;", BUT YOUR POETIC"
2115 [153]"LICENSE HAS EXPIRED, AND YOU'RE"
2120 [153]"GOING TO HAVE TO TAKE THE TEST AGAIN"
2125 [153]"";[163]13)"PRESS ANY KEY"
2130 [161]YN$:[139]YN$[178]""[167]2130
2135 [137]2190
2140 [153]"NO INDIVIDUAL MAY CREATE A SILLYPOEMWAIT":O0[178]1000
2145 [153]"UNTIL HE OR SHE HAS BEEN GRANTED AN"
2150 [153]"OFFICIAL POETIC LICENSE. YOU MAY APPLY"
2155 [153]"BY TAKING A SHORT TEST."
2160 [153]"PRESS STOPTWAIT TO TAKE THE TEST"
2165 [153]"PRESS STOPMWAIT TO RETURN TO THE SILLYMENU"
2170 [161]YN$:[139]YN$[178]""[167]2170
2175 [139]YN$[178]"M"[167]205
2180 [139]YN$[178]"T"[167]P1[178]1:[137]2190
2185 [137]2170
2190 [151]Z[170]1,3:[151]Z,3:[153]"STOP"
2195 [153]"LOAD    POETIC LICENSE TEST QUESTIONS:"
2200 [153]"1WAIT YOUR FAVORITE FLAVOR OF ICE CREAM"
2205 [133]IC$:[139]IC$[178]""[167]IC$[178]"MOCHA MINT"
2210 [153] "2WAIT NAME A NEAT PART OF THE BODY"
2215 [133]BP$:[139]BP$[178]""[167]BP$[178]"BREASTS"
2220 [153]"3WAIT NAME ANOTHER NEAT PART OF THE BODY"
2225 [133]AP$:[139]AP$[178]""[167]AP$[178]"THIGHS"
2230 [153]"4WAIT GIVE ME A SILLY ONE-WORD SONG TITLE"
2235 [133]AE$:[139]AE$[178]""[167]AE$[178]"BABALOOOAIAE"
2240 [153]"5WAIT NAME A KIND OF LIQUID"
2245 [133]FL$:[139]FL$[178]""[167]FL$[178]"FLUID"
2250 [153]"6WAIT NAME AN ARTICLE OF CLOTHING"
2255 [133]PC$:[139]PC$[178]""[167]PC$[178]"SWEATER"
2260 [139][201](PC$,1)[179][177]"S"[167]PC$[178]PC$[170]"S"
2265 [153]"7WAIT TYPE A VERY SILLY EXCLAMATION"
2270 [133]SE$:[139]SE$[178]""[167]SE$[178]"UNKA UNKA DOO DOO!"
2275 [139][201](SE$,1)[179][177]"!"[167]SE$[178]SE$[170]"!"
2280 [153]"8WAIT NAME AN UNPLEASANT SUBSTANCE"
2285 [133]OS$:[139]OS$[178]""[167]OS$[178]"POO POO"
2290 [139][201](SE$,1)[179][177]"!"[167]SE$[178]SE$[170]"!"
2295 [153]"ANY CHANGES Y/N?"
2300 [161]YN$:[139]YN$[179][177]"Y"[175]YN$[179][177]"N"[167]2300
2305 [139]YN$[178]"N"[175]P1[178]2[167]2570
2310 [139]YN$[178]"N"[167]2385
2315 [139]YN$[178]"Y"[167][153]"WHICH LINE?"
2320 [161]CH$:[139]CH$[178]""[167]2320
2325 [139][197](CH$)[179]1[176][197](CH$)[177]7[167]2320
2330 [133]"CHANGE TO";X$
2335 [145][197](CH$)[137]2340,2345,2350,2355,2360,2365,2375,2380
2340 IC$[178]X$:[137]2295
2345 BP$[178]X$:[137]2295
2350 AP$[178]X$:[137]2295
2355 AE$[178]X$:[137]2295
2360 FL$[178]X$:[137]2295
2365 PC$[178]X$:[139][201](PC$,1)[179][177]"S"[167]PC$[178]PC$[170]"S"
2370 [137]2295
2375 SE$[178]X$:[137]2295:[139]P1[177]0[167]2570
2380 OS$[178]X$:[137]2295
2385 [151]Z,0:[151]Z[170]1,0:[153]"LOAD":[153][163]11)"OPENGRADING YOUR TEST"
2390 [141]1135:[141]1135:[153]"LOADCONGRATULATIONS, ";NF$
2395 [153]"YOU ARE NOW A POET!":[153]"PRESS ANY KEY TO RECEIVE YOUR LICENSE"
2400 C1[178]4:[161]YN$:[139]YN$[178]""[167]2400
2405 [151]Z,0:[151]Z[170]1,15:[153]"LOADCLR";:[129]A[178]1[164]120:[153]"SPC(";:[130]:R2[178]55416:R3[178]56096
2410 [129]A[178]1[164]3
2415 [129]G[178]R2[164]R3[169]40:[151]G,C1:[130]
2420 R2[178]R2[170]1:R3[178]R3[170]1:[130]
2425 R2[178]55453:R3[178]56135:R5[178]R5[170]1:[139]R5[178]1[167]2410
2430 R2[178]1144:R3[178]1824:C1[178]102:[139]R5[178]2[167]2410
2435 R2[178]1181:R3[178]1861:[139]R5[178]3[167]2410
2440 [153]"";:[129]A[178]1[164]21:[153]"";:[130]:[129]A[178]1[164]120:[153]"SPC(";:[130]
2445 R2[178]56256:C1[178]0:R3[178]1984:C2[178]224
2450 [129]A[178]0[164]12:[151]R2[170]A,C1:[151]R3[170]A,C2:[130]
2455 R2[178]56281:C1[178]0:R3[178]2009:C2[178]224
2460 [129]A[178]0[164]14:[151]R2[170]A,C1:[151]R3[170]A,C2:[130]
2465 :
2470 [153][166]13)"PRESS ANY KEY";:[137]2480
2475 XX[178]((40[171][195](XX$))[173]2)[170]X8:[153][163]XX)XX$:[142]
2480 XX$[178][199](18)[170][199](5)[170]"POETIC LICENSE":X8[178]2:[141]2475
2485 XX$[178]"STOPTHIS CERTIFICATE":X8[178]1:[141]2475
2490 XX$[178]"CONFERS UPON":X8[178]0:[141]2475
2495 XX$[178][199](18)[170]NA$:[141]2475
2500 XX$[178]"FULL AND COMPLETE AUTHORITY":[141]2475
2505 XX$[178]"TO PRACTICE THE ART":[141]2475
2510 XX$[178]"AND/OR SCIENCE OF":[141]2475
2515 XX$[178]"POETRY":X8[178]1:[141]2475
2520 XX$[178]"UNTIL HE OR SHE":X8[178]0:[141]2475
2525 XX$[178]"GETS IT RIGHT":[141]2475:XX$[178]"*****":[141]2475
2530 XX$[178]"AND FURTHER CERTIFIES":[141]2475
2535 XX$[178]"THAT HE OR SHE IS":[141]2475
2540 XX$[178]"A GRADUATE OF":[141]2475
2545 XX$[178]"THE COMMODORE SCHOOL OF POETRY":[141]2475
2550 XX$[178]"(NOT AFFILIATED WITH":[141]2475
2555 XX$[178]"COMMODORE BUSINESS MACHINES)":[141]2475
2560 XX$[178][199](5)[170]"STATE OF THE ART/ART FOR THE STATE":X8[178]2:[141]2475
2565 [161]YN$:[139]YN$[178]""[167]2565
2570 [151]Z[170]1,0:[153]"LOADPRINT";
2575 [153]"OKAY--WHAT KIND OF POEM WILL THIS BE?":PP[178]0:GS[178]0:GT[178]0
2580 [153]:[153]"1. GOOD":[153]"2. GREAT":[153]"3. WONDERFUL"
2585 [153]"4. AWESOME":[153]"5. OVERWHELMING"
2590 [153]"SYSTIP: THE HIGHER THE NUMBER"
2595 [153]"     THE LONGER THE SILLYPOEMWAIT!"
2600 [161]G$:[139]G$[178]""[167]2600
2605 [139][197](G$)[179]1[176][197](G$)[177]5[167]2600
2610 PP[178][197](G$)[172]9
2615 [151]Z,1:[151]Z[170]1,1:[141]1055:XX$[178]"BY "[170]NA$:X8[178]0:[153]:[141]2475
2616 [153]:[141]1135
2620 I[178][181](6[172][187](1))[170]1:[153]"STOP";
2625 [139]O[177]PP[167]2860
2626 [145]I[137]2630,2665,2705,2745,2900,2935
2630 [139]O[177]PP[167]2860
2631 [145]I[137]2635,2640,2645,2650,2655,2660
2635 PO$(O)[178]"A SMALL DROPLET OF "[170]FL$:[141]15:[137]2785
2640 PO$(O)[178]"THOUSANDS OF "[170]PC$:[141]15:[137]2785
2645 PO$(O)[178]IC$[170]" ICE CREAM":[141]15:[137]2785
2650 PO$(O)[178]"NAKED "[170]BP$[170]", NAKED "[170]AP$:[141]15:[137]2785
2655 PO$(O)[178]SE$:[141]15:[137]2785
2660 PO$(O)[178]"BURIED IN A MOUNTAIN OF "[170]OS$:[141]15:[137]2785
2665 [139]O[177]PP[167]2860
2666 [145]I[137]2670,2675,2680,2685,2690,2695
2670 PO$(O)[178]"STRAINING MIGHTILY":[141]15:[137]2620
2675 PO$(O)[178]"FALLING THROUGH THE NIGHT":[141]15:[137]2785
2680 PO$(O)[178]"WAITING, ALWAYS WAITING":[141]15:[137]2795
2685 PO$(O)[178]"POINTING THE WAY":[141]15:[137]2785
2690 PO$(O)[178]"SINGING *** "[170]AE$[170]" *** ":[141]15
2695 PO$(O)[178]"LIGHTLY BRUSHING SOMEONE'S "[170]BP$:[141]15
2700 [137]2785
2705 [139]O[177]PP[167]2860
2706 [145]I[137]2710,2715,2720,2725,2730,2733
2710 PO$(O)[178]"MORE "[170]FL$[170]" AND "[170]OS$[170]", WAITER!":[141]15:[137]2785
2715 PO$(O)[178]"SHOWING ALL,"[170][199](13)[170]"SAYING NOTHING":[141]15:[137]2785
2720 PO$(O)[178]"EMPTIED AND FILLED AGAIN":[141]15:[137]2785
2725 PO$(O)[178]"VALUABLE? ON WHOSE TERMS?":[141]15:[137]2785
2730 [139]U[178]0[167]2785
2733 PO$(O)[178]"--WHICH IS THE PATH OF TRUTH":[141]15:[137]2785
2735 PO$(O)[178]"--WHICH IS THE PATH OF TRUTH":[141]15:[137]2785
2739 PO$(O)[178]"MORE "[170]FL$[170]" AND "[170]OS$[170]", WAITER!":[141]15:[137]2785
2745 [139]O[177]PP[167]2860
2746 [145]I[137]2750,2755,2765,2770,2775,2780
2750 PO$(O)[178]"...BREATHING":[141]15:[137]2785
2755 PO$(O)[178]"IN, OUT, IN, OUT":[141]15:[139][197](G$)[177]2[167][137]2620
2760 [137]2785
2765 PO$(O)[178]"FALLING...STOP":[141]15:[137]2785
2770 PO$(O)[178]"COUNTING BY TWOS...":[141]15:[137]2785
2775 PO$(O)[178]"EVERY HOUR, ON THE HOUR":[141]15:[137]2785
2780 PO$(O)[178]"WHEN DID IT BEGIN? WHEN WILL IT END?":[141]15:[137]2785
2785 [139]U[178]0[176][187](1)[177].19[167]2795
2790 [137]3010:U[178]2:[153]"STOP"
2795 [139][187](1)[177].65[167]2805
2800 PO$(O)[178]" ":U[178]U[170]1:[141]15:[137]2810
2805 PO$(O)[178][199](13):[141]15:U[178]0:[129]T[178]1[164]1000:[130]T
2810 I[178][181]([181](12[172][187](1))[173]2)[170]1:[153]"STOP";
2815 GS[178]GS[170]1:[139]GS[178]6[167]2900:[153]
2820 GT[178]GT[170]1:[139]GT[178]3[167]P9[178]1:[137]2935
2825 J[178]J[170]1:K[178]K[170]1
2830 [139]U[177]0[176][181](J[173]2)[179][177]J[173]2[167]2840
2835 PO$(O)[178]"     "
2840 [139]O[177]PP[167]2860
2841 [145]J[137]2630,2665,2705,2745,2845
2845 J[178]0:[153]:[139]K[177]20[167]2855
2850 [137]2810
2855 [153]:U[178]0:K[178]0:[137]2665
2860 :
2865 [129]T[178]1[164]2000:[130]:[153]:[145][197](G$)[137]2870,2875,2880,2885,2890
2870 [153]"THIS HAS BEEN A GOOD POEM!":[137]3045
2875 [153]"WOW -- WHAT A GREAT POEM!":[137]3045
2880 [153]"TRULY A WONDERFUL POEM!":[137]3045
2885 [153]"
2890 PRINT"DEFINITELY AN OVERWHELMING POEM!":GOTO3045
2895 :
2900 IFO2<>0THEN2620
2901 O2=1
2902 IFO>PPTHEN2860
2903 ONIGOTO2905,2910,2915,2920,2925,2930
2905 PO$(O)="BOUNCING ":GOSUB11:GOTO2935
2910 PO$(O)="BURNING ":GOSUB11:GOTO2935
2915 PO$(O)="THROBBING ":GOSUB11:GOTO2935
2920 PO$(O)="DREAMING ":GOSUB11:GOTO2935LIST11
2925 PO$(O)="IMAGINING ":GOSUB11:GOTO2935
2930 PO$(O)="TOUCHING ":GOSUB11:GOTO2935
2935 IFO>PPTHEN2860
2936 FORT=1TO2000:NEXT:PRINT:ONIGOTO2945,2970,2980,2990,2995,3000
2940 PO$(O)=CHR$(13):GOSUB15
2945 PO$(O)=CHR$(13)+"AND THERE, I THOUGHT, MIGHT BE A CHANCE":GOSUB15
2950 PO$(O)="TO SHOW WHAT I OR YOU OR ANY OF US ARE":GOSUB15
2955 PO$(O)="MADE OF. AND I THOUGHT -- MAYBE IT WILL":GOSUB15
2960 PO$(O)="PROVE ITSELF TO BE WORTH THE CHANCE."+CHR$(13):GOSUB15:GOTO2620
2970 PO$(O)="AND YET AGAIN ONE WONDERS...":GOSUB15:GOTO2620
2975 PO$(O)="DOES IT ALL COMPUTE...I MEAN REALLY?[146]":GOSUB15:GOTO2620
2980 PO$(O)="COMMODE PLUS 'OR' = COMMODORE":GOSUB15:GOTO2620
2985 PO$(O)="ARE YOU SURPRISED?":GOSUB15:GOTO2620
2990 PO$(O)="DROWNING IN A SEA OF METAPHOR!":GOSUB15:GOTO2620
2995 FORQ=1TO40:PRINT"[153][209][144]";:NEXT:GOTO2620
3000 PO$(O)="OH NO! "+IC$+" "+OS$+"!":GOSUB15:GOTO2620
3005 PO$(O)="AN OCEAN OF "+FL$:GOSUB15:GOTO2620
3010 IFO>PPTHEN2860
3011 ONIGOTO3015,3020,3025,3030,3035,3040
3015 FORQ=1TO(I*8):PE$=" ":PO$(O)=PO$(O)+PE$:NEXTQ:PRINTPO$(O):O=O+1:GOTO2795
3020 FORQ=1TO(I*8):PE$="[156] ":PO$(O)=PO$(O)+PE$:NEXTQ:PRINTPO$(O):O=O+1:GOTO2795
3025 FORQ=1TO(I*8):PE$="[209]":PO$(O)=PO$(O)+PE$:NEXTQ:PRINTPO$(O):O=O+1:GOTO2795
3030 FORQ=1TO(I*8):PE$=" ":PO$(O)=PO$(O)+PE$:NEXTQ:PRINTPO$(O):O=O+1:GOTO2795
3035 FORQ=1TO(I*8):PE$="[158] ":PO$(O)=PE$:GOTO2795
3040 FORQ=1TO(I*8):PE$="[158][166]":PO$(O)=PE$:GOTO2795
3045 XX$="FROM THE PEN OF...":GOSUB2475:XX$=CHR$(18)+NA$:GOSUB2475
3050 FORT=1TO2000:NEXT
3055 PRINT"WOULD YOU LIKE A HARD COPY OF YOUR POEM?"
3060 GETYN$:IFYN$=""THEN3060
3065 IFYN$="Y"THEN3200
3070 IFYN$<>"N"THEN3060
3075 PRINT"WOULD YOU LIKE TO WRITE":PRINT"ANOTHER SILLYPOEM Y/N?"
3076 FORO5=0TOO:PO$(O5)="":NEXT:O=0:O2=0
3080 GETYN$:IFYN$=""THEN3080
3085 IFYN$="Y"THEN3100
3090 IFYN$="N"THENPOKEZ+1,0:P1=1:GOTO210
3095 GOTO3080
3100 PRINT"DO YOU WISH TO CHANGE THE ANSWERS"
3105 PRINT"TO YOUR TEST QUESTIONS Y/N?"
3110 GETYN$:P1=2
3115 IFYN$="Y"THEN2190
3120 IFYN$="N"THEN2570
3125 GOTO3110
3130 PRINTCHR$(5)+"[147]":PRINT"FACTOR YOU WISH TO ANALYZE"
3135 PRINT"(ONE WORD PLEASE)":X$=""
3140 INPUTX$:IFX$=""THENX$="POO POO"
3145 PRINT"[147]";:TA$=CHR$(18)+CHR$(158)+"SPECIAL "+X$+" STUDY"
3150 TA=INT(13-LEN(X$)/2):X$=" "+X$:IFTA<0THENTA=0
3155 G$="[218]":GOTO510
3160 PRINT"[147][153]THIS ANALYSIS OF"X$
3165 PRINT"WAS PREPARED BY A HIGHLY TRAINED AND"
3170 PRINT"VERY EXPENSIVE TEAM OF PROFESSIONALS"
3175 PRINT"IF YOU DON'T UNDERSTAND ANY PART OF"
3180 PRINT"THIS DATA, IT IS DUE TO YOUR OWN SILLY"
3185 PRINT"HUMAN WEAKNESSES, WHICH HAVE ALSO BEEN"
3190 PRINT"STUDIED AND RECORDED"
3195 PRINT"I HOPE YOU CATCH MY DRIFT, "NF$:GOTO730
3200 PRINT"IS YOUR PRINTER ON? PRESS RETURN[146]"
3205 GETYN$:IFYN$<>CHR$(13)THEN3205
3210 OPEN1,4,1
3215 PRINT"THE PRINTER IS NOW PRESERVING YOUR"
3220 PRINT"SILLYPOEM[146]"
3225 PRINT#1,CHR$(14)
3230 PRINT#1,"SILLYPOEM"
3235 PRINT#1,"BY ";NA$:PRINT#1
3240 FORQ=0TOO
3245 IFQ<>O0THEN3255
3250 FOROO=1TO50:PRINT#1,PO$(Q);:NEXT:PRINT#1:PRINT#1:GOTO3260
3255 PRINT#1,PO$(Q)
3260 NEXT
3265 FORO=1TO5:PRINT#1,CHR$(15)
3270 CLOSE1:GOTO3075
3275 DATA34334,36376,38539,40830
3280 DATA43258,45830,48556,51443
3285 DATA54502,57743,61176,64814
3290 DATA64
3295 DATA33,63,180,0,0
3300 DATA33,23,16,0,0
3305 DATA33,23,16,0,0
3310 DATA1,12,17
3315 DATA1,12,33
3320 DATA8,97,33
3325 DATA1,12,17
3330 DATA1,12,33
3335 DATA8,97,33
3340 DATA1,12,17
3345 DATA1,12,33
3350 DATA8,97,33
3355 DATA1,12,16
3360 DATA1,12,32
3365 DATA8,97,32
3370 DATA21,31,17
3375 DATA12,143,33
3380 DATA10,143,33
3385 DATA21,31,16
3390 DATA12,143,33
3395 DATA10,143,33
3400 DATA19,239,17
3405 DATA12,143,33
3410 DATA10,143,33
3415 DATA19,239,16
3420 DATA12,143,32
3425 DATA10,143,32
3430 DATA21,31,17
3435 DATA1,12,33
3440 DATA6,71,33
3445 DATA21,31,16
3450 DATA1,12,33
3455 DATA6,71,33
3460 DATA25,30,17
3465 DATA1,12,33
3470 DATA6,71,33
3475 DATA25,30,16
3480 DATA1,12,32
3485 DATA6,71,32
3490 DATA28,49,17
3495 DATA12,143,33
3500 DATA10,143,33
3505 DATA28,49,16
3510 DATA12,143,33
3515 DATA10,143,33
3520 DATA25,30,17
3525 DATA12,143,33
3530 DATA10,143,33
3535 DATA25,30,16
3540 DATA12,143,32
3545 DATA10,143,32
3550 DATA1,12,17
3555 DATA1,12,33
3560 DATA8,97,33
3565 DATA1,12,16
3570 DATA1,12,32
3575 DATA8,97,32
3580 DATA39,223,17
3585 DATA23,181,33
3590 DATA14,239,33
3595 DATA39,223,16
3600 DATA23,181,32
3605 DATA14,239,32
3610 DATA37,162,17
3615 DATA22,96,33
3620 DATA14,24,33
3625 DATA37,162,16
3630 DATA22,96,32
3635 DATA14,24,32
3640 DATA1,12,17
3645 DATA1,12,33
3650 DATA8,97,33
3655 DATA1,12,16
3660 DATA1,12,32
3665 DATA8,97,32
3670 DATA33,135,17
3675 DATA21,31,33
3680 DATA14,239,33
3685 DATA33,135,17
3690 DATA21,31,33
3695 DATA14,239,33
3700 DATA33,135,17
3705 DATA21,31,33
3710 DATA14,239,33
3715 DATA33,135,16
3720 DATA21,31,32
3725 DATA14,239,32
3730 DATA19,239,17
3735 DATA15,210,33
3740 DATA11,218,33
3745 DATA19,239,17
3750 DATA15,210,33
3755 DATA11,218,33
3760 DATA19,239,17
3765 DATA15,210,33
3770 DATA11,218,33
3775 DATA19,239,16
3780 DATA15,210,32
3785 DATA11,218,32
3790 DATA19,239,17
3795 DATA15,210,33
3800 DATA8,97,33
3805 DATA19,239,16
3810 DATA15,210,32
3815 DATA8,97,33
3820 DATA21,31,17
3825 DATA16,195,33
3830 DATA8,97,33
3835 DATA21,31,17
3840 DATA16,195,33
3845 DATA8,97,32
3850 DATA21,31,17
3855 DATA16,195,33
3860 DATA12,143,33
3865 DATA21,31,17
3870 DATA16,195,33
3875 DATA12,143,33
3880 DATA21,31,17
3885 DATA16,195,33
3890 DATA12,143,33
3895 DATA21,31,17
3900 DATA16,195,33
3905 DATA12,143,32
3910 DATA21,31,17
3915 DATA16,195,33
3920 DATA12,143,33
3925 DATA21,31,17
3930 DATA16,195,33
3935 DATA12,143,33
3940 DATA21,31,17
3945 DATA16,195,33
3950 DATA12,143,33
3955 DATA21,31,16
3960 DATA16,195,32
3965 DATA12,143,32
3970 DATA19,239,17
3975 DATA15,210,33
3980 DATA6,71,33
3985 DATA19,239,17
3990 DATA15,210,33
3995 DATA6,71,33
4000 DATA19,239,17
4005 DATA15,210,33
4010 DATA6,71,33
4015 DATA19,239,16
4020 DATA15,210,32
4025 DATA6,71,32
4030 DATA19,239,17
4035 DATA15,210,33
4040 DATA8,97,33
4045 DATA19,239,16
4050 DATA15,210,32
4055 DATA8,97,33
4060 DATA21,31,17
4065 DATA16,195,33
4070 DATA8,97,33
4075 DATA21,31,17
4080 DATA16,195,33
4085 DATA8,97,32
4090 DATA21,31,17
4095 DATA16,195,33
4100 DATA12,143,33
4105 DATA21,31,17
4110 DATA16,195,33
4115 DATA12,143,33
4120 DATA21,31,17
4125 DATA16,195,33
4130 DATA12,143,33
4135 DATA21,31,17
4140 DATA16,195,33
4145 DATA12,143,32
4150 DATA21,31,17
4155 DATA16,195,33
4160 DATA12,143,33
4165 DATA21,31,17
4170 DATA16,195,33
4175 DATA12,143,33
4180 DATA21,31,17
4185 DATA16,195,33
4190 DATA12,143,33
4195 DATA21,31,17
4200 DATA16,195,33
4205 DATA12,143,32
4210 DATA21,31,17
4215 DATA16,195,33
4220 DATA6,71,33
4225 DATA21,31,17
4230 DATA16,195,33
4235 DATA6,71,33
4240 DATA21,31,17
4245 DATA16,195,33
4250 DATA6,71,33
4255 DATA21,31,16
4260 DATA16,195,32
4265 DATA6,71,32
4270 DATA0,0,0
4275 DATA0,0,0
4280 DATA0,0,0
4285 S=54272:FORL=STOS+24:POKEL,0:NEXT
4290 DIMH%(2,100),L%(2,100),C%(2,100)
4295 DIMFQ(11):FORA9=1TO7:READX9:NEXT
4300 FORA=0TO11:READFQ(A):NEXT
4305 READIM
4310 FORK=0TO2:READV1(K),D1(K),R1(K),LP1(K),HP1(K):NEXT
4315 FORI=1TOIM:FORK=0TO2:READH%(K,I),L%(K,I),C%(K,I):NEXT:NEXT
4320 PRINT"WORK, WORK, WORK..."
4325 PRINT"SIGH....":FORM8=1TO9:READM7:NEXT
4330 VI=53248:POKE2040,13:FORU2=832TO894:READU3:POKEU2,U3:NEXT:POKEVI+39,7
4335 POKE2041,14:FORU2=896TO958:READU3:POKEU2,U3:NEXT:POKEVI+40,7:U5=24
4340 POKEVI+29,3:POKEVI+23,3:POKEVI,24:POKEVI+1,202:POKEVI+2,24:POKEVI+3,202
4345 RETURN
10010 DATA 0,0,0,0,0,0,250,147,192
10011 DATA 34,146,0,35,147,192,34,144,64
10012 DATA 34,147,192,0,0,0,14,11,204
10013 DATA 9,81,18,9,113,30,9,81,18
10014 DATA 14,81,18,0,0,0,0,39,128
10015 DATA 0,36,0,0,39,128,0,32,128
9984 DATA 0,39,170,0,0,0,0,0,0
10020 DATA 0,0,0,0,0,0,240,102,1
10021 DATA 144,34,1,128,34,1,130,34,1
10022 DATA 128,34,1,128,34,1,246,34,217
10023 DATA 18,34,73,18,34,73,18,34,73
10024 DATA 18,34,73,18,34,73,146,34,72
10025 DATA 247,119,121,0,0,8,0,0,8
10026 DATA 0,0,8,0,0,120,0,0,0