start tok64 d64-Z7OZsy
10 PRINT"{clear}please wait{!*3}"
500 s=54272:FORl=sTOs+24:POKEl,0:NEXT
510 DIMh(2,200),l(2,200),c(2,200)
520 DIMfq(11)
540 v(0)=17:v(1)=65:v(2)=33
550 POKEs+10,8:POKEs+22,128:POKEs+23,244
560 FORi=0TO11:READfq(i):NEXT
600 FORk=0TO2
610 i=0
620 READnm
630 IFnm=0THEN750
640 wa=v(k):wb=wa-1:IFnm<0THENnm=-nm:wa=0:wb=0
650 dr%=nm/128:oc%=(nm-128*dr%)/16
660 nt=nm-128*dr%-16*oc%
670 fr=fq(nt)
680 IFoc%=7THEN700
690 FORj=6TOoc%STEP-1:fr=fr/2:NEXT
700 hf%=fr/256:lf%=fr-256*hf%
710 IFdr%=1THENh(k,i)=hf%:l(k,i)=lf%:c(k,i)=wa:i=i+1:GOTO620
720 FORj=1TOdr%-1:h(k,i)=hf%:l(k,i)=lf%:c(k,i)=wa:i=i+1:NEXT
730 h(k,i)=hf%:l(k,i)=lf%:c(k,i)=wb
740 i=i+1:GOTO620
750 IFi>imTHENim=i
760 NEXT
1000 POKEs+5,0:POKEs+6,240
1010 POKEs+12,85:POKEs+13,133
1020 POKEs+19,10:POKEs+20,197
1030 POKEs+24,31
1040 FORi=0TOim
1050 POKEs,l(0,i):POKEs+7,l(1,i):POKEs+14,l(2,i)
1060 POKEs+1,h(0,i):POKEs+8,h(1,i):POKEs+15,h(2,i)
1070 POKEs+4,c(0,i):POKEs+11,c(1,i):POKEs+18,c(2,i)
1080 FORt=1TO80:NEXT:NEXT
1090 FORt=1TO200:NEXT:POKEs+24,0
1100 DATA34334,36376,38539,40830
1101 DATA43258,45830,48556,51443
1102 DATA54502,57743,61176,64814
1200 DATA594,594,594,596,596
1201 DATA1618,587,592,587,585,331,336
1202 DATA1097,583,585,585,585,587,587
1203 DATA1609,585,331,337,594,594,593
1204 DATA1618,594,596,594,592,587
1205 DATA1616,587,585,331,336,841,327
1206 DATA1607
1999 DATA0
2000 DATA583,585,583,583,327,329
2010 DATA1611,583,585,578,578,578
2020 DATA196,198,583,326,587
2030 DATA326,327,329,327,329,326,578,583
2040 DATA1606,582,322,324,582,587
2050 DATA329,327,1606,583
2060 DATA327,329,587,331,329
2070 DATA329,328,1609,578,834
2080 DATA324,322,327,585,1602
2999 DATA0
3000 DATA567,566,567,304,306,308,310
3010 DATA1591,567,311,310,567
3020 DATA306,304,299,308
3030 DATA304,171,176,306,291,551,306,308
3040 DATA310,308,310,306,295,297,299,304
3050 DATA1586,562,567,310,315,311
3060 DATA308,313,297
3070 DATA1586,567,560,311,309
3080 DATA308,309,306,308
3090 DATA1577,299,295,306,310,311,304
3100 DATA562,546,1575
3999 DATA0
4000 PRINT"{clear}club 64 1989"
8999 END
stop tok64
(bastext 1.0)