start tok64 d64-q7BMTL 0 POKE53280,.:POKE53281,.:vi=53248:POKEvi+21,. 1 PRINT"{clear}{yellow}inb{pound}rdeskrig{blue}{.*10}{green}creative computing 2 PRINT"{down*2}{right}{yellow}spelet gjort av :":PRINT"{down}{right*2}{green}l. cram, l. goodie och d. hibbard 3 PRINT"{right*4}vid lexington high school (1968) 4 PRINT"{down*2}{right}{yellow}tv]spelarverision av :":PRINT"{down}{right*2}{green}g. paul och r. hess 5 PRINT"{right*4}fr]n ties, minnesota (1973) 6 PRINT"{down*2}{right}{yellow}c64-verision av :":PRINT"{down}{right*2}{green}mr.p. of softwolves (1991) 10 FORi=704TO766:READx:POKEi,x:NEXT:POKEvi,.:POKEvi+1,206:POKEvi+2,.:POKEvi+5,. 11 POKEvi+21,3:POKEvi+23,3:POKEvi+39,15:POKEvi+40,11:POKEvi+16,. 12 DATA198,49,240,198,121,152,198,205,152,214,253,240,254,205,224,238,205,176 13 DATA198,205,152,,,,3,102,,3,118,,3,126,,3,110,,3,102,,,,,204,120,48 14 DATA204,204,120,204,192,204,204,120,252,204,12,204,204,204,204,120,120,204 15 POKEvi+21,3:POKE2040,11:POKEvi+40,11:POKEvi+2,66:POKEvi+16,2 16 POKE2041,11:FORi=255TO208STEP-.5:POKEvi+3,i:NEXT:POKEvi+29,4:POKE2040,11 17 FORi=20TO255STEP.5:POKEvi,i:NEXT:POKEvi+16,3:FORi=.TO64STEP.5:POKEvi,i:NEXT 18 FORi=.TO4999:NEXT:PRINT"{clear}{blue}{space*6}{.*16}{green}creative computing 19 POKE2042,11:POKEvi+4,24:POKEvi+5,50:POKEvi+41,7:POKEvi+21,7 20 REM ursprunglig f{pound}rfattare: cram, goodie, hibbard (lexington h.s.) 30 REM [ndringar: g paul, r hess (ties 1973) 40 REM c-64 verision: mr.p. of softwolves (1991) 50 DIMs(5),c$(14),m1(14),m2(14),c1(14),c2(14),m(14) 60 REM nordstaternas info om sannolik sydstatsstrategi 70 s(1)=25:s(2)=25:s(3)=25:s(4)=25 82 REM l[s historiska data 84 FORd=1TO14 86 READc$(d),m1(d),m2(d),c1(d),c2(d),m(d):NEXT 89 d=RND(.) 100 INPUT"{down*2}{light blue} vill du ha instruktioner ";x$ 110 ON-(x$="ja")GOTO120:ON-(x$="nej")GOTO370:PRINT"{green}ja eller nej !":GOTO100 120 POKE53269,3 160 PRINT"{clear}{green} detta [r en simulering av det nord-{space*4}amerikanska inb{pound}rdes"; 170 PRINT"kriget. i spelet skadu besvara mina fr]gor. kom i h]g att{space*3}alla "; 180 PRINT"faktorer h[nger ihop och att dina{space*2}svar kan [ndra historien. "; 190 PRINT"de fakta och{space*2}siffror som anv[nds [r baserade p] verk-liga "; 200 PRINT"h[ndelser. de flesta slagen ger{space*4}samma resultat som under kriget, "; 210 PRINT"men{space*4}allt beror p] dig sj[lv {!*3}{down} 240 PRINT"{light blue} m]let med spelet [r att vinna s] m]nga slag som m{pound}jligt.{down} 260 PRINT"{yellow} f{pound}rsvarsstrategier: 270 PRINT"{space*6}{light blue}(1) {cyan}artillerield 280 PRINT"{space*6}{light blue}(2) {cyan}bef[stningar mot frontalanfall"; 290 PRINT"{space*6}{light blue}(3) {cyan}bef[stningar mot flankanfall 300 PRINT"{space*6}{light blue}(4) {cyan}tillbakaryckning 310 PRINT"{green} anfallsstrategier: 320 PRINT"{space*6}{light green}(1) {156}artillerianfall 330 PRINT"{space*6}{light green}(2) {156}frontalanfall 340 PRINT"{space*6}{light green}(3) {156}flankanfall 350 PRINT"{space*6}{light green}(4) {156}omfattning 360 PRINT"{green}tryck -->";:POKE198,.:WAIT198,1:POKE198,. 365 PRINT"{left*9}{yellow}du kan ge upp genom att ange 5 som din{space*2}strategi. 370 PRINT"{down*3}{green}finns det tv] generaler n[rvarande ? 380 INPUT"{green}(ja/nej)";b$:IFb$="ja"THENd=2:GOTO450 390 IFb$<>"nej"THEN380 400 d=1:PRINT"{yellow} du [r nu sydstaterna. lycka till!{down} 450 PRINT"{green} v[lj ett slag genom att skriva en siff-ra mellan 1 och 14 n[r "; 460 PRINT"fr]gan st[lls.{space*3}skriv n]gon annan siffra f{pound}r att avslu- ta, men "; 470 PRINT"0 ger exakt samma situation och medf{pound}r att du kan spela igenom "; 480 PRINT"slaget eng]ng till. 510 PRINT"{down}{light blue} anm: om du anger ett negativt livs-{space*4}medelsv[rde anv[nds "; 520 PRINT"v[rden fr]n det f{pound}- reg]ende slaget. 530 POKE53269,3 540 PRINT"{down*2}{green} n[r du valt slag, vill du d] ha besk-{space*2}rivning av slaget ? 560 INPUT"{green}(ja/nej)";x$:IFx$<>"ja"ANDx$<>"nej"THEN560 561 FORi=206TO253:POKEvi+1,i:POKEvi+3,i+2:NEXT:POKEvi+1,.:POKEvi+3,. 562 POKEvi,24:POKEvi+2,26:POKEvi+16,.:FORi=253TO50STEP-1:POKEvi+1,i 563 POKEvi+3,i+2:NEXT:ti$="{0*6} 600 l=.:w=.:r1=.:q1=.:m3=.:m4=.:p1=.:p2=.:t2=. 610 f(2)=.:w(2)=.:b(2)=.:r2=.:q2=.:c6=.:f=.:w0=.:y2=.:u=.:u2=. 630 INPUT"{light blue} {down}vilket slag ";a 650 IFa<>.THEN660 655 IFr<>.THEN1140 660 IFa=<.ORa=>15THEN2860 670 c$=c$(a):m1=m1(a):m2=m2(a):c1=c1(a):c2=c2(a):m=m(a) 960 u=. 970 REM inflationsber[kning 980 i1=10+(l-w)*2 990 i2=10+(w-l)*2 1000 REM tillg[ngliga pengar 1010 d(1)=100*INT((m1*(100-i1)/2000)*(1+(r1-q1)/(r1+1))+.5) 1020 d(2)=100*INT(m2*(100-i2)/2000+.5) 1030 IFb$="ja"THENd(2)=100*INT((m2*(100-i2)/2000)*(1+(r2-q2)/(r2+1))+.5) 1050 REM tillg[ngliga styrkor 1060 m5=INT(m1*(1+(p1-t1)/(m3+1))) 1070 m6=INT(m2*(1+(p2-t2)/(m4+1))) 1080 f1=5*m1/6 1090 PRINT"{down*3} {white}detta [r slaget vid "c$ 1110 IFx$="nej"THEN1150 1120 ONaGOTO3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890 1130 ONa-11GOTO3920,3950,3980 1140 PRINT" {white}"c$" omedelbar upprepning 1150 PRINT,"{down}{green} syd-"," nordstaterna 1160 PRINT"styrkor",m5,m6 1170 PRINT"pengar","{left}$"d(1),"{left}$"d(2) 1180 PRINT"inflation",i1+15"{left}%",i2"{left}%{down} 1190 REM det [r bara vid utskrift som sydstatsinflationen = i1+15% 1200 REM om tv] generaler spelar, ange sydstatsgeneralen f{pound}rst 1210 FORi=1TOd:IFb$<>"ja"THEN1260 1240 IFi=2THEN1260 1250 PRINT" {light blue}sydstatsgeneralen : 1260 PRINT"{green}{space*2}hur mycket pengar vill du ge ut p]{.*3} 1270 INPUT"{white}W {light blue}livsmedel{space*3}";f 1290 IFf=>.THEN1360 1300 IFr1=.THENPRINT"{white}inga tidigare angivelser finns!":GOTO1270 1330 PRINT"{green} jag antar att du vill bibeh]lla samma{space*2}v[rden.{down}":GOTO1510 1360 f(i)=f 1370 INPUT"{white}W {light blue}l{pound}ner{space*7}";h(i):n=1:IFh(i)<.THEN1490 1410 INPUT"{white}W {light blue}ammunition{space*2}";b(i):n=2:IFb(i)<.THEN1490 1450 PRINT:IFf(i)+b(i)+h(i)="ja"THEN1540 1520 IFi=2THEN1540 1530 PRINT" {light blue}nordstatsgeneralen : 1540 NEXT 1550 FORz=1TOd:IFb$<>"ja"THEN1620 1570 ONzGOTO1580,1600 1580 PRINT"{light blue} sydstaterna: {green}";:GOTO1620 1600 PRINT"{light blue}nordstaterna: {green}"; 1620 o=((2*f(z)^2+h(z)^2)/f1^2+1):IFo<10THEN1660 1640 PRINT"moralen [r h{pound}g.":GOTO1700 1660 IFo=>5THENPRINT"moralen [r ganska bra.":GOTO1700 1690 PRINT"moralen [r d]lig. 1700 IFb$<>"ja"THENNEXT:GOTO1760 1710 o(z)=o 1720 NEXT 1730 o2=o(2):o=o(1) 1750 PRINT" {light blue}sydstatsgeneral -- "; 1760 REM aktuellt l[ge i slaget: anfall/ f{pound}rsvar 1770 IFm=3THENPRINT"{green}du [r under anfall":GOTO1840 1800 IFm=1THENPRINT"{green}du [r i f{pound}rsvarsl[ge":GOTO1840 1830 PRINT"{green}b]da sidor [r under anfall 1840 PRINT 1850 REM v[lj strategier 1860 IFb$<>"ja"THEN1910 1870 FORi=1TO2:ONi-1GOTO1920:PRINT"{light blue} sydstatsstrategi ";:GOTO1920 1910 PRINT"{light blue} din strategi "; 1920 INPUTy 1930 IFABS(y-3)<3THEN1960 1940 PRINT"{green}strategi"y"[r inte till]ten.":GOTO1910 1960 IFb$="ja"THEN2000 1970 IFy=5THEN2830 1980 GOSUB3110:GOTO2170 2000 IFi=2THEN2030 2010 y1=y:PRINT"{light blue} nordstatsstrategi "; 2030 NEXT 2040 y2=y:y=y1 2060 IFy2=5THEN2020 2070 REM simulerade f{pound}rluster-nordsidan 2080 c6=(2*c2/5)*(1+1/(2*(ABS(y2-y)+1)))*(1.28+(5*m2/6)/(b(2)+1)) 2090 c6=INT(c6*(1+1/o2)+.5) 2110 REM om f{pound}rlusterna > tillg[nglig styrka, r[kna om f{pound}rlusterna 2120 e2=100/o2:IFINT(c6+e2)"ja"THEN2530 2320 PRINT"{light blue} j[mf{pound}rt med de verkliga f{pound}rlusterna vid"c$ 2330 PRINT"{green}sydstaterna: {cyan}"INT(100*(c5/c1)+.5)"{left}% av de verkliga 2340 PRINT"{green}nordstaterna:{cyan}"INT(100*(c6/c2)+.5)"{left}% av de verkliga{down} 2360 REM vem vinner 2370 IFu<>1THEN2380 2375 IFu2=1THEN2460 2380 IFu=1THEN2460 2390 IFu2=1THEN2440 2400 IFc5+e=c6+e2THEN2460 2410 IFc5+e.THEN3180 3140 INPUTy2 3150 IFy2=<.THEN3160 3160 IFy2<5THEN3290 3170 PRINT"{green}ange 1,2,3 eller 4 (vanligen tidigare{space*3}nordstatsstrategi)":GOTO3140 3180 s0=.:r=100*RND(.) 3200 FORi=1TO4:s0=s0+s(i) 3220 REM om den valda strategin finns i datasatserna ger r-100 extra 3230 REM tyngd ]t den valda. 3240 IFr