0 poke 53280,0:poke 53281,0:print "{blue}":si$="***":ab$="directory":ti$="000000" 1 print "{clear}":p$="00:00":m$="{reverse on}{black}win{reverse off}":bj$="{black}":print"{142}{008}" 3 :goto1403:goto 1605 5 poke 53280,13:poke 53281,13 :print "{black}":goto 420 6 print 9 print "{clear}": goto 5 10 print "{clear}":print "{reverse on}{blue} file or folders{space*23}{black}" 20 print "" 30 print "tape in drive:" 31 print "" 40 print "1 file{space*7}com" 50 print "2 loto{space*7}exe" 55 print "3 dat{space*8}seq" 60 print "4 gs basic bas" 70 print "5 pictures bmp" 80 print "6 ecoba{space*6}aop" 90 print "7 "ab$" <dir>" 91 print "8 computer com" 92 print "9 notepad edl" 93 print "10 funkcions exe" 94 print "11 xxxxx{space*6}wav" 95 print "12 gs pr doc. com" 96 print "13 corel draw exe" 97 print "14 color{space*6}sat" 98 print "15 auto sudar exe" 99 print "16 gs dos{space*5}gop" 100 print "17 internet com" 101 print "18 shut down com" 110 input d$ 115 if d$="1"goto 1000 124 if d$="18"goto 20000 125 if d$="15"goto12100 130 if d$="2" goto 2000 140 if d$="3" goto 3000 150 if d$="4" then print "{clear}":print " ****{space*5}gigasoft basic cbm{space*6}**** " 155 : 160 if d$="6" goto 5000 161 if d$="17"goto 30000 162 if d$="7" goto 1500 163 if d$="16" goto 60000 164 if d$="9" goto 1700 165 if d$="13" goto 9600 166 if d$="8" goto 7500 167 if d$="10"goto 13000 168 if d$="^" goto 200 169 if d$="12" goto 9100 170 if d$="14" goto 10000 172 if d$="win"goto 421 173 if d$<>"win"thenprint" izaberi program sa liste !!!":goto 10 199 end 200 print"{clear}{reverse on}{blue}{space*9}{light gray} gigasoft office {blue}{space*11}{170}^" 201 poke 53280,15:poke 53281,1 203 print"" 204 : 205 print"{black}" 207 print" {176}{195}{174}{space*5}{162*3}{space*5}{162*3}{space*5}{162*3}{space*7}" 209 print" {194}{207}{208}{space*5}{180} {170}{space*5}{180} {170}{space*5}{180} {170}{space*9}" 210 print" {173}{204}{186}{space*5}{204}{175}{186}{space*5}{204}{175}{186}{space*5}{204}{175}{186}{space*9}" 212 print"{cyan}{space*38}" 213 print" acces write basic gs dos{space*8}" 215 print" {163}{space*7}{163}{space*7}{163}{space*6}{163}{space*12}{blue}" 280 get j$ 281 if j$="a"then print"{clear}{reverse on}{blue} {green} {blue} accesoris{space*21}":goto62300 283 if j$="w"then goto 2100 286 if j$="b"then goto 1630 288 if j$="g"then goto 60000 300 goto 280 399 end 415 ifa=9then goto 200 420 print "{clear}{009}{142}{008}":poke 53280,0:poke 53281,13:ifa=4goto 1220:ifa=2goto60000 421 print"{clear}{blue}{reverse on} gigasoft windows 105{space*18}{black}":ifa=2goto60000 422 print:print"{space*5}{207}{208}{205}{space*9}{207}{208}{160}{space*10}{206}{183}{205} ":ifa=4goto1220 423 print "{space*5}{180} {208}{space*9}{204}{186}{space*10}{170}{205}{175}{206}{180} " 424 print "{space*5}{204}{175}{186}{space*8}{206} {205}{space*9}{170} {180} " 425 print "{space*16}{183*4}{space*10}{183*3} " 426 print " documents computer recycle bin":print" {183}{space*11}{183}{space*11}{183}" 427 print:print:print" "sh$" "kr$:print:print:print:print:print:print:print:print:print 429 print "{176}{195*5}{178}{195*31}{174}" 430 print"{194}start{194}{space*18}"m$" t:"left$(ti$,2)":"mid$(ti$,3,2)tab(38)"{194}" 432 print "{173}{195*5}{177}{195*31}{189}" 440 get l$:if l$="k"orl$="_"goto3700 441 if l$="d"goto 35050 442 if l$="c"goto 800 443 if l$="b"then goto 1630 444 if l$="s"orl$="2"goto 500 445 if l$="r"goto 36000 447 goto 440 500 print "{up*18}"bj$ 502 print "{reverse on}g{space*14}" 503 print "{reverse on}i documents " 505 print "{reverse on}g {183}{space*12}" 506 print "{reverse on}a programs >" 508 print "{reverse on}s {183}{space*12}" 510 print "{reverse on}o file{space*8}>" 512 print "{reverse on}f {183}{space*12}" 514 print "{reverse on}t my computer >" 516 print "{reverse on}w {183}{space*12}" 518 print "{reverse on}i search{space*6}>" 520 print "{reverse on}n {183}{space*12}" 522 print "{reverse on}d satings{space*5}>" 524 print "{reverse on}o {183}{space*11}" 526 print "{reverse on}w shut down >" 528 print "{reverse on}s {183}{space*11}" 535 get q$ 536 if q$="d"goto 35050 538 if q$="p"orq$="2"goto 650 539 if q$="f"goto 1000 541 if q$="m"goto 800 543 if q$="s"goto 62000 545 if q$="a"goto 750 548 if q$="h"goto 7500 549 if q$="^"orq$="_"goto 421 550 goto 535 650 print "{up*16}"bj$ tab(14)"{reverse on}{space*15}" 652 printtab(14) "{reverse on} akcesoris >" 653 printtab(14)"{reverse on} {183}{space*12}" 655 printtab(14)"{reverse on} corel draw 9 " 658 printtab(14)"{reverse on} {183}{space*12}" 659 printtab(14)"{reverse on} basic{space*8}" 660 printtab(14)"{reverse on} {183}{space*12}" 662 printtab(14)"{reverse on} gs dos{space*7}" 664 printtab(14)"{reverse on} {183}{space*11}" 667 printtab(14)"{reverse on} game{space*8}>" 669 printtab(14)"{reverse on} {183}{space*12}" 673 printtab(14)"{reverse on} exel{space*9}" 674 printtab(14)"{reverse on} {183}{space*12}" 675 printtab(14)"{reverse on} gs office " 677 printtab(14)"{reverse on}{space*5}{183}{space*9}" 680 get r$ 681 if r$="b"then 1630 682 if r$="s"goto 60000 683 if r$="g"goto 700 684 if r$="o"then200 685 if r$="a"orr$="2"goto 62300 686 if r$="^"orr$="_"goto415 687 if r$="e" goto 35150 688 if r$="c"goto 9600 689 goto 680 700 print "{up*13}" bj$ 710 printtab(27)"{reverse on}{space*12}" 714 printtab(27)"{reverse on} auto sudar " 715 printtab(27)"{reverse on} {183}{space*10}" 716 printtab(27)"{reverse on} fudbal{space*5}" 719 printtab(27)"{reverse on} {183}{space*10}" 725 get w$ 726 if w$="a"goto 12100 728 if w$="f"goto 14000 729 if w$="^"goto 421 730 goto 725 749 end 750 print "{up*12}"bj$ 751 printtab(15)"{reverse on}{space*16}" 752 printtab(15)"{reverse on} color{space*9}" 753 printtab(15)"{reverse on} {183}{space*13}" 755 printtab(15)"{reverse on} time and date " 756 printtab(15)"{reverse on} {183}{space*13}" 757 printtab(15)"{reverse on} passvord{space*6}" 758 printtab(15)"{reverse on} {183}{space*13}" 760 get s$ 762 if s$="c"goto 63500 764 if s$="t"goto 62200 766 if s$="^"goto 421 770 goto 760 800 print "{up*9}" bj$ 805 printtab(15)"{reverse on}{space*13}" 810 printtab(15)"{reverse on} disc{space*7}" 812 printtab(15)"{reverse on} {183}{space*10}" 814 printtab(15)"{reverse on} tape{space*7}" 816 printtab(15)"{reverse on} {183}{space*10}" 820 get v$ 822 if v$="d"then print "{reverse on}{blue} disc is not in user port " 824 if v$="t"then goto 2300 826 if v$="^"goto 421 830 goto 820 999 end 1000 print "{up*14}{left*7}"bj$ 1005 printtab(15)"{reverse on}{space*13}" 1010 printtab(15)"{reverse on} new folder " 1015 printtab(15)"{reverse on} {183}{space*10}" 1020 printtab(15)"{reverse on} new file " 1025 printtab(15)"{reverse on} {183}{space*9}" 1030 printtab(15)"{reverse on} dir{space*8}" 1035 printtab(15)"{reverse on} {183}{space*10}" 1040 printtab(15)"{reverse on} list{space*7}" 1045 printtab(15)"{reverse on} {183}{space*10}" 1050 printtab(15)"{reverse on} options " 1055 printtab(15)"{reverse on} {183}{space*10}" 1060 print "" 1070 get k$ 1080 if k$="n" goto 1400 1090 if k$="e" goto 1300 1100 if k$="d" goto 1500 1105 if k$="l" goto 1600 1110 if k$="o" goto 1800 1200 if k$="l" goto 1600 1210 if k$="^"ork$="_"goto421 1211 goto 1070 1220 print"{clear}":a=4 1221 print:print:print:print:print 1222 print"{space*6}{black}windows {red} 95 " 1224 print"{black}":print:print:print:print:print:print:print:print:print:print:print 1225 print:print:print:print 1226 print " {reverse on}{gray} {reverse off} start{space*10}{reverse on}{dark gray} {reverse off} computer " 1228 goto 440 1300 print "{clear}":print "new file :":print "" 1310 input "napisi ime fajla";c$ 1315 input "drugi fajl:";q$ 1320 input "treci fajl:";a$ 1325 input "cetvrti fajl ";b$ 1328 goto 421 1329 end 1330 rem ciko:?"“" 1332 print"{black}":v=53248 1334 pokev+21,4 1336 poke2042,13 1338 for n=0to62:readq:poke832+n,q:next 1339 for j=1to 5 1340 forx=200 to 1 1341 pokev+4,x 1342 pokev+5,x 1343 nextx 1344 next j 1350 data 0,0,0,0,0,0,1,255,0,6,0,192,8,0,32,24,0,48,56,131,24,34,68,136 1352 data 34,68,136,33,171,8,32,68,8,32,130,8,32,124,8,48,0,152,24,255,16 1354 data 8,254,32,6,0,192,3,199,128,0,124,0,0,0,0,0,0,0 1399 end 1400 print "{clear}":print "new folder:":print "":input "napisi ime foldera";ab$ 1402 goto 110:end 1403 print"{clear}":poke 53280,0:poke53281,0:print"{white}":print:print:print:print:print 1404 print" {176}{195*27}{174}" 1405 print" {194}{space*15}{207}{208}{207}{208}{206}{205}{206}{205} {194}" 1406 print" {194}{space*15}{204}{186}{204}{186}{206}{205}{206}{205}{206} {194}" 1407 print" {194}{space*15}{207}{208}{207}{208}{206}{205}{206}{205} {194}" 1409 print" {194}{space*27}{194}" 1412 print" {194} {180} {170} {194}{170}{205} {180}{170}{183}{205} {207}{208} {180} {170} {207}{183} {194}" 1414 print" {194} {205}{214}{206}{160}{194}{170} {205}{180}{170}{175}{206} {204}{186} {205}{214}{206} {183}{208} {194}" 1417 print" {194}{space*21}{183*2} {194}" 1418 print" {173}{195*27}{189}" 1419 get x$:ifx$=" "then420 1420 goto 1419 1421 : 1423 : 1425 : 1427 : 1429 : 1431 : 1433 : 1435 : 1437 : 1439 : 1441 : 1443 : 1445 : 1447 end 1449 _s "gigasoft ok" 1451 : 1453 : 1455 : 1457 : 1458 : 1460 : 1462 : 1464 : 1466 : 1468 : 1474 : 1476 : 1499 end 1500 print "{clear}":print "dir:":print"":print ab$:print c$:printq$:print a$:printb$ 1597 print "" 1598 print "programi u ram memoriji !!!" 1599 goto 110 :end 1600 print "{clear}":list:goto 1602 1602 print "listing":print "ok" 1604 end 1605 print"{clear}":poke53280,6:poke 53281,1 1607 print:print:print:print: 1610 print"{space*8}{reverse on}{black}gs maxel drive{reverse off}":print 1612 print"{space*8}1.........basic ":print 1614 print"{space*8}2........gs dos ":print 1616 print"{space*8}3........os tos ":print 1618 print"{space*8}4....windows 95 ":print 1620 print"{space*8}5...windows 105 ":print 1622 get a:ifa=1goto 1630 1623 ifa=2goto60000 1624 ifa=3goto2300 1625 ifa=4goto1220 1626 ifa=5goto62400 1627 goto 1622 1630 print"{clear}" 1632 print" **** expanded cbm basic v2 ****":print 1633 print"{space*9}"fre(0)" bytes free" 1699 end 1700 print "{clear}":print "notepad":print "" 1710 print "napisi text ( 48 slova)" 1720 input n$ 1729 print "" 1730 print " {206}{183}{223}{183*25}{205}" 1740 print " {180} {170}{space*25}{170}" 1744 print " {205}{175}{206}{180}{space*24}{170}" 1746 print "{space*5}{180}" left$(n$,24) tab(30) "{170}" 1747 print "{space*5}{180}" right$(n$,24) tab(3o) "{170}" 1748 print "{space*5}{169}{183}{223}{183*23}{205}" 1750 print "{space*5}{180} {170}{space*23}{170}" 1755 print "{space*5}{205}{175}{206}{175*23}{206}" 1799 goto 110 1800 print "options" 1801 print "":print "1 format a: ":print "2 load":print "" 1803 get l$ 1804 if l$="1" goto 0 1805 if l$="2" goto 0 1810 goto 1803 1812 end 1859 goto 1330 1999 end 2000 print "{clear}":print " loto" 2010 print "":input "napisi brojeve(1-39)";i$ 2020 for n=1 to 6 2022 print 1+int(39*rnd(1)) 2024 next n 2026 print "":print "pogledaj jesi li ista dobio !!" 2030 print i$:goto 9 2099 end 2100 print "{clear}":poke 53280,1:poke 53281,6 2105 print "{white}{reverse on} wordpad{space*31}":print""chr$(32) 2107 get a$:if a$="{f3}"then run:goto2107 2108 get a$:if a$="_"goto 420 2109 get a$:if a$<>""thengoto2108 2110 get a$:if a$=""goto 2110 2112 print "{left}"a$"{185}" ;:goto 2108 2199 end 2200 print "{clear}":print " loading..." 2204 for i=0to15 2206 for j=0to15 2208 poke 53280,i:poke 53281,j 2209 next:next :return 2210 print " ok":poke 53280,0:poke 53281,0:return 2212 end 2300 gosub 2200 print"{clear}":print"{clear}":print 2302 print "{space*6}{reverse on}{black} tape tos programator " 2303 print"":print:print"{space*6}f1..................list" 2304 print:print"{space*6}f3...................run" 2305 print:print"{space*6}f5..................load" 2307 print:print"{space*6}f7..................save" 2308 print:print"{space*6}_..................reset" 2310 get er$:if er$="{f1}"thenprint"{clear}":list 2312 if er$="{f3}"then run 2314 if er$="{f5}"goto 2350 2315 if er$="{f7}"thenprint:print"_s":end 2316 if er$="_"goto 0 2318 goto 2310 2349 end 2350 print "{clear}" 2352 print:print:print:print 2354 print"{space*10}{reverse on} load program {reverse off}" 2356 print:print:print 2358 print" f1...............load cassete":print 2360 print" f3..load to ram or rom memory":print 2362 print" f4.....................cancel":print 2364 print:print 2366 getki$:if ki$=chr$(133)thenprint:print" _l" 2368 if ki$=chr$(134)goto 2400 2370 if ki$=chr$(135)goto 0 2372 goto 2366 2400 print "{clear}" 2402 print:input " program >";pg$ 2404 print" pres space on the keyboard" 2406 getky$:ifky$=chr$(32)then gosub2500 2408 goto 2406 2410 for i=0 to 30:forj=0to30 2412 poke 53280,i:poke 53281,j:ld$="" 2414 next:next:iflen(pg$)>14thenld$=" load error" 2416 print" loading":printld$:kv$="dobar" 2418 : 2420 input ad$ 2422 if ad$="_r"then gosub2600 2424 if ad$="_h"thenprint"komande:_l,_r,_h,_p,_e" 2426 if ad$="_l"goto 2400 2428 if ad$="_p"thenprint"{clear}":print" "pg$ 2429 if ad$="_e"goto 0 2430 goto 2420 2432 end 2500 for n=0to15:form=0to15 2502 poke53280,n:poke 53281,m 2504 next:next 2506 print " searching":gr$="uredu":if len(pg$)>14thengr$="greska" 2508 print " found "pg$ 2510 getki$:ifki$=chr$(32)goto2410 2512 goto 2510 2599 end 2600 print"{clear}":print:print" report:":print:print" program "pg$:print:print:print" pocetak >1" 2601 kv$="dobar":iflen(pg$)>14thenkv$="los" 2602 print" kraj{space*5}>"len(pg$) 2603 sv$="_p":iflen(pg$)>14thensv$="ponovi postupak(_l)" 2605 print" error? >"gr$ 2606 print" kvalitet >"kv$ 2608 print" savjet >"sv$ 2610 print:goto 2420 2999 end 3000 print "{clear}":print "dat.seq" 3020 input "napisi ime i prezime ";z$ 3022 input "adresa ";r$ 3024 input "napisi ime i prezime ";zx$ 3026 input "adresa ";zc$ 3028 input "napisi ime i prezime ";jh$ 3030 input "adresa ";jg$ 3040 print " ime i prezime"tab(22)"adresa" 3050 print "{183*40}" 3055 print z$ tab(20)r$ 3056 print zx$ tab(20) zc$ 3060 print jh$ tab(20) jg$ 3070 print "{197*40}" 3100 print "" 3699 goto 110 :end 3700 print "{up*10}" 3705 print "{reverse on}{blue} shorts{space*19}{light gray}^" 3708 print "{reverse on}{space*28}":print "{reverse on} write name of new kratica " 3709 sh$=" {166}>" 3710 input "{reverse on} .{reverse off}{black}";kr$ 3712 print "{reverse on}{light gray}{space*14}return/apply " 3715 get x$:if x$=chr$(13)goto 420 3716 ifx$="^"thenkr$="":sh$="":goto421 3717 goto 3715 3999 goto 110:end 4999 end 5000 print "{clear}":print "ecoba" 5010 print "napisi nesta:" 5020 input t$ 5022 print left$(ti$,2);":";mid$(ti$,3,2);":";right$(ti$,2) 5027 print "{reverse on}{light blue}{space*40}{reverse off} ":print "{black}" 5030 print "{210*40}" 5035 print t$ 5040 print "{197*40}" 5050 print " gigasoft : armin omanovic" 5055 goto 110 :end 7499 end 7500 print "{up*8}"bj$ 7501 printtab(15)"{reverse on}{space*12}" 7503 printtab(15)"{reverse on} shut down " 7505 printtab(15)"{reverse on} {183}{space*9}" 7510 printtab(15)"{reverse on} reset{space*5}" 7512 printtab(15)"{reverse on} {183}{space*9}" 7515 get az$ 7516 if az$="s"goto 20000 7518 if az$="r"then run 7520 if az$="^"goto 500 7522 goto 7515 7599 end 9099 end 9100 print"{white}{clear}":poke 53280,0:poke 53281,0 9102 print" gigasoft private documents ":print 9103 input " password >";ps$ 9104 if ps$<>"@*@"then print" bad password":print:goto 9103 9106 print"{white}{clear}":print" gigasoft private documents " 9599 end 9600 print "{clear}":gosub 2200:print"{clear*2}" 9610 print "{space*16}{reverse on}{green}{space*9}" 9615 print "{space*15}{reverse on}{red}{space*11}" 9619 print "{space*15}{reverse on}{white}{space*11}" 9620 print "{space*15}{reverse on}{light blue}{space*11}" 9625 print "{space*16}{reverse on}{pink}{space*9}" 9630 print "{space*17}{reverse on}{gray}{space*7}" 9635 print "{space*18}{reverse on}{orange}{space*5}" 9640 print "{space*19}{reverse on}{yellow} " 9642 print "{space*19}{194} {194}" 9643 print "{space*19}{reverse on}{brown} " 9648 print "" 9649 print "{space*15}{pink}corel {green}draw 9":print:print:m$="{reverse on}{black}cdw{reverse off}" 9660 print " ok/no" 9665 get o$:ifo$="o"goto 9699 9666 if o$="n"goto 420 9669 goto 9665 9699 print "{clear}":poke 53280,1:poke 53281,1 9700 print"{reverse on}{light blue} corel draw 9{space*24}{light gray}^" 9710 print"{reverse on}{space*39}" 9720 print"{reverse on} file text graph help list{space*9}" 9721 print"{reverse on}{space*39}" 9722 print "{reverse on} color:{black} {white} {red} {cyan} {purple} {green} {blue} {yellow} {orange} {brown} {pink} {dark gray} {gray} {light green} {light gray}{space*17}" 9723 print "{reverse on}{space*39}" 9730 print "{black}{183*39}" 9732 getl$:if l$="*"goto 9699:if l$="^"goto 420 9733 if l$="l"then print"txt>";cd$:print"grp>";gr$ 9734 if l$="^"goto 420:if l$="h"thenprint"pritisni prvo slovo opcije" 9735 if l$="t"then input"abc>";cd$:goto 9732 9736 if l$="g"then input"graph 1>";gr$ 9737 if l$="f"thenprint"finsh" 9738 if l$="c"goto 1820 9739 goto 9732 9740 print "{up*2}" 9741 get a$:if a$=r$ goto200:goto9741 10000 print "{clear}":print "options" 10010 print "":print "1 crna":print "2 bijela":print "3 plava":print "4 zelena":print "5 zuta" 10020 get dl$ 10030 if dl$="1" then poke 53280,0:poke 53281,0:goto 421 10032 if dl$="2" then poke 53280,0:poke 53281,1:print "{black}":goto 421 10042 if dl$="4" then poke 53280,0:poke 53281,5:goto 421 10044 if dl$="5" then poke 53280,0:poke 53281,7:goto 421 10045 if dl$="3" then poke 53280,0:poke 53281,14:goto 421 10048 goto 10020 10049 end 10060 : 11000 : 11010 : 11030 : 11040 : 11050 : 11055 : 11060 : 11999 :end 12000 print " password > " 12002 print "":input l$:if l$="^"then stop 12004 if l$=si$ goto 9 :else goto12006 12006 print "pokusaj ponovo !!!":goto 12000 12100 print "{clear}":gosub 2200 12105 poke 53280,12:poke 53281,12 12108 print "{space*13}{white}{reverse on}{space*12}{reverse off}{purple}" 12110 print "{space*13}{white}{reverse on} auto sudar {reverse off}{gray}" 12112 print "{space*13}{white}{reverse on}{space*12}{reverse off}{purple}" 12113 print "{black}" 12118 print " kocnica ti je otkazala ":print "i ti ides pravo":print "u baru !!!" 12120 print " da bi se zaustavio moras pritisnuti":print "pravo slovo !" 12130 print "imas 5 pokusaja !" 12133 c$=chr$(64+int(rnd(1)*26+1)) 12138 for g=1to5:input g$ 12139 if c$=g$ goto 12160 12140 ifg$<c$thenprint "slovo iza "; 12150 ifg$>c$thenprint "slovo ispred "; 12151 print g$ 12153 next g 12155 print"{down}{reverse on}{blue} pljuuuus smocio si se" 12156 print c$ 12159 print "{white}":goto 12170 12160 print "{reverse on}{white} skriip zaustavio si se !" 12170 input "{black}zelis li jos igrati ";pu$ 12175 ifpu$="da"orp$="yes"goto12100 12178 ifpu$="ne"orp$="no"goto 420 12180 end 13000 print "{clear}" 13010 input "koliko slogova (1-10) :";x 13020 for a=1 to x 13030 print "vrijednost # ";a;:input b(a ) 13035 next:su=0:for a=1 to x 13040 su=su+b(a):next 13050 print :print "rezultat = "; su/x 13055 print "":input "zelis li jos racunati";i$:if i$="ne"then goto 421 13058 ifi$="da"goto13000:ifi$=" "goto421 13069 end 13162 : 13164 : 13999 end 14000 clr: dim tl$(12):print"{clear}{reverse on}{blue} {yellow} {blue} fudbal(liga sampiona){space*16}" 14002 tl$(1)="bosna":tl$(2)="bayer m":tl$(3)="psv":tl$(4)="leeds" 14003 tl$(5)="real m":tl$(6)="juventus":tl$(7)="barcelona":tl$(8)="inter" 14004 tl$(9)="valencija":tl$(10)="lokomotiva":tl$(11)="lion":tl$(12)="milan" 14005 print:print "{black} upisi 12 timova ":print:form=1to12 14010 print m "tim":input">";tl$(m) 14015 next m :print"{clear} {reverse on}{blue} tabela : {reverse off}" 14020 print"{black}":print:form=1to 12:b=1+int(12*rnd(1)) 14022 print m".";tl$(b) 14040 next m :b=1+int(10*rnd(1)):print 14045 print "pobjednik kupa je ";tl$(b) 14050 input"y/n";q$:ifq$<>"n"then14000 14053 goto 415 14060 ifq$="n"then 415:end 15000 input "koliko slogova";s 15005 dimy$(s):for n=1to s:input">";y$(n):nextn 15007 forl=65to90:form=1tos:if left$(y$(m),1)=chr$(l)thenprint " "y$(m) 15008 nextm,l 16005 goto 15000 20045 end 20060 : 20070 print"{clear}":get d$:if d$=""goto 20071:goto 20070 20071 poke 53280,0:poke 53281,0:print "sad mozes ugasiti " 20072 print "kompjuter !!" 20074 get s$:goto 20074 26222 : 29999 end 30000 gosub2200 30002 poke 53280,1:poke 53281,1 30004 print "{clear} {black} internet{space*28}":print"" 30005 print "{reverse on}{light blue} web{space*35}" 30010 print "" 30020 print "{reverse on}{space*39}" 30025 print "{up*3}{right*11}" 30028 input "{black}";w$ 30030 if w$="www.cna.com" goto 31000 30035 if w$="www.armin.com"goto 32000 30036 if w$="_"orw$="^"goto 420 30040 if w$="a@o"then print " cna armin" 30999 end 31000 print "----------------------------------------" 31005 print "---------------cna----------------------" 31010 print "{space*14}{206}{205}{170} {180}{206}{205}" 31015 print "{space*14}{180} {170}{205} {180}{204}{186}" 31020 print "{space*14}{180} {170} {205}{180*2}{170}" 31025 print "{space*14}{205}{206}{170} {180*2}{170}" 31026 print "":print " ova kompanija je osnovana 23.4.2002.":print"" 31027 print " direktor je armin omanovic" 31030 get wa$:ifwa$="^"goto30002 31032 goto 31030 31999 end 32000 print "{down*2}":print " {blue}a{red}r{green}m{yellow}i{dark gray}n {orange}o{black}m{cyan}a{white}n{pink}o{light gray}v{green}i{gray}c{black}" 32002 print "":print " vlasnik je kompanije cna":print" web adresa cna je:www.cna.com " 32010 get a$:if a$="^"goto 30002:goto 32010 32012 goto 32010 34999 end 35000 i$="{reverse on}{blue} wordpad " 35002 o$="text":m$="{reverse on}{black}wop{reverse off}" 35004 h$="{reverse on}{blue} sluzi se tastaturom " 35010 goto 35200 35050 i$="{reverse on}{blue} documents ":o$="podaci i text":m$="{reverse on}{black}doc{reverse off}" 35052 h$="{reverse on}{blue} open-otvaranje doc. " 35054 goto 35200 35100 i$="{reverse on}{blue} paint " 35105 o$="crtanje":m$="{reverse on}pen{reverse off}" 35110 h$="{reverse on}{blue} kombinuj tipku crtl sa brojevima " 35114 goto 35200 35150 i$="{reverse on}{blue} exel ":m$="{reverse on}exe{reverse off}" 35155 o$=" slike,podaci i text " 35160 h$="{reverse on}{blue} open-podaci,tastatura text " 35162 goto 35200 35200 print"{clear}{black}" 35205 print "{reverse on}{blue} {yellow} {blue} "i$"{reverse on}{blue}{space*17}{black}" 35210 print "{207}{183*37}{208}" 35215 print "{180}file {181}help {161}{space*24}^{170}" 35218 print "{180}{183}{space*5}{183}{space*30}{170}" 35220 print "{180}{space*9}{reverse on}{yellow} {black}{reverse off} "o$ tab(38)"{170}" 35222 print "{180}{space*37}{170}" 35224 print "{204}{175*37}{186}" 35226 tw$= "{space*38}{170}" 35228 print tw$:print tw$:print tw$:print tw$:print tw$:print tw$:print tw$:print tw$:print tw$:print tw$ 35232 print "{175*38}{186}" 35234 print "{up*11}" 35240 get f$ 35245 if f$="^"orf$="_"goto421 35246 if f$="h"then print h$ 35247 if f$="n"then input"text >";b$ 35250 if f$="f"then print:print"{reverse on}{blue} new {161}list {161}a$ {161}b$ {161}help":goto 35240 35258 if f$="l"then print a$,b$,c$:goto 35240 35259 if f$="o"orf$="2"goto5000 35260 if f$="a"then input a$:goto 35240 35261 if f$="*"goto 35200 35262 if f$="b"then input b$:goto 35240 35263 if f$="p"goto 3000 35270 goto 35240 35999 end 36000 print "{clear}" :print "{reverse on}{blue} {yellow} {blue} recycle bin{space*22}" 36003 m$="{reverse on}{blue}ryc{reverse off}{black}" 36005 print:print" play{space*6}wav":print " music{space*5}wav" 36006 print " ciko{space*6}spr":print " pictures bmp" 36007 print " funkcions exe" 36010 get y$ 36015 if y$="*"or y$="s"goto 500 36017 if y$="^"goto 420 36020 goto 36010 49999 end:end:end:goto 20071 50000 for n=32 to 127 50005 g=chr$(n) 50010 print chr$(n); 50020 next n 50030 for n=161 to 191:for n=149 to 155:end 50110 for n=161 to 191:for j=33 to127 50125 print chr$(n); :print chr$(j);:next:next 50130 goto 50100 50200 end 50999 end 51000 print "{clear}":poke 53280,0:poke 53281,16 59999 end 60000 print "{clear}{014}{008}":a$="{198}{201}{204}{197}" 60010 poke 53280,0:poke 53281,0 60015 print "{white} gs dos":print"":print "" 60016 print "{183*39}" 60019 :print "" 60020 printfre (0 ) " bytes free" 60100 f$="":print:input" {195}:/>";f$ 60110 if f$="md"then input"ime>";a$,b$,d$:goto 60100 60114 if f$="cd"goto 60200 60116 if f$="dir"goto 60300 60117 if f$="format a>"thengoto 60400 60118 if f$="rd"then clr 60119 if f$="a>"then load 60120 if f$="ren"goto 60500 60121 if f$="win"then 420 60122 if f$="edlin"goto 60600 60123 if f$="exit"goto 415:if f$="win"goto 420 60124 if f$<>"c"then print "{194}ad comand or file name!":goto 60100 60125 goto 60100 60200 print "":input "{195}{200} {196}{201}{210}>";l$ 60210 if l$="dos"orl$="{196}{207}{211}"goto 60250 60215 if l$=a$ goto 60700 60216 if l$="game"orl$="{199}{193}{205}{197}"goto 12100 60217 if l$="text"orl$="{212}{197}{216}{212}"goto 60700 60218 if l$="basic"thenprint"{clear}{142}{009} gigasoft basic":print:print" 34360 bytes free":end 60219 if l$<>"dos"thenprint"{194}ad comand or file name !" 60220 goto 60100 60250 print "":input"c>dos>";j$ 60252 if j$="dir"goto 60270 60254 if j$="cd.."goto 60100 60270 print:print"{214}olume in drive {193} is {196}{207}{211}":print "{196}irectory of {195}:/dos":print 60271 print" {199}{211} {194}{193}{211}{201}{195} {194}{193}{211}":print" {210}{197}{211}{197}{212} {195}{207}{205}":print:print"2 file(s) 354 bytes free" 60273 print:input"c:/dos>";g$:ifg$="basic"thenprint:print"{clear} gigasoft":print:print" gs basic":end 60274 if g$="reset"goto 60000 60275 goto 60114 60300 print:print"{214}olume in drive {193} is {199}{211} {196}{207}{211}" 60303 print" {196}irectory of {193}:" 60310 print:print" {196}{207}{211} <{196}{201}{210}>" 60312 print " {212}{197}{216}{212} {197}{196}{204}" 60317 print " {199}{193}{205}{197} {197}{216}{197}" : print " "a$" {195}{207}{205}" 60319 print:print "4 file(s) "fre(0)" bytes free" 60320 goto 60100 60400 print:print" {213}baci novu kasetu u kastofon i ": print" pritisni {208}{204}{193}{217} i {210}{197}{195}{207}{210}{196} na " 60402 print" kasetofonu !" 60403 get a$:if a$<>"s"goto 60403:goto 60100 60404 goto 60100 60500 print "":input "staro ime >";a$:input "novo ime >";p$:a$=p$ 60510 goto 60100 60600 print "":input "new file *";a$ 60610 print "":input "c>eld>";e$ 60615 if e$="l"then print t$,t1$,t2$,t3$,t4$,t5$ :goto 60610 60617 if e$="i"then input "txt >";t$,t1$,t2$,t3$,t4$,t5$:goto 60610 60620 if e$="d"then t$="":goto 60610 60630 if e$="e"goto 60100:else print "bad comand !" 60700 input "c>eld>";w$ 60710 if w$="dir"then print t$ 60715 goto 60610 62000 print "{up*15}" bj$ 62005 printtab(14)"{reverse on}{space*18}" 62010 printtab(14)"{reverse on} file or folders " 62015 printtab(14)"{reverse on} {183}{space*15}" 62020 printtab(14)"{reverse on} internet{space*8}" 62025 printtab(14)"{reverse on} {183}{space*15}" 62029 get g$ 62030 if g$="f"org$="2"goto10 62032 if g$="i"goto 30000 62033 if g$="^"org$="_"goto 421 62035 goto 62029 62100 print "{up*17}"bj$ 62105 printtab(28)"{reverse on}{space*8}" 62110 printtab(28)"{reverse on} music " 62114 printtab(28)"{reverse on} {183}{space*5}" 62118 printtab(28)"{reverse on} play " 62120 printtab(28)"{reverse on} {183}{space*5}" 62130 get a$ 62137 if a$="^"ora$="_"goto421 62140 goto 62130 62200 print"{clear}":print" {reverse on}{blue} unesi tekuce vrijeme {black}":input " >";ti$ 62210 goto 420 62299 end 62300 print "{up*17}"bj$ 62313 printtab(28)"{reverse on}{space*11}" 62316 printtab(28)"{reverse on} notepad " 62318 printtab(28)"{reverse on} {183}{space*8}" 62319 printtab(28)"{reverse on} wordpad " 62320 printtab(28)"{reverse on} {183}{space*8}" 62322 printtab(28)"{reverse on} funkcion " 62324 printtab(28)"{reverse on} {183}{space*8}" 62326 printtab(28)"{reverse on} paint " 62330 printtab(28)"{reverse on} {183}{space*7}" 62331 get z$ 62333 if z$="a"goto 35100 62334 if z$="n"goto 1700 62336 if z$="w"orz$="2"goto2100 62337 if z$="f"goto 13000 62340 if z$="^"orz$="_"thena=9:goto421 62350 goto 62331 62400 print "{clear}":poke 53280,1:poke 53281,1 62405 print:print:print:print:print:print"{black}" 62410 print "{space*10}{207}{183*14}{208}" 62413 print "{space*10}{180} {205}{206}{205}{206}{207}{208}{207}{208} {170}" 62415 print "{space*10}{180} {205}{206}{205}{206}{204}{186}{204}{186} {170}" 62418 print "{space*10}{180} {205}{206}{205}{206}{180}{170}{180}{170} {170}" 62420 print "{space*10}{180} {205}{206}{205}{206}{204}{186}{204}{186}{160} {170}" 62422 print "{space*10}{180}{space*14}{170}" 62424 print "{space*10}{180} windows {170}" 62425 print "{space*10}{180}{space*14}{170}": print "{space*10}{180}{space*6}105{space*5}{170}" 62426 print "{space*10}{204}{175*14}{186}" 62429 print:print:print 62432 get wi$:if wi$=chr$(32)goto 420 62433 if wi$="y"thengosub 63900 62435 goto 62432 63400 print"{clear}" 63403 print "1 bijela":print"2 crvena":print"3 zelena":print"4 plava":print"5 crna" 63405 print"6 ljubicasta":print"7 zuta" 63407 input ft$:ifft$="1"thenbj$=chr$(5):ifft$="2"thenbj$=chr$(28) 63410 if ft$="3"thenbj$=chr$(30):ifft$="4"thenbj$=chr$(31) 63415 ifft$="5"thenbj$=chr$(144):ifft$="6"thenbj$=chr$(156) 63417 ifft$="7"thenbj$=chr$(158) 63420 goto 421 63500 print"{clear}":print "{white}" 63503 print "1 desc top color":print"2 tab color" 63506 get cf$:ifcf$="1"goto10000 63508 ifcf$="2"goto63400 63510 goto 63506 63899 end 63900 poke 53281,14:bj$="{white}":poke 53280,0 63910 goto 421 </code></pre>
Tuesday, July 12, 2011
Windows 105 FULL source code :)
Subscribe to:
Posts (Atom)