30 FORM=1TO5:READA$(0):FORF=1TO40:PRINT"";
31 FORQ=1TO40-F:PRINT" ";:NEXTQ:PRINTLEFT$(A$(0),F):NEXTF
32 READA$(1):FORF=1TO40:PRINT"";
33 PRINTRIGHT$(A$(1),F);:FORY=0TO30:NEXTY:NEXT
34 READA$(2):FORF=1TO40:PRINT"";
35 FORQ=1TO40-F:PRINT" ";:NEXTQ:PRINTLEFT$(A$(2),F):NEXT:FORP=0TO999:NEXT
37 FORQ=1TO40:PRINT""MID$(A$(0),Q,LEN(A$(0))):NEXTQ
38 FORQ=1TO40:PRINT"";:FORN=1TOQ:PRINT" ";:NEXTN
39 PRINTLEFT$(A$(1),40-Q):NEXT
40 FORQ=1TO40:PRINT""MID$(A$(2),Q,LEN(A$(2))):NEXTQ:NEXTM
50 DATA,"             BASIC DELIRIUM [158]",,"  [171][192][201][213][196][201][213][196][201].[213][196][201][164][213][192][179][213][196][201][221]  .[178][192][174].  [221][176][178][201] "
51 DATA"   [221] [200][199] [221][202][192][201][221][199]  [163][199] [221][171][192][189][221]  [221][221]  [221][199] [221][221][221][200] "
52 DATA"  [173][192][203][202][192][177][202][198][203][177][202][198][203] [202][192][189][202][198][203][173][192][203][177][177]  [177][202][198][203]  [200] "
53 DATA"[155]  WAS TOTALLY CODED AND GRAFIXED BY[193] "
54 DATA" [213][192][192][192][192][192][192][192][192][192][213][192][192][192][192][192][192][192][192][201][213][192][192][192][192][192][192][192][174][192][192][192][192][192][192][192][192][174]"
55 DATA"[202][192][192][192][192][192][192][192][192][189][202][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][192][177]        [189] "
56 DATA"[155]      AND RELEASED ON 6TH/7TH OF  "
58 PRINT"[155]  AND NOW A LA";:DATA"   JANUARY AT THE PARTY ORGANISED BY[193] "
59 PRINT"ME LENSE OVER A LOGO...":DATA," [213][192][174][213][196][201][178][192][174].[213][196][201][213][196][201]   [213][196][201][221] [221][213][196][201][213][196][201][213][196][201][213][196][201] "
60 FORT=0TO999::::NEXTT:DATA"  [199] [221][199]  [221]  [221][202][192][201][171][192][189] + [171][192][189][202][192][201][199]  [171][192][189][202][192][201][202][192][201] "
61 PRINT"";:GOTO78:DATA" [202][192][177][202][198][203][177]  [177][202][198][203][202][198][203]   [202][198][203][221] [221][202][198][203][202][198][203][202][198][203][202][198][203] "
62 X=10:Y=13:XR=1:YR=1:G=0
63 G=G+1:Z=55296+Y*40+X:W=PEEK(Z):IFW=0THEN69
64 POKE8192,PEEK(Z-41):POKE8193,PEEK(Z-40):POKE8194,PEEK(Z-39)
65 POKE8195,PEEK(Z-1):POKE8196,PEEK(Z):POKE8197,PEEK(Z+1):POKE8198,PEEK(Z+39)
66 POKE8199,PEEK(Z+40):POKE8200,PEEK(Z+41)
67 POKEZ+1,W:POKEZ-1,W:POKEZ-41,W:POKEZ-40,W:POKEZ-39,W:POKEZ+39,W
68 POKEZ+40,W:POKEZ+41,W:FORT=1TO150:NEXT
69 X=X+XR:IFX>36THENXR=-1
70 IFX<3THENXR=1
71 Y=Y+YR:IFY>21THENYR=-1
72 IFY<13THENYR=1
73 IFW=0THEN63
74 POKEZ-41,PEEK(8192):POKEZ-40,PEEK(8193):POKEZ-39,PEEK(8194)
75 POKEZ-1,PEEK(8195):POKEZ,PEEK(8196):POKEZ+1,PEEK(8197)
76 POKEZ+39,PEEK(8198):POKEZ+40,PEEK(8199):POKEZ+41,PEEK(8200):IFG<60THEN63
77 FORT=1TO400:NEXT:GOTO86
78 PRINT"[144]   [152]        [144] [152]        [144] [152]        [144] [152]       [144]      ";
79 Z$="[151] [155] [152] [144]  [151] [155] [152] [144] ":FORT=1TO3:PRINTZ$;:NEXT:PRINT"  [151] [155] [152] [144]        ";
80 PRINT"[151] [155] [152] [144]  [151]   [144] ";:FORT=1TO2:PRINTZ$;:NEXT:PRINT"  [151] [155] [152] [144]        [151] [155] [152] [144]  ";
81 PRINT"    ";:FORT=1TO2:PRINTZ$;:NEXT:PRINT"  [151] [155] [152] [144]        [151] [155] [152] [144] [152]    [144] ";
82 PRINTZ$"[151] [155] [152] [151]   [155] [152] [144]   [151] [155] [152] [144]        ";:FORT=1TO3:PRINTZ$;:NEXT
83 PRINT"  [151] [155] [152] [144]        ";:FORT=1TO3:PRINTZ$;:NEXT:PRINT"  [151] [155] [152] [144]        ";
84 FORT=1TO3:PRINTZ$;:NEXT:PRINT"  [151] [155] [152] [144]        [151]        [144] [151]        [144] [151]   [144] ";
85 PRINT" [151]   [144]   [151]   [144]     ";:FORM=0TO156:PRINT" ";:NEXT:GOTO62
86 FORM=21TO12STEP-1:POKE781,M:SYS59903:FORT=1TO50:NEXTT:NEXT:GOTO92
87 PRINTSPC(15)"3[223][146]     3[223]"SPC(30)"3[146][169][223][223][146]   3[146][169][223][223]"SPC(28)"3[146][169]  [223][223][146] 3";
88 PRINT"[146][169]  [223][223]"SPC(26)"3[146][169]    [223][223][146][169]    [223][223]"SPC(24)"3[146][169]     3[146][223][223][146]     ";
89 PRINT"[223][223]"SPC(23)"[146][223][223][146]    3[146][169] [223][223][146]    3[146][169]"SPC(24)"[223][223][146]   [223][223][146] 3[146][169]   ";
90 PRINT"3[146][169]"SPC(26)"[223][223][146]   [223][223][146][169]   3[146][169]"SPC(28)"[223][223][146]  3[146][223][223][146]  3[146][169]"SPC(30);
91 PRINT"[223][223]3[146][169] [223][223]3[146][169]"SPC(32)"[223][169]   [223][169]":RETURN
92 F$(0)="[151]":F$(1)="[152]":F$(2)="[155]":F$(3)="":F$(4)="[155]"
93 FORM=0TO4:PRINT""F$(M);:GOSUB87:FORT=1TO30:NEXTT:NEXT
94 C$(1)="              [146]     [146]     [146]     "
95 C$(2)="         [146] [146] [146] [146] [146] [146] [146]
96 C$(3)[178]"         WAIT WAIT WAIT WAIT WAIT WAIT"
97 C$(4)[178]"         WAIT   WAIT WAIT WAIT     WAIT "
98 C$(5)[178]"         WAIT WAIT WAIT WAIT WAIT WAIT "
99 C$(6)[178]"         WAIT WAIT WAIT WAIT WAIT WAIT "
100 C$(7)[178]"              WAIT     WAIT WAIT WAIT ":G[178]0
101 [129]M[178]0[164]17:[151]832[170]M,0:[130]:[129]M[178]18[164]44:[151]832[170]M,255:[130]:[129]M[178]45[164]63
102 [151]832[170]M,0:[130]:[151]2043,13
103 [151]2040,13:[151]2041,13:[151]2042,13:[151]53269,15:[151]53277,15:[151]53248,88
104 [151]53250,136:[151]53252,184:[151]53254,232:[129]M[178]0[164]3:[151]53287[170]M,0:[130]
105 G[178]G[170]1:[129]M[178]132[164]195:[151]53249,M:[151]53251,M:[151]53253,M:[151]53255,M
106 [153]"";
107 D[178](M[173]8)[171]16.5:[129]Z[178]1[164]D:[153]"";:[130]Z:[153]"SYS"C$(D):[130]:[139]G[178]3[167]113
109 G[178]G[170]1:[129]M[178]194[164]133[169][171]1:[151]53249,M:[151]53251,M:[151]53253,M:[151]53255,M
110 [153]"";
111 D[178](M[173]8)[171]15.5:[129]Z[178]1[164]D:[153]"";:[130]:[153]""C$(D):[130]
112 [137]105
113 [151]781,20:[158]59903:[129]M[178]194[164]133[169][171]1:[151]53249,M:[151]53251,M:[151]53253,M
114 [151]53255,M:D[178](M[173]8)[171]4.75:[151]781,D:[158]59903:[130]:[151]781,10:[158]59903
115 [151]53269,0:[129]T[178]1[164]300:[130]
116 [129]M[178]39[164]0[169][171]1:[151]1304[170]M,32:[151]1344[170]M,32:[129]T[178]0[164]30:[130]T:[130]M
117 [129]M[178]0[164]34:[135]Z:[151]1024[170]Z,32:[129]T[178]0[164]30:[130]T:[130]M
118 [131]0,1,40,2,41,80,3,42,81,120,4,43,82,121,160,44,83,122,161,200,84,123,162
119 [131]201,240,124,163,202,241,164,203,242,204,243,244
120 [129]M[178]0[164]38:[151]55300[170]M,12:[151]55342[170]M,12:[151]55381[170]M,12:[151]55419[170]M,12
121 [151]55460[170]M,12:[151]55501[170]M,12:[151]55539[170]M,12
122 [151]55298[170]M,0:[151]55340[170]M,0:[151]55379[170]M,0:[151]55417[170]M,0:[151]55458[170]M,0
123 [151]55499[170]M,0:[151]55537[170]M,0:[130]:[151]53265,32:[129]T[178]0[164]300:[130]:[153]"LOAD"
125 [129]Y[178]0[164]2:[129]X[178]0[164]5:[151]782,X[172]6[170]2:[151]781,Y[172]8:[158]65520
126 [153]"WAIT:;<=>CMDCMDCMDCMDCMD(null)(null)(null) (null)CMDCMDCMDCMDCMDSGN ABSUSRFRECMDCMDCMDCMDCMDQRSTUCMDCMDCMDCMDCMD./012CMDCMDCMDCMDCMD(null)(null)(null)(null)(null)CMDCMDCMDCMDCMD";
127 [153]"NOTSTEP+-*";
128 [130]:[130]:[151]53265,27
129 [129]L[178]1[164]7:[129]M[178]201[164]207:[151]53270,M:[129]T[178]1[164]50:[130]T:[130]M
130 [129]M[178]206[164]200[169][171]1:[151]53270,M:[129]T[178]1[164]50:[130]T:[130]M:[130]L
131 [129]M[178]0[164]3:[129]N[178]0[164]24:[151]781,N:[151]782,M[172]10:[158]65520:[139]M[178]3[175]N[178]24[167]133
132 [153]"LIST          ";:[130]N:[130]M
133 [151]781,24:[151]782,30:[158]65520:[153]"         ";:[130]:[151]56295,15
134 [151]2023,160
135 [151]53281,15:[153]"STOPLOAD";
136 [129]M[178]0[164]3:[129]N[178]0[164]24:[151]781,N:[151]782,M[172]10:[158]65520:[139]M[178]3[175]N[178]24[167]138
137 [153]"          ";:[130]N:[130]M
138 [151]781,24:[151]782,30:[158]65520:[153]"         ";:[130]:[151]56295,0
139 [151]2023,160:[129]T[178]1[164]400:[130]
140 [151]53280,0:[151]53281,0:[153]"STOPLOADLIST";
141 [129]M[178]0[164]3:[153][166]38)"  ";:[130]:H$[178]"   WAIT    WAIT   WAIT    "
142 [153][166]20)"OR    >WAIT      >WAIT OR     ";:G$[178]"  WAIT    WAIT   WAIT    WAIT   WAIT    "
143 [153][166]20)G$[166]20)G$[166]20)"  WAIT    "H$[166]20)"    WAIT  "H$[166]20)"  98WAIT";
144 [153]"  "H$[166]20)"  WAIT   >WAIT"H$[166]20)G$"OR    >WAIT  >WAIT    OR   >WAIT  "G$;
145 [153]"WAIT    WAIT     WAIT      WAIT   WAIT  "G$"WAIT    WAIT       >WAIT   WAIT   WAIT  "G$;
146 [153]"WAIT    WAIT     WAIT   WAIT      WAIT  "G$"WAIT    WAIT     WAIT   WAIT   WAIT     "G$;
147 [153]"WAIT    WAIT     WAIT   WAIT   WAIT   WAIT  "G$"WAIT    WAIT     WAIT   WAIT   WAIT   WAIT  ";
148 [153]"      WAIT   WAIT    WAIT         LIST     LIST   LIST   LIST       LIST       LIST  ";
149 [153]"  LIST   LIST        CONT     CONT   CONT   CONT       CONT       CONT    CONT   CONT  ";
150 [153]"      CONT     CONT   CONT   CONT   CONT    CONT       CONT    CONT   CONT    CONT   ";
151 [153]" CONT     CONT   CONT   CONT   CONT    CONT    CONT   CONT    CONT   CONT    CONT    CONT  ";
152 [153]"   CONT   CONT   CONT       CONT    CONT   CONT    CONT   CONT    CONT    CONT     CONT  ";
153 [153]" CONT   CONT       CONT    CONT   CONT    CONT   CONT    CONT ";:[151]2023,160
154 [151]53265,27:[151]56295,14:[151]53269,1:[151]53287,1:[151]53277,0:[151]53271,0
155 X[178][181]([187](0)[172]234)[170]21:[151]53248,X:Y[178][181]([187](0)[172]35)[170]195:[151]53249,Y
156 [129]M[178]129[164]139:[151]2040,M:[129]T[178]1[164]50:[130]T:[130]M:[129]T[178]1[164]400:[130]
157 [161]A$:[139]A$[179][177]" "[167]155
158 [151]53269,0:[151]53272,21:[153]"WAITLOADLIST...GOOD BYE!...":[158]64738