start tok64 d64-Hs8hIE
10 POKE53280,14:POKE53281,14
20 PRINT"{white}{clear}{reverse on} {sh asterisk}{cm k}{sh -}{reverse off}{cm k}{reverse on} {sh asterisk}{right}{cm k}{cm f}{reverse off}{cm k}{reverse on} {cm f}"
30 PRINT"{reverse on}{cm y} {right} {right}{cm y} {right}{cm k}{cm d}{reverse off}{cm v}{reverse on}{space*2}{reverse off} presenterar
40 PRINT"{down}hitta club64-program
50 PRINT"{down*4}{blue}(1) -- hitta program p] en cpd
60 PRINT"{down}(2) -- hitta enskilt program
70 PRINT"{down}(3) -- visa progam p] speciell disksida
80 PRINT"{down*5}{black}tryck p] {reverse on}1{reverse off},{reverse on}2{reverse off} eller {reverse on}3{reverse off}
90 GETa$:IFa$<"1"ORa$>"3"THEN90
95 x=x+1:IFx>1THEN200
100 PRINT"{white}{clear}var god v[nta{.*3} l[ser data{.*3}
110 DIMa$(300,2)
120 co=1
130 PRINT"{home}{down}"co:READa$(co,0),a$(co,1),a$(co,2)
140 IFa$(co,.)<>"slut"THENco=co+1:GOTO130
150 co=co-1
200 ONVAL(a$)GOTO10000,20000,30000
1000 DATAkassett-register,1,1a
1001 DATAfunktions-tangenter,1,1a
1002 DATAnumerisk keypad,1,1a
1010 DATAmystiska boken,2,1a
1011 DATA64 breakout,2,1a
1012 DATAfantasy,2,1a
1013 DATAslalom,2,1a
1020 DATAauto-run,3,1a
1021 DATAdiagram,3,1a
1022 DATAteckengenerator,3,1a
1023 DATAtut i rutan,3,1a
1030 DATAvit kant,4,1a
1031 DATAgrafikgenerator,4,1a
1032 DATAsprite editor 64,4,1a
1033 DATAsprite editor +,4,1a
1040 DATAvic 15,5,1a
1041 DATAkalaha,5,1a
1042 DATAblood war,5,-
1043 DATAspace killers,5,-
1050 DATAsortering,6,1a
1051 DATAtapereader,6,1a
1052 DATAmorse,6,1a
1053 DATAant.bl.,6,1a
1060 DATAen samling,7,1a
1061 DATAfem flashar,7,1a
1062 DATAfem sounds,7,1a
1063 DATAsex melodier,7,1a
1070 DATAsynth-trummor,8,1a
1071 DATAsynth 64,8,1a
1072 DATAmusicmaster 64,8,1a
1073 DATAsoundmaker,8,1a
1074 DATApiano,8,1a
1075 DATAkeyboard 64,8,1a
1080 DATAblood war ii,9,-
1081 DATAspace killers ii,9,-
1082 DATArox 64,9,1a
1083 DATAarcade attack,9,1a
1084 DATAgoalkeeper,9,1a
1090 DATAkalejdoskop,10,1a
1091 DATAborder-color,10,1a
1092 DATAsvenska tecken,10,1a
1093 DATAsplit-screen 64,10,1a
1094 DATAfont,10,1a
1095 DATAbilder,10,1a
1096 DATA80 tecken,10,1a
1100 DATAkalender 64,11,1a
1101 DATAslump-vers,11,1a
1102 DATAblock-move,11,1a
1103 DATAsave under basic,11,1a
1104 DATAfredag,11,1a
1105 DATAomvandlare,11,1a
1110 DATAdelete,12,1a
1111 DATAbasic-skolan 1,12,1a
1112 DATAbasic-skolan 1,12,1b
1113 DATAbasic-skolan 2,12,1a
1114 DATAbasic-skolan 3,12,1a
1115 DATAbasic-skolan 4,12,1a
1116 DATAklocka,12,1a
1120 DATAhardcopy,13,1a
1121 DATAfixa bilden,13,1a
1122 DATAmicro sprite editor,13,1a
1123 DATAflash-load 64,13,1a
1130 DATAmaze,14,1a
1131 DATAspace killers iii,14,-
1132 DATAsp]dom,14,1b
1133 DATArysk roulette,14,1b
1134 DATAsnake,14,1b
1140 DATAbasic-skolan 5,15,1b
1141 DATAbiorytm,15,1b
1142 DATAglosor,15,1a
1143 DATAtrace,15,1b
1150 DATAold,16,1b
1151 DATAdiskett-index,16,1b
1152 DATAint.pil,16,1b
1153 DATAprogramcrackare,16,1b
1160 DATAchess,17,1b
1161 DATAwhere i want to be,17,1b
1162 DATAallt som jag k[nner,17,1b
1163 DATAkadensl]t,17,1b
1170 DATAaxe-call,18,1b
1171 DATAdirectory,18,1b
1172 DATAsv. 80 tecken,18,1b
1173 DATAturbo load,18,1b
1180 DATAfastplot,19,1a
1181 DATAm{pound}nster,19,1b
1182 DATAcharacter master,19,1b
1183 DATAcharacter load,19,1b
1190 DATAnova verba,20,1b
1191 DATAn.v. dagbok,20,1b
1192 DATAdatabudget,20,1b
1193 DATAsvenska felkoder,20,2a
1200 DATAaddition,21,1b
1201 DATAsubtraktion,21,2a
1202 DATAtvillingar,21,2a
1203 DATAtiokompisar,21,2a
1204 DATAl]ng eller kort vokal,21,2a
1210 DATAfa3 ripp,22,-
1211 DATAmusikeditor,22,2a
1212 DATAkaxiga myran,22,2a
1213 DATAmusic editor,22,1b
1220 DATAa real writer,23,1b
1221 DATAnotemaker v2.0,23,2a
1222 DATArymdbakgrund i,23,1b
1223 DATArymdbakgrund ii,23,2a
1230 DATAanalog klocka,24,1b
1231 DATAglosor,24,1b
1232 DATAprograml[s,24,2a
1233 DATAsoftware-reset,24,2a
1240 DATA25 stycken bra ljudeffekter,25,2a
1250 DATAbest seller,26,-
1251 DATAbowling,26,1b
1252 DATAfyra i rad,26,1b
1253 DATAsolitaire,26,2a
1260 DATAcopy 190,27,2a
1261 DATAcopy 58.5k,27,-
1262 DATAglostr[ning,27,1b
1263 DATAlistskydd,27,2a
1264 DATAprinterkalender,27,2a
1270 DATAborder-sprites,28,1b
1271 DATAcharacter-flash,28,1b
1272 DATAfont i & ii,28,2a
1273 DATAscrolldown,28,2a
1274 DATAtrilogic sprite editor,28,2a
1280 DATA20 olika fonter,29,2a
1290 DATAblow up the earth,30,-
1291 DATAflashball,30,-
1292 DATAgolden gate,30,2a
1300 DATAdisk-music,31,2a
1301 DATAdisk-protect,31,2a
1302 DATAdismon,31,2a
1303 DATAsupermon,31,2a
1310 DATAadventure,32,2a
1311 DATAhyper worm,32,2b
1312 DATAh[stkappl{pound}pning,32,2b
1313 DATAmastermind,32,2a
1314 DATAslalom,32,2b
1320 DATAdiskr[ddaren,33,2b
1321 DATAdyna-load,33,2b
1322 DATAhypra-load,33,2b
1323 DATAunderground network,33,2b
1330 DATAaura lee,34,2b
1331 DATAred river valley,34,2b
1332 DATAsommar sommar sommar,34,2b
1340 DATAasm 64,35,2a
1341 DATAcoder,35,2a
1342 DATAletter writer,35,2a
1343 DATAnamnsdag,35,2b
1344 DATAreg 64,35,2b
1350 DATAsdcopy,?,2a
1351 DATAbanner 64,?,2a
1352 DATAmicromon,?,2a
1360 DATAcolor blinker,?,2b
1361 DATAaustro compiler,?,2b
1362 DATAbackup,?,2b
1363 DATAcopy system,?,2b
1364 DATAdisk to tape,?,2b
1365 DATAturbo tape 64,?,2b
1366 DATArubrikgenerator,?,2b
9999 DATAslut,,
10000 PRINT"{clear}{white}hitta program p] en cpd
10010 INPUT"{blue}{down}vilken cpd (1-35)";cpd$
10020 cpd=VAL(cpd$):IFcpd<1ORcpd>35ORcpd<>INT(cpd)THEN10
10030 GOSUB60000
10040 FORi=1TOco
10050 IFa$(i,1)=cpd$THENGOSUB61000
10060 NEXT
10070 PRINT"{down}{reverse on}shift":WAIT653,1:GOTO10
20000 PRINT"{clear}{white}hitta enskilt program
20010 INPUT"{blue}{down}f{pound}rsta bokst[ver i titel";namn$:le=LEN(namn$)
20020 GOSUB60000
20030 FORi=1TOco
20040 IFLEFT$(a$(i,.),le)=namn$THENGOSUB61000
20050 NEXT:GOTO10070
30000 PRINT"{clear}{white}visa program p] speciell disksida
30010 INPUT"{blue}{down}vilken disksida (1a,1b,2a,2b)";disk$
30020 IFdisk$<>"1a"ANDdisk$<>"1b"ANDdisk$<>"2a"ANDdisk$<>"2b"THEN10
30030 GOSUB60000
30040 FORi=1TOco
30050 IFa$(i,2)=disk$THENGOSUB61000
30060 NEXT:GOTO10070
60000 PRINT"{clear}{white}programmets namn{space*15}{blue}cpd {white}disk
60010 PRINT"{black}{cm y*16}{space*15}{cm y*3} {cm y*4}
60020 rad=2
60030 RETURN
61000 rad=rad+1:IFrad=22THENPRINT"{black}{reverse on}shift":WAIT653,1:GOSUB60000
61010 PRINT"{white}"LEFT$(a$(i,.),29)TAB(31)"{blue}"a$(i,1)TAB(35)"{white}"a$(i,2):RETURN
stop tok64
(bastext 1.0)