Friday, July 12, 2013

And Finally PRG of Windows 105

Full Windows 105 program in .PRG format for use in C64 emulator you can download here: http://www.mediafire.com/download/n1ofr6zxj266lrd/WIN105.PRG

Full source code created with program TOK64 you can see here: TOK64: http://c64tape.blogspot.com/2013/07/finally-windows-105-full-source-code.html

All conversion from tape to PRG made Žarko Živanov from Novi Sad, Serbia, I sent him by mail my tape with Windows 105 and he successfully done it :) , here is his web page about old computers: http://www.onceuponabyte.org/

Monday, November 12, 2012

C64 RESURRECTION

A few weeks ago I remembered my old Commodore 64 and my work in BASIC. Ten years ago it was 2002. and in that time I was 13. I didn't have PC, but my dad bought C64  at the time when I was born. I also found one book about c64 that year and I asked my father what is it and he said that there are some numbers and commands that even he didn't  understand. I started reading the book and I entered my first BASIC commands in C64. When I sow that command PRINT "ARMIN" prints my name I was very exited. So I learned almost all commands and I wanted to create Windows on C64. Because I didn't have PC , I have been going to internet club to see how real PC works and what commands it has. After that I started to write Windows shell on my C64. When I created desktop and start menu, I also programmed DOS, Corel Draw, Notepad, Writepad, Documents , Excel some games, .... all that programs haven't been fully functional of course , I was just creating what I saw on PC in the internet club :).  I named my program Windows 105 because at that time I didn't know exacly what it is. I thought like: "Micosoft have Windows 98, so I will be greater than Microsoft, I will be Gigasoft and my Windows will be 105,not 98"... kids :) I also imagined that I have had my company CNA (Company for new achievements) :D
After I created a lot of things on it I found in second hand store old tape with SIMONS BASIC. After that I stoped developing Windows and started to programming Windows in SIMONS BASIC. I did that because with the new basic I was able to use mouse. I was programming few months , and then my parents decided to help me and they bought me a real PC. That year I attended programming competition and I was fifth in region :)
After that I continuededucating myself and now I am programmer working in insurance company and I am programming in almost all modern programming languages. :)


C64 connected to my PC throught TV Card


 C64

Commodore 64 and my PC from other perspective

C64 connected to my TV Card on PC

Tape Cassette on which I was saving my Windows 105

Boot screen on Windows 105 on C64

Start menu

Desktop od Gigasoft Windows 105

Corel Draw 9 start screen on C64

Start menu with sub menu PROGRAMS

GS DOS (Emulated)
Documents window :D

Wordpad ;)

Gigasoft Office :D :D

Ineternet browser, it can open two pages :)

Here are some videos about Windows 105 and my workon it, there is also source code of it :)
You can see all my videos about c64 on my youtube channel: https://www.youtube.com/channel/UCZm3k1Q3cRkx1gvOfTqMBUw?feature=mhee



Turbo tape loading sound - my lovely music :D

Do you remember the noise produced by C64 loading program from tape with program TURBO. Then it was horrible but now I like to hear it because it brigs me beatiful memories...

Watch all videos here: https://www.youtube.com/channel/UCZm3k1Q3cRkx1gvOfTqMBUw?feature=mhee

Here are some exaples(some of them comes with tape head settings :D):





Tuesday, July 12, 2011

Windows 105 FULL source code :)


 
 
 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>