start tok64 d64-d0N8tl 10 REM ** reg64 - ett registerprogram ** 15 PRINT"{white}{clear}{ct n}{ct h} Reg 64 - ett registerprogram. 20 er=53270:ad=49152:ck=23788:IFPEEK(49152)=169THENSYS49152:rg=.:GOTO170 30 READbt:IFbt=-1THENIFch<>ckTHENPRINT"{clear}{down}data is wrong{.*3}":STOP 40 IFbt<>-1THENPOKEad,bt:ad=ad+1:POKEer,bt:ch=ch+bt:GOTO30 50 POKEer,8:SYS49152 60 DATA169,192,141,9,3,169,15,141,8,3,76,174,167,234,234,234,32,115,0,201 70 DATA33,240,7,32,121,0,76,231,167,234,230,122,208,2,230,123,234,165,122 80 DATA133,34,165,123,133,35,165,43,133,122,165,44,133,123,32,115,0,201,143 90 DATA240,15,165,46,197,123,208,243,165,45,197,122,208,237,76,162,192,160 100 DATA0,32,115,0,209,34,208,225,200,192,40,240,239,169,58,209,34,208,238 110 DATA32,9,169,24,152,101,122,133,122,144,2,230,123,160,4,177,122,133,21 120 DATA136,177,122,133,20,165,34,133,122,165,35,133,123,169,3,32,251,163 130 DATA169,167,72,169,174,72,165,123,72,165,122,72,165,58,72,165,57,72,169 140 DATA141,72,32,121,0,32,163,168,76,174,167,162,26,189,175,192,32,22,231 150 DATA202,208,247,76,174,167,13,69,76,66,65,76,73,65,86,65,32,84,79,78,32 160 DATA69,78,73,84,85,79,82,66,85,83,13,-1 170 POKE53280,0:POKE53281,0 180 PRINT"{white}{clear}{ct n}{ct h} Reg 64 - ett registerprogram. 190 PRINT"{down*2}{yellow}Huvudmeny:{space*4}1 Starta ett nytt register"; 200 PRINT"{space*14}2 Mata in poster 210 PRINT"{space*14}3 Andra/ta bort 220 PRINT"{space*14}4 Lista 230 PRINT"{sh space}{space*13}5 Sokning i registret 240 PRINT"{space*14}6 Sortera pa valfritt falt"; 250 PRINT"{space*14}7 EJ TILLGANGLIG 260 PRINT"{space*14}8 Spara/ladda 270 PRINT"{space*14}9 Avsluta 280 a=1:no$="{home}{down*3}{right*10}":fo$="{right}{down*8}" 290 PRINTno$LEFT$(fo$,a)"->" 300 GETa$:IFa$="{up}"THEN:!"up":GOTO290 310 IFa$="{down}"THEN:!"down":GOTO290 320 IFa$=CHR$(13)THEN:!"return":GOTO180 330 GOTO300 340 REM"up" 350 PRINTno$LEFT$(fo$,a)"{space*2}":a=a-1:IFa=0THENa=9 360 RETURN 370 REM"down" 380 PRINTno$LEFT$(fo$,a)"{space*2}":a=a+1:IFa=10THENa=1 390 RETURN 400 REM"return" 410 IFa=1THEN:!"nytt":RETURN 420 IFrgANDa=2THEN:!"matain":RETURN 430 IFrgANDa=3THEN:!"andra":RETURN 440 IFrgANDa=4THEN:!"lista":RETURN 450 IFrgANDa=5THEN:!"sok":RETURN 460 IFrgANDa=6THEN:!"sortera":RETURN 480 IFa=8THEN:!"spara/ladda":RETURN 490 IFa=9THEN510 500 FORi=1TO16:POKE53280,i:NEXT:RETURN 510 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Avsluta . Saker? .":POKE198,0:WAIT198,1:GETa$:IFa$<>"j"THENRETURN 515 POKE53280,14:POKE53281,6:PRINT"{clear}{ct i}{142}{light blue}";:CLR:END 520 REM"nytt" 530 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Nytt register . 540 CLR:a=1:rg=-1 550 PRINT"{home}{down*3}{light green}Hur manga falt? 560 PRINT"{right}1{right}2{right}3{right}4{right}5{right}6{right}7{right}8{right}9" 570 PRINTLEFT$("{space*17}",(a*2)-1)"^{space*16}" 580 GETa$:IFa$="{right}"THEN:!"right": 590 IFa$="{left}"THEN:!"left": 600 IFa$=CHR$(13)THEN680 610 GOTO550 620 REM"right" 630 a=a+1:IFa>9THENa=1 640 RETURN 650 REM"left" 660 a=a-1:IFa<1THENa=9 670 RETURN 680 PRINT"{home}{down*3}{light green}Hur manga falt?"a:fa=a:DIMfa$(1000,fa) 690 PRINT"{space*18}":PRINT"{space*18}" 700 PRINT"{down}{cyan}Mata in namn pa de olika falten: 710 FORi=1TOfa 720 PRINT"{yellow}Falt"i"{left}:", 730 INPUT"{pink}";fa$(0,i):fa$(0,i)=LEFT$(fa$(0,i),10):PRINT"{up}",fa$(0,i)"{space*8}" 740 NEXT 750 PRINT"Allt O.K.? 760 GETa$:IFa$="j"THEN170 765 IFa$<>"n"THEN760 770 PRINT"{light blue}{reverse on} Tryck 1 om du vill andra faltens antal{space*2}Tryck 2 om du vill andra "; 780 PRINT"faltens namn. " 790 GETa$:IFa$="1"THEN520 800 IFa$="2"THEN700 810 GOTO790 820 REM"matain" 830 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Inmatning av poster . 840 PRINT"{down}{light blue}Antal poster hittills: "po 850 PRINT"{down}{light green}Post nummer"po+1"{left}: * avslutar 860 FORi=1TOfa 870 PRINTfa$(0,i)":"TAB(11);:INPUTfa$(po+1,i) 880 IFi=1ANDfa$(po+1,i)="*"THENRETURN 890 NEXT 900 po=po+1 910 GOTO840 920 REM"andra" 930 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Andra/ta bort . 940 PRINT"{down}{orange}Ange vilken post du vill andra (sok pa{space*2}"fa$(0,1)") 950 INPUT"Sokstrang (* ger meny): "so$:IFso$="*"THENRETURN 960 !"so$":IFp=-1THEN950 970 PRINT"{yellow}Post"p"{left}: 980 FORi=1TOfa 990 PRINTi;fa$(0,i)":"TAB(14)fa$(p,i) 1000 NEXT 1010 PRINT"Vilken post vill du andra (0=ingen 1020 PRINT"andring, 10 tar bort posten) 1030 INPUT"{>*4}";q 1040 IFq=0THEN950 1050 IFq=10THEN1100 1060 IFq<1ORq>faORq<>INT(q)THEN1030 1070 PRINT"Andra "fa$(p,i) 1080 INPUT"till ";fa$(p,i) 1090 GOTO1010 1100 FORi=pTOpo-1:FORj=1TOfa 1110 fa$(i,j)=fa$(i+1,j) 1120 NEXT:NEXT:po=po-1 1130 GOTO950 1140 REM"sok" 1150 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Sok . 1160 PRINT"{down*2}{light blue}Ange sokstrang (* avslutar":PRINTfa$(0,1)" >{left*2}"; 1170 INPUTso$ 1180 !"so$":IFp=-1THEN1170 1190 FORi=1TOfa 1200 PRINTfa$(0,i)":"TAB(12)fa$(p,i) 1210 NEXT 1220 GOTO1160 1230 REM"so$" 1240 FORp=1TOpo 1250 IFso$=fa$(p,1)THENRETURN 1260 NEXT 1270 p=-1:PRINT"Finns ej i registret!":RETURN 1280 REM"lista" 1290 PRINT"{white}{clear}{ct n}{ct h} Reg 64 . Lista . 1300 PRINT"{down*2}{cyan}Lista pa {reverse on}S{reverse off}karm / {reverse on}P{reverse off}rinter ? 1310 GETa$:IFa$="s"THEN:!"skarm":RETURN 1320 IFa$="p"THEN:!"printer":RETURN 1330 GOTO1310 1340 REM"skarm" 1350 PRINT"{yellow}SHIFT{orange} pausar." 1360 FORi=1TOpo 1370 PRINT"Post:"i 1380 FORj=1TOfa 1390 PRINTfa$(0,j)":"TAB(12)fa$(i,j) 1400 NEXT 1410 IFPEEK(653)=1THEN1410 1420 NEXT 1430 PRINT"Tryck COMMODORE:":WAIT653,2 1440 RETURN 1450 REM"printer" 1460 OPEN4,4,7:CMD4 1470 FORi=1TOPOStep2 1480 PRINT"Post:"i;:IFifaORs<>INT(s)THEN1890 1910 FORi=1TOpo-1 1920 FORj=i+1TOpo 1930 IFfa$(i,s)<=fa$(j,s)THEN1980 1950 FORm=1TOfa 1960 t$=fa$(i,m):fa$(i,m)=fa$(j,m):fa$(j,m)=t$ 1970 NEXT 1980 NEXT 1990 NEXT 2010 PRINT"Sortering klar. Tryck{sh space}SHIFT.":WAIT653,1 2020 RETURN stop tok64 (bastext 1.0)