1 POKE56,56:CLR:POKE53280,0:POKE53281,0:PRINT"[147]"
2 V$="HERBSHOW
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.HERBS
10001 PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,8:END
40000 OPEN4,D,4,V$:GET#4,A$,B$
40010 INPUT#4,A$(1)
40020 INPUT#4,A$(2)
40030 INPUT#4,A$(3)
40040 CLOSE4
40050 A$(5)="HTTP://C64.ELOADSTAR.COM"
40060 A$(6)="[193] [195][204][201][208][211] [208]RESENTATION"
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,13:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO8
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41015 POKE214,15:PRINT
41020 FORX=1TO6
41021 IFX=1THENIFLEN(A$(1))<19THENGOSUB41050
41022 PRINTTAB(19-LEN(A$(X))/2)"[152]"A$(X)
41024 NEXT
41025 T=TI+60
41026 OPEN1,D,15,"S0:TEMP":CLOSE1
41027 OPEN4,D,4,"TEMP,S,W"
41028 FORX=1TO3:PRINT#4,A$(X):NEXT:CLOSE4
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 B$="":A$=A$(1)
41051 FORY=1TOLEN(A$):B$=B$+MID$(A$,Y,1)+" ":NEXT
41052 A$(1)=LEFT$(B$,LEN(B$)-1):RETURN
60000 GOTO10000