1 POKE56,56:CLR:POKE53280,0:POKE53281,0:PRINT"[147]"
2 V$="CLIPSHOW
3 [143]----------
5 D[178][194](186):[139]D[179]8[167][153]D:[144]
11 [151]53265,11:[141]40000:
14 [151]53265,27:[151]828,123
15 [151]831,[195](V$):[129]X[178]1[164][195](V$):[151]831[170]X,[198]([202](V$,X)):[130]
20 [147]"CLIPS.PKD",D
9999 [128]
10000 [159]1,8,15,"I0":N$[178]"B.CLIPS"
10001 [152]1,"S0:"[170]N$:[160]1:[148]N$,8:[128]
40000 [159]4,D,4,V$:[161]#4,A$,B$
40010 [132]4,A$(1)
40020 [132]4,A$(2)
40030 [132]4,A$(3)
40040 [160]4
40050 A$(5)[178]"HTTP://C64.ELOADSTAR.COM"
40060 A$(6)[178]"ATN LEN(null)RIGHT$(null)(null) (null)RESENTATION"
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
41002 [151]214,13:[153]
41004 [153][163]1)"LIST                                     "
41005 [129]X[178]1[164]8
41006 [153][163]1)"PRINT#                                     "
41007 [130]
41013 [153][163]1)"POKE                                     "
41015 [151]214,15:[153]
41020 [129]X[178]1[164]6
41021 [139]X[178]1[167][139][195](A$(1))[179]19[167][141]41050
41022 [153][163]19[171][195](A$(X))[173]2)"PRINT#"A$(X)
41024 [130]
41025 T[178]TI[170]60
41026 [159]1,D,15,"S0:TEMP":[160]1
41027 [159]4,D,4,"TEMP,S,W"
41028 [129]X[178]1[164]3:[152]4,A$(X):[130]:[160]4
41031 [139]T[177]TI[167]41031
41032 [153]"":[142]
41050 B$[178]"":A$[178]A$(1)
41051 [129]Y[178]1[164][195](A$):B$[178]B$[170][202](A$,Y,1)[170]" ":[130]
41052 A$(1)[178][200](B$,[195](B$)[171]1):[142]
60000 [137]10000