start tok64 d64-GlVIqG 10 REM ************************** 20 REM * * 30 REM* * skiv-register * * 40 REM * * ------------- * * 50 REM ** ** 60 REM * av:johan--persson * 70 REM ** 870201 (c) turbo soft ** 75 REM * * till[gg& f{pound}rb[ttringar * * 76 REM* * av mr.p. (c) 900629 * * 80 REM * * 90 REM ************************** 100 POKE53280,0:POKE53281,0:x=1:y=1:z=1:DIMn$(2000),sk$(2000),ms$(2000) 110 PRINT"{clear}{156}{down}" 120 PRINT"{up}{right*12}{cm @}{cm p}{cm d}{reverse on}{cm u}{cm y}{cm t*3}{cm y}{cm u}{reverse off}{cm d}{cm p}{cm @} 130 PRINT"{yellow}{right*12}skiv register 140 PRINT"{right*12}{156}{cm t}{cm y}{cm u}{reverse on}{cm i}{cm d}{cm p*3}{cm d}{cm i}{reverse off}{cm u}{cm y}{cm t}{yellow} 150 PRINT"{down*3}{right*10}{reverse on}{space*2}f1{space*2}{reverse off}{light green} - {156}skriva in{yellow} 160 PRINT"{down}{right*10}{reverse on}{space*2}f3{space*2}{reverse off}{light green} - {156}se filer{yellow} 170 PRINT"{down}{right*10}{reverse on}{space*2}f5{space*2}{reverse off}{light green} - {156}s{pound}ka artist{yellow} 180 PRINT"{down}{right*10}{reverse on}{space*2}f7{space*2}{reverse off}{light green} - {156}s{pound}ka skiva{yellow} 190 PRINT"{down}{right*10}{reverse on}{space*2}f2{space*2}{reverse off}{light green} - {156}instruktioner{yellow} 200 PRINT"{down}{right*10}{reverse on}{space*2}f4{space*2}{reverse off}{light green} - {156}omstart{yellow} 210 PRINT"{down}{right*10}{reverse on}{space*2}f6{space*2}{reverse off}{light green} - {156}[ndra{yellow} 220 PRINT"{down}{right*10}{reverse on}{space*2}f8{space*2}{reverse off}{light green} - {156}sluta/spara/ladda{yellow} 230 GETa$:IFa$=""THEN230 240 IFa$="{f1}"THEN330 250 IFa$="{f3}"THEN440 260 IFa$="{f5}"THEN520 270 IFa$="{f7}"THEN760 280 IFa$="{f2}"THEN1040 290 IFa$="{f4}"THEN1170 300 IFa$="{f6}"THEN1270 310 IFa$="{f8}"THEN1510 320 GOTO230 330 PRINT"{clear}{down}{156}inskrivning 340 PRINT"{yellow}{-*11} 350 PRINT"{down}artist/grupp 360 INPUT"{down}{156}:";n$(x):x=x+1 370 PRINT"{down*2}{yellow}skivor 380 INPUT"{down}{156}:";sk$(y):y=y+1 390 INPUT"{down}{156}:";msk$(z):z=z+1 400 PRINT"{down*2}{yellow}forts[tt(j/n) 410 GETa$:IFa$=""THEN410 420 IFa$="n"THEN110 430 GOTO330 440 q=x 450 PRINT"{clear}{down}{156}antal filer inskrivna :{yellow}"q-1 460 PRINT"{yellow}{-*27} 470 FORi=1TOx-1:PRINT"{right}{yellow}"i"{left}. :{yellow}"n$(i) 480 FORl=1TO100:NEXT:NEXT 490 PRINT"{down}{cyan}press space 500 GETa$:IFa$=""THEN500 510 GOTO110 520 PRINT"{clear}{down}{156}s{pound}kning av artist 530 PRINT"{yellow}{-*17} 540 PRINT"{down*2}{156}skriv namnet p] gruppen/artisten 550 INPUT"{down}{yellow}:";ss$:z0=0 560 FORi=1TOx 570 IFss$=n$(i)THENz0=1:GOSUB640 580 NEXT 590 IFz0=0THENPRINT"{down*2}"s$"{156}{right}finns ej i registret 600 PRINT"{down*2}en g]ng till(j/n) 610 GETa$:IFa$=""THEN610 620 IFa$="n"THEN110 630 GOTO520 640 PRINT"{clear}{down}{156}namn{yellow}"TAB(33)i 650 PRINT"{cyan}{-*40} 660 PRINT"{yellow}"n$(i) 670 PRINT"{down}{cyan}{-*40} 680 PRINT"{down}{156}skivor 690 PRINT"{cyan}{-*40} 700 PRINT"{yellow}"sk$(i) 710 PRINTms$(i) 720 PRINT"{down}{cyan}{-*40} 730 PRINT"{down}press any key 740 GETa$:IFa$=""THEN740 750 RETURN 760 PRINT"{clear}{down}{156}s{pound}kning av skivnamn 770 PRINT"{yellow}{-*19} 780 PRINT"{down*2}{156}skriv namnet p] albumet 790 INPUT"{down}{yellow}:";al$ 800 z0=0:FORi=1TOy 810 IFal$=sk$(i)THENz0=1:GOSUB640 820 NEXT 830 FORi=1TOz 840 IFal$=ms$(i)THENz0=1:GOSUB640 850 NEXT 860 IFz0=0THENPRINT"{down*2}"al$"{156}{right}finns ej i registret 870 PRINT"{down*2}en g]ng till(j/n) 880 GETa$:IFa$=""THEN880 890 IFa$="n"THEN110 900 GOTO760 1030 END 1040 PRINT"{clear}{down}{yellow}{right*12}instruktioner 1050 PRINT"{156}{right*12}{-*13} 1060 PRINT"{down*2}{right}detta skiv-register har plats f{pound}r 1070 PRINT"{down}{right}cirka 4{0*3} artister eller grupper och 1080 PRINT"{down}{right}cirka 8{0*3} skivnamn.{cyan}vid inskrivning 1090 PRINT"{down}{right}s] kan du bara skriva in 38 tecken men 1100 PRINT"{down}{right}ist[llet finns det 2 inputsatser.{yellow}vid 1110 PRINT"{down}{right}omstart s] nollst[lls pekaren p] data 1120 PRINT"{down}{right}satser.{light blue}du kan s{pound}ka p] b]de artist/ 1130 PRINT"{down}{right}grupp eller p] skivnamn(albumets namn) 1140 PRINT"{down}{right*12}{yellow}tryck p] space 1150 GETa$:IFa$=""THEN1150 1160 GOTO110 1170 PRINT"{clear}{down*2}{156}omstart 1180 PRINT"{yellow}{-*7} 1190 PRINT"{down*2}{pink}[r du s[ker (j/n) 1200 GETa$:IFa$=""THEN1200 1210 IFa$<>"j"THEN110 1220 PRINT"{down}{yellow}ok. omstart" 1230 FORi=0TO1000:NEXT 1240 RUN 1270 PRINT"{clear}{down*2}{156}[ndra/tabort 1280 PRINT"{yellow}{-*13} 1290 INPUT"{down}{cyan}vill du [ndra ta bort ([/b)";a$ 1300 IFa$="["ORa$="a"THEN1390 1310 PRINT"{clear}{down*2}{156}ta bort 1320 PRINT"{yellow}{-*7} 1330 INPUT"{down*2}{cyan}vilket nr. vill du ta bort{yellow}";r:IFr>xORr<1THEN1330 1340 PRINT"{down}{156}du tar bort {yellow}"n$(r)". 1341 INPUT"{white}{reverse on}bekr[fta (ja/nej)? nej{left*5}";b$ 1342 IFb$<>"j"ANDb$<>"ja"ANDb$<>"y"ANDb$<>"yes"THEN110 1343 FORi=rTOx-1 1344 n$(i)=n$(i+1):sk$(i)=sk$(i+1):ms$(i)=ms$(i+1) 1345 NEXT 1350 PRINT"{down}{green}ok. borttaget. 1360 x=x-1:y=y-1:z=z-1 1370 GETa$:IFa$=""THEN1370 1380 GOTO110 1390 PRINT"{clear}{down*2}{156}[ndra 1400 PRINT"{yellow}{-*5} 1410 INPUT"{down*2}{cyan}vilket nr. vill du [ndra ";n 1420 PRINT"{down}{156}namn 1430 PRINT"{down}{yellow}:? "n$(n) 1440 INPUT"{up}:";n$(n) 1450 PRINT"{down}skivor 1460 PRINT"{down}{yellow}:? "sk$(n):PRINT":? "ms$(n):PRINT"{up*2} 1470 INPUT"{up}:";sk$(n) 1480 INPUT":";ms$(n) 1490 GETa$:IFa$=""THEN1490 1500 GOTO110 1510 PRINT"{clear}{down*2}{156}sluta/spara/ladda 1520 PRINT"{yellow}{-*17} 1525 INPUT"{down}{cyan}vill du {white}s{cyan}luta/s{white}p{cyan}ara/{white}l{cyan}adda{yellow}";b$ 1526 IFb$="p"ORb$="spara"THEN1570 1527 IFb$="l"ORb$="ladda"THEN1710 1530 PRINT"{down*2}{yellow}[r du s[ker(j/n) 1540 GETa$:IFa$=""THEN1540 1550 IFa$="n"THEN110 1560 SYS64760 1570 PRINT"{down}{yellow}{reverse on}{space*2}f1{space*2}{reverse off}{white}=band","{yellow}{reverse on}{space*2}f7{space*2}{reverse off}{white}=disk 1580 GETa$:IFa$="{f1}"THENe=1:s=1:b$="":c$="":GOTO1620 1590 IFa$<>"{f7}"THEN1580 1600 e=8:s=2:b$="@0:":c$=",s,w":POKE198,0 1610 PRINT"obs! gammalt skivregister skrivs {pound}ver.{space*2}tryck tangent.":WAIT198,1 1620 CLOSE5:OPEN5,e,s,b$+"skivregister.txt"+c$ 1630 PRINT#5,"Wantal"CHR$(13)x 1640 PRINT#5,"Wdata" 1650 FORi=1TOx 1660 PRINT#5,n$(i)CHR$(13)sk$(i)CHR$(13)ms$(i) 1670 NEXT 1680 PRINT#5,"Wslut data" 1690 CLOSE5 1700 GOTO110 1710 PRINT"{down}{yellow}{reverse on}{space*2}f1{space*2}{reverse off}{white}=band","{yellow}{reverse on}{space*2}f7{space*2}{reverse off}{white}=disk 1720 GETa$:IFa$="{f1}"THENe=1:s=0:c$="":GOTO1760 1730 IFa$<>"{f7}"THEN1720 1740 e=8:s=2:c$=",s,r":POKE198,0 1750 PRINT"obs! gammalt skivregister skrivs {pound}ver.{space*2}tryck tangent.":WAIT198,1 1760 CLOSE5:OPEN5,e,s,"skivregister.txt"+c$ 1770 INPUT#5,t$:IFt$<>"Wantal"THEN1850 1780 INPUT#5,x,t$:y=x:z=x:IFt$<>"Wdata"THEN1850 1790 FORi=1TOx 1800 INPUT#5,n$(i),sk$(i),ms$(i) 1810 NEXT 1820 INPUT#5,t$:IFt$<>"Wslut data"THEN1850 1830 CLOSE5 1840 GOTO110 1850 CLOSE5:PRINT"{yellow}file data not for this program!" 1860 POKE198,0:WAIT198,1:GOTO110 stop tok64 (bastext 1.0)