Loadstar 117/117.d81/memories

Commodore BASIC | 2022-08-26 | 20KB | 355 lines

1 poke56,97:poke55,217:clr:dv=peek(186):ifdv<8thendv=8
2 poke53280,0:poke53281,0
3 sys57812"tiles only",dv,0:poke780,0:poke781,0:poke782,196:sys65493
4 sys57812"mem font",dv,0:poke780,0:poke781,0:poke782,200:sys65493
6 sys57812"tools 9a00",dv,0:poke780,0:poke781,0:poke782,154:sys65493
7 sys57812"multisongs",dv,0:poke780,0:poke781,217:poke782,97:sys65493
10 mt=36864+10*256:dn=peek(186):ifdn<8thendn=8
11 sysmt+3,0,39,0,7,32,0:sysmt+3,0,39,0,24,255,1
12 sysmt+3,0,39,0,24,255,15
13 sysmt+3,0,39,0,24,255,12
14 sysmt+3,0,39,0,24,255,11
15 sysmt+3,0,39,0,24,255,0
20 print"[144][147]":poke56576,4:poke53272,2:poke648,192:poke53265,27
21 sys57812"fade 828",dv,0:poke780,0:poke781,60:poke782,3:sys65493
70 diml1$(251),l2$(251),l3$(301):gosub4010:sys30120
80 sysmt+3,0,39,0,24,127,14:sysmt+39,0,37,8,18:sysmt+3,10,30,2,4,32,2
85 print"[158]":sysmt+18,3,"[205] [197] [205] [207] [210] [201] [197] [211]"
86 rem sysmt+3,1,38,22,22,32,0
87 sysmt+15,2,22,"[146][159] [208][210][197][211][211] [209] [159][196][213][210][201][206][199] [212][200][197] [205][201][211][212][201][206][199] [212][207] [209][213][201][212] "
88 sysmt+15,6,23,"[146][159] [208][210][197][211][211] [211] [159][212][207][160][212][207][199][199][204][197] [212][200][197] [211][207][213][206][196] "
90 dd=int(rnd(1)*7):ch=int(rnd(1)*36)+219:poke198,0:q$="":b$="":a=a+int(rnd(1)*2)+1:ifa>nnthena=1
110 b=b+int(rnd(1)*2)+1:ifb>ggthenb=1
120 c=c+int(rnd(1)*2)+1:ifc>hhthenc=1
130 jj=int(rnd(1)*128):sys828,255
140 sysmt+3,1,38,7,17,32,15:fori=0to7:poke52216+i,peek(50176+jj*8+i):next
160 sysmt+15,0,10,"[153][146]":printtab(20-len(l1$(a))/2)l1$(a);:print:print
165 ifeb=0thenifpeek(789)=234thenpoke31044,4:forx=1to99:next:sys30120
190 printtab(20-len(l2$(b))/2)l2$(b);:print:print
195 ifeb=0thenifpeek(789)=234thenpoke31044,4:forx=1to99:next:sys30120
220 printtab(20-len(l3$(c))/2)l3$(c);:print:sys831,240
225 ifeb=0thenifpeek(789)=234thenpoke31044,4:forx=1to99:next:sys30120
250 ifebgoto290
260 getq$:ifq$=""goto360
270 ifq$="q"then4350
280 ifq$="s"thenpoke31044,4:eb=1
290 ifq$="-"thenzz=zz+100:ifzz>500thenzz=500
300 ifq$="+"thenzz=zz-100:ifzz<0thenzz=10
310 getb$:ifb$=""goto360
320 ifb$="s"thenifebthensys30120:eb=0
330 ifb$="q"then4350
340 ifb$="-"thenzz=zz+100:ifzz>500thenzz=500
350 ifb$="+"thenzz=zz-100:ifzz<0thenzz=10
360 forx=1touu:next:goto90:data1,3,7,10,13,14,15
1010 datahow often we think of,early blossoms suggest,hazy mountains shelter
1020 datanostalgia,remembrance,some choices lead to,mementos,the sun illuminates
1040 dataengraved in memory,traditions,billowing clouds recall,heirlooms
1060 datakeep in mind,recalling,journeying through life i've known
1070 datakeepsakes,foundations of life,viewed with tenderness,sensations
1080 datatrophies,corsages of life
1090 datamagnificent are these memories,memories that are great
1100 datamemorials,a small window to the world,attractions
1110 dataheaven overlooks,monuments of life,bright skies reflect
1120 datareminders,fantasize about
1130 datamasterpieces of life,legacies,reminisce with me about
1140 dataanticipations,of abiding interest,the shadow of a memory
1150 datacollected memories,awaken these memories,constantly recalled
1160 datalead me to,in the sunset glow i remember,an impressionable image
1170 datacollections of memories,variable memories,an awakening memory
1180 datain the twilight i remember,only memories remain,often i remember
1190 datathese memories remain,adventures of life,rare things often remembered
1200 datai share these thoughts,i wonder about,attempt to remember,emotions
1210 datai seldom forget,impressions
1220 datathese things live on,i have known,life's better moments
1230 datapursue a view of,fascinations
1240 datacrystal memories,clear reminders of life,times of yore
1250 datawandering through memories,youthful meanderings,sentiments
1260 datatake time out for,wistfully remembered,never out of mind
1270 dataexperience,dream about,outlooks of life
1280 datapause a moment for,respected memories,appreciated memories
1290 datastop and remember,terrific memories,grand happenings
1300 datatruthful memories,musings
1310 databarely forgotten,largely remembered,awesome memories
1320 datanow i remember,satisfactions
1330 datanever forgotten,rarely forgotten,a kaleidoscope of memories
1340 datararely out of mind,eternal recollections,everlasting memories
1350 datasome decisions lead to,i remember this,recollections are of
1360 datai search for memories of,feelings and thoughts remind me of
1370 dataunending memories,never ending recollections,perpetual remembrances
1380 datasome memos of life,recover memories of,follow the branch in the road to
1390 datacollectibles for keepsakes,these things belong to yesteryear
1400 datamemories,a trail all fresh with dew unveils
1410 dataendless recollections,infinitely remembered,enchantments
1420 datarare moments,renewed memories
1430 dataencounters,a diary of life recalls,thrill to the memory of
1440 dataremember,creations
1450 databoundless recollections,recollections,drifting clouds overlook
1460 dataheavenly views,a memory to cherish,a vivid recollection
1470 dataimmortal memories,timeless remembrances,unceasing recollections
1480 datafriends often share memories of,historic memories,envision
1490 datamy thoughts are of,relish
1500 dataspecial times remembered,fulfillment of a dream,applaud a memory of
1510 dataceaseless rememberings,constant recollections,enduring memories
1520 datasavor the idea of,luxuriate in these memories,relaxing memories
1530 datathoughts i enjoy,enjoy with me,can you remember,enjoy,poetic art forms
1550 datai admire,delight with me about,cherish these thoughts,appreciate,fancy
1570 datathoughts are often of,permanently remembered,undying memories
1580 datasamples of thoughts,notice,partaking of memories,the heart of a dream
1590 dataalong the way remember,my eyes fill with tears for,idolize
1610 dataafter i'm gone remember,as days pass these memories remain
1620 datavisualing mementos,calling me back are memories of,presentations
1630 dataresumes of living,visions
1640 datatoday i noticed again,leaves on high announce,do you recall,recall
1660 datacommanding memories,familiar memories,samples of life,perceive
1680 datathink about,share with me,photographic reflections,discover
1690 datatry reminiscing,offerings
1700 dataallow memories to flow,permitted thoughts,sustaining mementos
1710 datatry to follow the path to,visualize,time stands still for
1720 datai cherish,most often remembered,once i enjoyed,dreams are made of
1730 datathere's still time to enjoy,best of all i remember
1740 datareturn with me to,cherish
1750 datathe heavens behold,take time to enjoy,i often dream of,look forward to
1770 datajoyful memories,enjoy if you will,fond memories,tearful memories
1780 dataa winding path reveals,one's heart yearns for,join me in remembering
1790 datathe evening quiet awaits,looking back i recall,golden memories
1800 datamost unforgettable,outstanding recollections,fondly remembered
1810 datadistant hillsides offer,laughing children share,i adore,amazing beauty
1830 datatry to remember,forever remembered,fulfillment of a dream
1840 dataramblings,admire
1850 databirds sing of,think often of,memories i favor,a pleasant memory
1860 dataamong my souvenirs,a treasure of memories,stroll with me and recall
1870 datamemories are made of,fading dreams renewed,stray recollections
1880 datareminders of youth
1890 dataroaming through memory i think of,a crystal ball discloses
1900 dataa mirror of life,highlight thoughts of,concentrate on,spotlights of life
1920 datasearch for,don't forget,memories tell a story,treasures,perceptions,xxx
2010 datacomforting a friend,feeling deeply about,children playing hide and seek
2030 dataclass reunions," ",favorite games,trees conversing,birthday parties
2050 dataobserving miracles,thinking freely,telling those you love that you do
2070 datapigeons billing and cooing,tender hands,lively children playing
2090 dataforgetting troubles
2100 datathoughts of other times and,recollected songs and,candlelight
2110 data" ",hair tumbling in ringlets,mountains fading to blue mist
2130 datagood health,true imagination
2140 dataold radio programs,funn