start tok64 d64-lBXvGY 1 POKE53280,6:POKE53281,4 2 PRINT"{clear}{black}{down}{space*9}v[nta ca 20 sekunder!":GOSUB 1000 5 DIM namn$(2000):x=1 10 POKE 53280,7:POKE53281,7 12 PRINT"{clear}{reverse on}{blue}{space*9}{cm a}{C*19}{cm s}{space*9}" 14 PRINT"{reverse on}{blue} {light blue}{space*8}B{blue}jonny's register ii{light blue}B{space*8}{blue} " 16 PRINT"{reverse on}{blue}{space*9}{cm z}{C*19}{cm x}{space*9}" 17 PRINT"{home}{down*2}" 18 FORi=1TO20:PRINT"{reverse on}{blue} {reverse off}{space*37}{reverse on}{blue} {reverse off}":NEXT 19 PRINT"{home}{down*2}" 20 PRINT"{right*2}{light blue}{cm a}C{cm s}" 21 PRINT"{right*2}{light blue}B{brown}1{light blue}B{red}{space*4}={space*3}inmatning" 22 PRINT"{right*2}{light blue}{cm z}C{cm x}" 24 PRINT"{right*2}{light blue}{cm a}C{cm s}" 25 PRINT"{right*2}{light blue}B{brown}2{light blue}B{red}{space*4}={space*3}ladda post" 26 PRINT"{right*2}{light blue}{cm z}C{cm x}" 28 PRINT"{right*2}{light blue}{cm a}C{cm s}" 29 PRINT"{right*2}{light blue}B{brown}3{light blue}B{red}{space*4}={space*3}spara post" 30 PRINT"{right*2}{light blue}{cm z}C{cm x}" 32 PRINT"{right*2}{light blue}{cm a}C{cm s}" 33 PRINT"{right*2}{light blue}B{brown}4{light blue}B{red}{space*4}={space*3}visa post" 34 PRINT"{right*2}{light blue}{cm z}C{cm x}" 35 PRINT"{right*2}{light blue}{cm a}C{cm s} 36 PRINT"{right*2}{light blue}B{brown}5{light blue}B{red}{space*4}={space*3}[ndra post" 37 PRINT"{right*2}{light blue}{cm z}C{cm x}" 38 PRINT"{orange}{down*3}{right*2}antal poster :";x-1 39 PRINT"{reverse on}{blue}{space*39}" 40 GETa$:IFa$=""THEN 40 41 IFa$="1"THEN 50 42 IFa$="2"THEN 100 43 IFa$="3"THEN 150 44 IFa$="4"THEN 180 45 IFa$="5"THEN 250 46 GOTO 40 50 PRINT"{red}{clear}{space*12}i n m a t n i n g " 51 PRINT"{orange}{down*2}program nr:";x 54 INPUT"{blue}{down*5} program namn >";namn$(x) 55 x=x+1 56 IF namn$(x-1)=""THEN x=x-1:INPUT"{down*3}vill du sortera ";svar$:GOTO60 58 GOTO50 60 IFsvar$="n"ORsvar$="nej"THENGOTO12 62 IFsvar$="j"ORsvar$="ja"THEN70 70 SYS 49152,x,namn$(1) 80 GOTO12 100 OPEN1,8,3,"0 : prg fil ,seq" 110 INPUT#1 ,x 112 FORi=1TO x 114 INPUT#1 ,namn$(i) 116 NEXT i:CLOSE 1:GOTO12 150 IFx<2THENPRINT"{red}{clear}{space*10}ingen post i minnet":FORi=1TO2000:NEXT:GOTO12 152 OPEN 1,8,15 154 PRINT#1 ,"s0: prg fil " 156 CLOSE1 158 OPEN1,8,3,"0 : prg fil ,seq,write" 160 PRINT#1 ,x-1:REM * x-0 * 162 FORi=1TOx-1 164 PRINT#1 ,namn$(i) 166 NEXT i:CLOSE1:GOTO12 180 INPUT"{red}{clear}{down*2}vill du s{pound}ka >";s$ 182 IFs$=""THEN180 184 IFs$="j"ORs$="ja"ORs$="y"ORs$="yes"THEN200 186 a=1:GOTO234 200 PRINT"{red}{clear}{space*12}s {pound} k n i n g" 210 INPUT"{orange}{down*3}vilken bokstav >";sok$ 220 FOR a=1TO x-1:IF LEFT$(namn$(a),1)=sok$THEN 234 230 NEXT 234 PRINT"{clear}":b=a 235 GET a$ 236 c=c+1:PRINT"{blue}prgm nr >";b;" -";namn$(b):b=b+1 237 IFa$="{f1}"THEN12 238 IFc=23THEN WAIT198,1:POKE198,0:c=0:PRINT"{clear}" 239 IFb>x-1THENWAIT198,1:POKE198,0:GOTO12 240 GOTO235 250 PRINT"{clear} 252 PRINT"{space*8}[ndra post" 254 INPUT"{down*4} postens nummer >";p 256 PRINT"{down*2}gamla namnet >";namn$(p) 258 INPUT"{down*2}nya namnet >";ny$ 260 IF ny$=""THEN 12 262 namn$(p)=ny$ 264 GOTO12 1000 i=49152 1010 READ a:IFa=256THEN RETURN 1020 POKEi,a:i=i+1:GOTO 1010 1030 DATA 76,100,192,170,170,170,170 1040 DATA 170,170,170,170,170,170,170 1050 DATA 170,170,170,170,170,170,170 1060 DATA 170,170,170,170,170,170,170 1070 DATA 170,170,170,170,170,170,170 1080 DATA 170,170,170,170,170,170,170 1090 DATA 170,170,170,170,170,170,170 1100 DATA 170,170,170,170,170,170,170 1110 DATA 170,170,170,170,170,170,170 1120 DATA 170,170,170,170,170,170,170 1130 DATA 170,170,170,170,170,170,170 1140 DATA 170,170,170,170,170,170,170 1150 DATA 170,170,170,170,170,170,170 1160 DATA 170,170,170,170,170,170,170 1170 DATA 170,170,32,253,174,32,158 1180 DATA 173,32,247,183,165,20,141 1190 DATA 12,192,165,21,141,13,192 1200 DATA 32,253,174,32,158,173,56 1210 DATA 165,71,233,3,133,75,165 1220 DATA 72,233,0,133,76,162,1 1230 DATA 173,12,192,157,20,192,173 1240 DATA 13,192,157,40,192,169,1 1250 DATA 157,60,192,169,0,157,80 1260 DATA 192,189,60,192,141,16,192 1270 DATA 189,80,192,141,17,192,189 1280 DATA 20,192,141,18,192,189,40 1290 DATA 192,141,19,192,32,47,195 1300 DATA 173,11,192,48,4,202,208 1310 DATA 221,96,189,60,192,141,16 1320 DATA 192,189,80,192,141,17,192 1330 DATA 169,1,141,18,192,169,0 1340 DATA 141,19,192,32,101,195,189 1350 DATA 20,192,141,18,192,141,14 1360 DATA 192,189,40,192,141,19,192 1370 DATA 141,15,192,32,47,195,173 1380 DATA 11,192,48,3,76,167,193 1390 DATA 32,131,195,173,16,192,141 1400 DATA 3,192,173,17,192,141,4 1410 DATA 192,173,14,192,141,5,192 1420 DATA 173,15,192,141,6,192,32 1430 DATA 132,194,32,180,194,173,11 1440 DATA 192,48,218,173,16,192,141 1450 DATA 3,192,173,17,192,141,4 1460 DATA 192,173,18,192,141,16,192 1470 DATA 173,19,192,141,17,192,169 1480 DATA 1,141,18,192,169,0,141 1490 DATA 19,192,32,101,195,173,16 1500 DATA 192,141,18,192,173,17,192 1510 DATA 141,19,192,173,3,192,141 1520 DATA 16,192,173,4,192,141,17 1530 DATA 192,32,47,195,173,11,192 1540 DATA 16,35,173,14,192,141,3 1550 DATA 192,173,15,192,141,4,192 1560 DATA 173,18,192,141,5,192,173 1570 DATA 19,192,141,6,192,32,132 1580 DATA 194,32,180,194,173,11,192 1590 DATA 48,152,32,47,195,173,11 1600 DATA 192,16,18,173,16,192,141 1610 DATA 3,192,173,17,192,141,4 1620 DATA 192,32,132,194,32,31,195 1630 DATA 76,241,192,234,189,20,192 1640 DATA 141,3,192,189,40,192,141 1650 DATA 4,192,173,16,192,141,5 1660 DATA 192,173,17,192,141,6,192 1670 DATA 32,132,194,32,31,195,173 1680 DATA 16,192,141,18,192,141,3 1690 DATA 192,173,17,192,141,19,192 1700 DATA 141,4,192,32,81,195,189 1710 DATA 20,192,141,18,192,189,40 1720 DATA 192,141,19,192,32,101,195 1730 DATA 173,11,192,48,15,189,60 1740 DATA 192,141,18,192,189,80,192 1750 DATA 141,19,192,32,101,195,169 1760 DATA 1,141,18,192,169,0,141 1770 DATA 19,192,173,3,192,141,16 1780 DATA 192,173,4,192,141,17,192 1790 DATA 173,11,192,16,52,189,60 1800 DATA 192,232,157,60,192,202,189 1810 DATA 80,192,232,157,80,192,32 1820 DATA 101,195,173,16,192,157,20 1830 DATA 192,173,17,192,157,40,192 1840 DATA 32,131,195,32,131,195,202 1850 DATA 173,16,192,157,60,192,173 1860 DATA 17,192,157,80,192,76,128 1870 DATA 194,32,131,195,232,173,16 1880 DATA 192,157,60,192,173,17,192 1890 DATA 157,80,192,202,189,20,192 1900 DATA 232,157,20,192,202,189,40 1910 DATA 192,232,157,40,192,202,32 1920 DATA 101,195,32,101,195,173,16 1930 DATA 192,157,20,192,173,17,192 1940 DATA 157,40,192,232,76,162,192 1950 DATA 160,3,165,75,133,79,133 1960 DATA 81,165,76,133,80,133,82 1970 DATA 24,165,79,109,3,192,133 1980 DATA 79,165,80,109,4,192,133 1990 DATA 80,24,165,81,109,5,192 2000 DATA 133,81,165,82,109,6,192 2010 DATA 133,82,136,208,223,96,160 2020 DATA 0,140,11,192,177,79,141 2030 DATA 7,192,177,81,141,8,192 2040 DATA 200,152,205,7,192,240,2 2050 DATA 176,13,205,8,192,240,21 2060 DATA 144,19,238,11,192,76,30 2070 DATA 195,205,8,192,240,2,176 2080 DATA 62,206,11,192,76,30,195 2090 DATA 140,9,192,160,1,177,79 2100 DATA 133,77,200,177,79,133,78 2110 DATA 172,9,192,136,177,77,141 2120 DATA 10,192,140,9,192,160,1 2130 DATA 177,81,133,77,200,177,81 2140 DATA 133,78,172,9,192,177,77 2150 DATA 200,205,10,192,208,3,76 2160 DATA 195,194,144,184,76,224,194 2170 DATA 96,160,2,177,79,72,177 2180 DATA 81,145,79,104,145,81,136 2190 DATA 16,243,96,169,0,141,11 2200 DATA 192,173,17,192,205,19,192 2210 DATA 144,6,240,8,238,11,192 2220 DATA 96,206,11,192,96,173,16 2230 DATA 192,205,18,192,144,244,208 2240 DATA 238,96,173,16,192,24,109 2250 DATA 18,192,141,16,192,173,17 2260 DATA 192,109,19,192,141,17,192 2270 DATA 96,169,0,141,11,192,56 2280 DATA 173,16,192,237,18,192,141 2290 DATA 16,192,173,17,192,237,19 2300 DATA 192,141,17,192,176,3,206 2310 DATA 11,192,96,238,16,192,208 2320 DATA 3,238,17,192,96,170,170 2330 DATA 170,170,170,170,170,170,170 2340 DATA 170,170,170,170,170,170,170 2350 DATA 170,170,170,170,170,170,170 2360 DATA 170,170,170,170,170,170,170 2370 DATA 170,170,170,170,170,170,170 2380 DATA 170,170,170,170,170,170,170 2390 DATA 170,170,170,170,170,170,170 2400 DATA 170,170,170,170,170,81,85 2410 DATA 73,67,75,83,79,82,84 2420 DATA 32,76,79,65,42,32,32 2430 DATA 3,255,50,48,44,82,69 2440 DATA 65,68,32,69,82,82,79 2450 DATA 82,44,49,56,44,48,48 2460 DATA 0,170,170,170,170,81,85 2470 DATA 73,67,75,83,79,82,84 2480 DATA 32,76,79,65,68,69,82 2490 DATA 16,255,256 stop tok64 (bastext 1.0)