MSXPen

​x
 
10cls:color15,1,1:keyoff20defusr=&h003B:a=usr(0):defusr1=&h003E:a=usr1(0):defusr2=&H90:a=usr2(0):defusr3=&h41:defusr4=&h44:defusr5=&h15630screen2,2,040definta-z50open"grp:"as#160 me$="Loading sprites":gosub 200070gosub900075gosub1900080 me$="Loading tileset":gosub 200090gosub10000100dimm(120,16):dimx(3):dimy(3):dimv(3):dimc(3):dimp(3)110f=0:sc=1:sl=6:td=48:tm=6:tf=32:n=0:w=88:t0=0120x=0:y=9*8:v=8:h=8:l=9:s=0:p=0:p0=0:p1=1:p2=2:p3=3:p4=4:p5=5122e1=8:e2=9:e3=10:e4=11:e5=12:e6=13123gosub3500125restore21000:gosub20200130gosub20800132 co=0:me$="Music playing, please wait":gosub 2000:mu=1: gosub 4000133a=usr5(0)135 me$="Main menu, press space key":gosub 2000137ifinkey$=""thenco=co+1:ifco>800thengoto132elsegoto137140gosub20200145fori=0to31:vpoke6656+i,39:nexti150VPOKE6688,39:VPOKE6719,39:VPOKE6720,39:VPOKE6751,39:VPOKE6752,39:VPOKE6783,39155VPOKE6690,0160VPOKE6696,1165VPOKE6702,2170fori=0to31:vpoke6784+i,39:nexti175gosub2200190putsprite0,(x,y),15,p195mu=7:gosub4000196gosub20800197 me$="Press space key to start":gosub 2100198ONSPRITEGOSUB3000:spriteon199gosub6000200j=STICK(0)ORSTICK(1)210ONjGOTO230,250,270,290,310,330,350,370220p=p0:ifn<wthenswapp0,p1:goto400elsegoto400230y=y-h:o=o-8:p=p4:swapp4,p5:goto400250x=x+v:o=o-8:y=y-h:p=p0:swapp0,p1:goto400270x=x+v:p=p0:swapp0,p1:goto400290x=x+v:o=o+8:y=y+h:p=p0:swapp0,p1:goto400310y=y+h:o=o+8:p=p4:swapp4,p5:goto400330x=x-v-4:o=o+8:y=y+h:p=p2:swapp2,p3:goto400350x=x-v-4:p=p2:swapp2,p3:goto400370x=x-v-4:o=o-8:y=y-h:p=p2:swapp2,p3:goto400400ifa=0thengoto500410ifo>104theno=104elseifo<48theno=48:a=2:o=o-8420ify>othena=2elseifa=1theny=y-8430ify<o-16thena=2440ifa=2theny=y+8:ify>=othena=0:PUTSPRITE1,(0,212),1,7450ifa>0thenPUTSPRITE1,(x,o),1,7500IFy<48THENy=48elseify>112theny=112510ifx<0thenx=0elseifx>250thenx=250520PUTSPRITE0,(X,Y),15,P530px=x/8:py=y/8540t0=m(px+1+n,py+1)550ift0>=tdanda=0thengosub3000560ift0=tmthenmu=6:gosub4000:PUTSPRITE0,(X,Y),8,6:fori=0to300:nexti:m(px+1+n,py+1)=tf:s=s+10:gosub2200570ifn=wthenfori=0to50:nexti580ifn=wandx>240thengosub20000590ifnmod10=0andn<wthengosub20500600ifn<wthenn=n+1:gosub20600610ifsc=2orsc=4orsc=6thengoto690620ifn>c(0)andn<c(0)+25thenp(0)=e1:swape1,e2:putsprite2,(x(0),y(0)),1,p(0):x(0)=x(0)-v(0):goto690630ifn>c(1)andn<c(1)+25thenp(1)=e3:swape3,e4:putsprite2,(x(1),y(1)),2,p(1):x(1)=x(1)-v(1):goto690640ifn>c(2)andn<c(2)+25thenp(2)=e5:swape5,e6:putsprite2,(x(2),y(2)),3,p(2):x(2)=x(2)-v(2)690goto2002000line(0,170)-(255,180),6,bf2010preset(0,170):?#1,me$2090return2100line(0,170)-(255,180),6,bf2110preset(0,170):?#1,me$2120ifstrig(0)=-1then2180else21202180line(0,170)-(255,180),6,bf2190return2200vpoke6722,48+l2230vpoke6728,48+sc2240s$=str$(s)2250ls=len(s$)2260fori=1tols-12270vpoke6733+i,48+val(mid$(s$,i+1,1))2280nexti2290return3000'playermuere'3010mu=5:gosub4000:a=0:spriteoff:strig(0)off3020fori=0to1000:nexti3030x=0:y=9*8:PUTSPRITE0,(X,Y),15,03035fori=0to2:putsprite2+i,(x(i),y(i)),0,03040l=l-1:gosub2200    3050 if l<=0 then put sprite 0,(0,212),15,p:gosub 19000:me$="Game over":gosub 2100:goto 110    3060 if sc=2 or sc=4 or sc=6 then strig(0) on:on strig gosub 5000:sprite off:me$="Press space to jump":gosub 20003070ifsc=1orsc=3orsc=5thenonscgosub6000,3017,7000,3017,8000:spriteon:strig(0)off3080n=0:gosub20600    3085 me$="Ready press space":gosub 21003090return3500S1$="T250V13O4L4daO5ag#eV15L2gL4d#ef#gf#ed#"3510S6$="T250V11O3L4gO4dO5dc#O4aO5cL2cL4g#abO6cO5bag#"3520S2$="T250V12O2L2dL6ar64aL2dadL6ar64aL2da"3530S3$="T250V11S14M500L4cO6cO8cO4g#g"3540S4$="T250V11O1L2aL6O2er64eL2O1aO2eO1cL6O2gr6gL2O1cO2gL2dL6ar64aL2dadL6ar64aL2da"3550S5$="T250V13O4L4ed#ef#gf#r2L4gf#gaa#ar2L4a#aa#aL2O5c#L4O4aa#O5c#d"3590return4000a=usr2(0)4010ifmu=1thenplayS3$:playS2$:playS1$,S2$:playS1$,S2$,S6$:playS4$,S5$,S3$4050ifmu=5thenplay"t255l10o3v8gc"4060ifmu=6thensound1,0:sound6,25:sound8,16:sound12,4:sound13,94070ifmu=7thenplay"t255O3L8V8M8000AADFG2AAAA"4080ifmu=8thensound1,2:sound8,16:sound12,5:sound13,94199return5000ifa=0thenmu=8:gosub4000:o=y:a=15090return6000x(0)=255:y(0)=72:v(0)=12:c(0)=16010x(1)=255:y(1)=80:v(1)=12:c(1)=346020x(2)=255:y(2)=64:v(2)=12:c(2)=626090return7000x(0)=255:y(0)=72:v(0)=12:c(0)=17010x(1)=255:y(1)=64:v(1)=12:c(1)=367020x(2)=255:y(2)=64:v(2)=12:c(2)=587090return8000x(0)=255:y(0)=64:v(0)=12:c(0)=18010x(1)=255:y(1)=96:v(1)=12:c(1)=388020x(2)=255:y(2)=64:v(2)=12:c(2)=608090return20000mu=7:gosub4000:strig(0)off20005sc=sc+120010PUTSPRITE0,(0,212),15,0    20020 if sc=sl then gosub 19000:gosub 20200:gosub 20800:me$="Congratulations, final":gosub 2100:goto 110    20030 me$="Loading next level...":gosub 200020040gosub2020020050n=0:gosub2080020070gosub220020075x=0:y=9*8:putsprite0,(x,y),15,p20076a=usr5(0)    20080 me$="Press space key":gosub 2100    20085 if sc=2 or sc=4 or sc=6 then strig(0) on:on strig gosub 5000:me$="Press space to jump":gosub 2000:sprite off20086ifsc=1orsc=3orsc=5thenonscgosub6000,20086,7000,20086,8000:spriteon20090return20200callturboon(m())20205forr=0to1520210READmp$:po=020220forc=0tolen(mp$)step420230r$=mid$(mp$,c+1,2)20240tn$=mid$(mp$,c+3,2)20250tn=val("&h"+tn$):tn=tn-120260re=val("&h"+r$)20270fori=0tore20280m(po,r)=tn:po=po+120300nexti20310nextc20320nextr20325callturbooff20390return20500_TURBOON(m(),n)20510d=614420520forr=0to720530forc=nto31+n20540VPOKEd,m(c,r):d=d+120550nextc20560nextr20570_TURBOOFF20590return20600_TURBOON(m(),n)20610d=643220620forr=9to1420630forc=nto31+n20640VPOKEd,m(c,r):d=d+120650nextc20660nextr20670_TURBOOFF20690return20800_TURBOON(m())20810d=614420820forr=0to1520830forc=0to3120840VPOKEd,m(c,r):d=d+120850nextc20860nextr20870_TURBOOFF20890return21000data1f2321010data072300530059005e002300590056003b004f0054002300560058003f0059003f0054005a0059052321020data1f2321030data0a230052003f005500230053005b0059005a00230052004f005c003f072321040data0e23000b000c000d0d2321050data0923000b000c000d0123002b002c002d0123000b000c000d082321060data0923002b002c002d0623002b002c002d082321070data1f2321080data1f2321090data0823000b000c000d0223000e000f00100223000b000c000d072321100data0823002b002c002d0223002e002f00300223002b002c002d072321110data1f2321120data1f2321130data0923000b000c000d0623000b000c000d082321140data0923002b002c002d0123000b000c000d0123002b002c002d082321150data0e23002b002c002d0d2321200data202300251e2301250023062514230325132321210data122301250a2301251e230925142303250023012504230125092321220data0d230125022301250a2301251c230b25142303250023012503230225092321230data05230325032306250a2301251c230b25142303250023012502230325092321240data05230e250a230a2513230b251323042500230825092321250data05230e250a230a2513230b2513230e25092321260data772521270data774121280data774121290data06411c2100070a2101411321004102210007012102411c2100410421042a21300data2921074113210241032102410b2105410a210041092121310data0b21114101210141022100410f2101410d210241032102410c210007022100410a2100410421042a21320data06411d2100410f210141032105410321024103210241022105410721004101210941092121340data06411d21004105210b41032105411021014106210341002100411021042a21350data774121360data774121400data772321410data322304213f2321420data31230521172307241f2321430data09230e2411230c211723072410230524082321440data092302240023002400230024002300240023042411230c211723002400230b240a2301240023002400230024082321450data09230e240423001800190a2300210023002100230021002300210023002100230021002300210123001800190e23001a001b02230424012306240a230524082321460data092302240623022400250024052300150a23002100250a21022300160f23001602230024002502240123002401230024012300240a23032400250024082321470data774221480data774221490data134203221242032200420622014206220a4203220007012200420022004206220142032202420222004202220842022a21500data09220142052201420322014201220342012201420a2200420322044206220a42062200420022054201220142032202420222004202220b4221510data092201420522074202221642032200420222034202220042022200420222074200220a42022202420222004202220842022a21520data092201420522014203220142052201420b220542032200420022000700220342022200420622014202220142022200420122004a004b04220242052203420b2221540data134203220342032201420422014c042205420322004202220342022200420222004202220142022201420222004201220048004906220042022206420b2221550data774221560data774221600data772321610data1623001800195e2321620data172300161c23001a001b072300280023002800230028002300282423001800190123001a001b052321630data0123001800190f2306271b2300160723062806230b271223001602230017052321640data0223001705230327052306250423072706230125032305270423042800020028042310210c2307210423002121650data772721660data774321670data774321680data774321690data10210f4308210007032100431421044313210043052107430621032a21700data0521000700210443032100431021044306210043032104430621004302210543042108430521004305210043042100430821022a21710data08210843102100430e21064305210043032104430f210043022100430521004304210043032100430421012a21720data04430f21004303210943132102430421004303210007002102430f210043052100250521034303210143052121730data04430f21004310211a430a21014304210643052100250d210243042121740data774321750data774322000data19230015172300180019172300171a2300160d2322010data16230626112302260023001615230326172304260b2322020data012610230d260b23072613230726032304260a230926082322030data002112260b210d26052114260621172604210a2622040data0d210726092105260d2105260b210126072105260621022601210126132122050data772122060data09260a21032604210326552122070data772622080data69420d2522090data0a420125014201250f420b25004a004b022500420425014203250142022501420225014204250442032511420d2522100data08250142012501420125014202250342032502420b2500480049022500420425014203250142022501420225014204250442032502420b2502420d2522110data082501420125054202250342032502420125054202250e420125074202250b420325024203250046004705250d42022a22120data0825014203250a4203250a420325034203250542012509420b2507420325004400450525104222140data0a420e250e4210250042012509420b252142022a22150data774222160data774222200data772322210data772322220data1e2301280d2301240c230128002301280023012807230128002301280a23012400230124002301240c230128022322230data02230024002301240023002411230228002301280d2301240c230728072304280a2307240c230128022322240data02230524102306280d2301240c230728072304280a2307240c230128022322250data02230524102306280d2301240c230728072304280a2307240c230128022322260data772622270data774222280data774222290data0d421a210242052108420221000701210142112100070021004206210342142122300data0a210242012100070321004204210e42152104421121004202210042022103420e21052a22310data0a2103420521004204210e42162103420521024203210542022100420321024202210842082122320data054204210342052101421021014205210a42062102420421034203210542022101420221024202210b42052a22340data06420d2102421c210142152100420c2101421321064222350data774222360data774222400data1f2322410data0323003e003f005c003f005200550056003f005800590b2300110012032322420data192300130014032322430data07230056003f003e0058005500230055005a003b005200550058003b0a2322440data1f2322450data07230051004f0051003f00230053003b003e0058004f004d003b00520a2322460data1f2322470data0323004d0058003b0056004e004f003d00590d2300110012032322480data192300130014032322490data072300530059005e002300590056003b004f00540023005a003f0052003f004d0058003b0053052322500data1f2322510data03230053005b0059004f003d00590f2300110012032322520data12230009052300130014032322530data0723003d0052003f0053003f0054005a003f0023005a004f0054003f0054003b082322540data1523005a004e003b0054005100590023005f0055005b22550data1f239000callturboon9005fori=0to31:putspritei,(0,212),0,0:nexti9010'callturboon9020fori=0to(32*13)-19030readb:vpoke14336+i,b9040nexti9050callturbooff9060data0,0,33,195,192,192,192,639070data63,62,96,160,240,240,0,09080data0,224,208,252,108,112,240,2409090data240,240,248,102,54,48,0,09100data0,0,0,0,240,112,48,159110data15,15,15,5,6,6,0,09120data240,120,116,31,27,28,60,2529130data252,188,48,176,176,248,0,09140data0,7,11,63,54,14,15,159150data15,15,31,102,108,12,0,09160data0,0,132,194,2,2,2,2529170data252,124,6,4,14,14,0,09180data15,30,46,248,216,56,60,639190data63,61,12,13,13,31,0,09200data0,0,0,0,14,14,12,2409210data240,240,240,160,96,96,0,09220data3,7,15,1,3,3,11,159230data7,7,3,7,13,1,0,09240data192,224,240,128,192,192,208,2409250data224,224,192,224,176,128,0,09260data1,7,7,7,1,3,3,39270data7,15,11,7,9,1,0,09280data128,224,224,224,128,192,192,1929290data224,240,208,224,144,128,0,09300data0,0,0,0,0,0,127,2559310data255,190,99,163,243,243,0,09320data0,0,0,0,0,56,190,2239330data253,55,159,70,102,96,0,09340data0,0,0,0,0,0,0,09350data0,0,31,255,255,127,0,09360data0,0,0,0,0,0,0,1129370data248,240,248,255,255,252,0,09380data3,11,7,1,3,18,19,319390data7,3,3,3,7,6,14,149400data192,192,192,64,192,194,198,2489410data224,192,192,192,224,96,96,2249420data0,0,3,11,7,1,3,39430data2,3,7,31,2,9,7,79440data0,0,192,192,192,64,192,649450data64,224,224,64,192,192,224,1209460data3,3,3,17,19,18,55,639470data19,19,19,19,7,6,14,149480data224,240,192,64,192,192,192,2249490data224,224,224,192,224,96,96,2249500data0,11,11,11,17,51,59,389510data39,35,35,67,67,71,6,79520data0,224,240,192,64,196,72,809530data224,192,192,192,192,224,96,1129540data0,0,1,3,6,9,1,39550data7,9,1,3,7,14,1,39560data0,0,192,224,176,200,64,2249570data240,200,192,224,240,56,64,969990return10000callturboon10030restore10040:FORI=0TO(95*8)-110035READA$10036VPOKEI,VAL("&H"+A$)10037VPOKE2048+I,VAL("&H"+A$)10038VPOKE4096+I,VAL("&H"+A$)10039NEXTI10040DATAE7,40,20,7E,3C,18,00,0010050DATA00,18,3C,42,42,42,42,0010060DATA24,FE,A4,7E,25,25,7F,2410070DATA18,3C,3C,3C,3C,3C,3C,3C10080DATA00,00,00,00,00,00,00,0010090DATA00,00,00,00,00,00,00,0010100DATAFF,FF,C3,81,C2,C3,C3,0010110DATA18,3C,3C,18,00,56,56,7410120DATA00,7C,44,7C,00,10,10,0010130DATA00,04,08,18,3C,3C,3C,3C10140DATA01,07,0F,0F,1F,3E,9C,3E10150DATAC3,81,3C,18,18,3C,18,3C10160DATA80,E0,F0,F0,F8,7C,39,7C10170DATAFF,07,1E,3C,3C,3C,20,0810180DATA00,00,00,00,00,C3,C3,0010190DATA00,E0,78,3C,3E,1C,18,1010200DATA18,D2,D6,1F,0F,0F,07,0710210DATA0C,4B,3B,27,8F,F0,E0,E010220DATA01,01,01,03,07,07,07,0710230DATA80,80,C0,C0,E0,E0,F0,F010240DATAC0,E0,20,20,30,10,FF,3410250DATA60,60,60,78,FC,FE,10,6A10260DATA78,08,38,40,30,30,31,3510270DATA07,0F,0F,07,1F,1F,00,0010280DATAF0,C0,E0,F0,FC,F8,E0,6010290DATAE2,C1,D0,C0,C0,F8,FF,FF10300DATA0F,87,4F,07,07,0F,E0,6010310DATA00,03,3F,37,82,80,FC,FF10320DATAFF,3C,00,18,00,0C,DF,FF10330DATAFF,CF,07,47,07,1F,3F,FF10340DATAFF,E7,C3,A3,B1,83,FF,FF10350DATAFF,FF,F3,E4,C2,80,E5,FF10360DATAFF,FF,FF,FF,FF,FF,FF,FF10370DATAFF,FF,FF,FF,FF,FF,FF,FF10380DATAFF,FF,FF,FF,FF,FF,FF,FF10390DATAFF,FF,FF,FF,FF,FF,FF,FF10400DATAFF,FF,FF,FF,FF,FF,FF,FF10410DATAFF,FF,52,00,10,24,00,0010420DATAFF,FF,52,00,08,20,00,0010430DATA6D,DB,DB,6D,6D,DB,DB,6D10440DATA6D,DB,DB,6C,6C,DB,DB,6C10450DATAFF,04,02,7D,02,04,00,0010460DATAE2,E1,7E,C1,E0,F0,F8,FF10470DATA81,81,00,00,BD,FF,FF,FF10480DATAC7,78,81,83,07,0F,3F,FF10490DATAFF,FF,02,01,00,00,00,0010500DATA3C,3C,04,18,3C,3C,3C,0010510DATA00,20,00,00,00,00,00,0010520DATA00,38,44,4C,10,64,44,3810530DATA00,0C,04,04,00,04,04,0410540DATA00,38,04,04,38,40,40,7810550DATA00,38,04,04,38,04,04,3810560DATA00,44,44,44,38,04,04,0410570DATA00,38,40,40,38,04,04,3810580DATA00,38,40,40,38,44,44,3810590DATA00,38,04,04,00,04,04,0410600DATA00,38,44,44,38,44,44,3810610DATA00,38,44,44,38,04,04,3810620DATA00,1C,22,22,1C,22,22,2210630DATA00,3C,22,22,1C,22,22,3C10640DATA00,1C,20,20,00,20,20,1C10650DATA00,3C,22,22,00,22,22,3C10660DATA00,3C,20,20,1C,20,20,3C10670DATA00,3C,20,20,1C,20,20,2010680DATAFF,FF,FF,FF,FF,FF,FF,FF10690DATAFF,FF,FF,FF,FF,FF,FF,FF10700DATAFF,FF,FF,FF,FF,FF,FF,FF10710DATAC0,F8,07,02,01,00,00,0010720DATA01,01,87,FA,FA,AD,79,0110730DATA00,00,00,00,00,03,C2,F510740DATA00,00,A8,F8,86,7A,7D,8510750DATA00,04,02,01,77,F7,FF,8010760DATA58,28,0C,9C,02,FF,FE,FE10770DATA0F,07,0F,0F,0F,1F,1F,1010780DATA80,C0,E0,B0,60,70,78,B810790DATA22,22,77,77,22,22,22,2210800DATA00,38,40,40,0C,44,44,3810810DATA00,44,44,44,38,44,44,4410820DATA00,10,10,10,00,10,10,1010830DATA00,04,04,04,00,44,44,3810840DATA00,44,48,50,38,44,44,4410850DATA00,40,40,40,00,40,40,3C10860DATA00,38,54,54,00,44,44,4410870DATA00,64,54,4C,00,44,44,4410880DATA00,38,44,44,00,44,44,3810890DATA00,78,44,44,38,40,40,4010900DATA00,38,44,44,00,44,48,3410910DATA00,78,44,44,38,50,48,4410920DATA00,3C,40,40,38,04,04,7810930DATA00,7C,10,10,00,10,10,1010940DATA00,44,44,44,00,44,44,3810950DATA00,44,44,44,08,50,60,4010960DATA00,44,44,44,00,54,54,3810970DATA00,44,44,28,10,28,44,4410980DATA00,44,44,44,38,04,04,3810990DATA00,3C,04,08,10,20,40,7813000restore17740:FORI=0TO(95*8)-113010READA$13020VPOKE8192+I,VAL("&H"+A$):'&h2000'13030VPOKE10240+I,VAL("&H"+A$):'&h2800'13040VPOKE12288+I,VAL("&H"+A$):'&h3000'13050NEXTI13060callturbooff17740DATA81,F8,F8,81,81,81,81,8117750DATA81,21,21,2C,2C,2C,2C,1117760DATAA1,A1,A1,A1,A1,A1,A1,A117770DATAB1,61,61,61,61,61,61,6117780DATA61,61,61,61,61,61,61,6117790DATA61,61,61,61,61,61,61,6117800DATA91,91,A9,EA,EA,A9,E9,E917810DATAB1,B1,B1,B1,B1,81,81,8117820DATA81,B1,B1,B1,B1,A1,A1,A117830DATAA1,D1,D1,91,91,91,91,D117840DATAF7,F7,F7,B7,F7,F7,BF,BF17850DATAF7,EF,EB,FB,FB,EB,BF,BF17860DATAF7,F7,F7,B7,F7,F7,BF,BF17870DATA51,E5,F5,F5,F5,E5,45,E517880DATAE5,E5,E5,E5,E5,E5,E5,E517890DATAE5,E5,F5,F5,F5,F5,F5,E517900DATAEF,FB,AB,BF,BF,AF,AF,BF17910DATAEF,EB,FB,FB,FA,BF,AF,BF17920DATABF,BF,AF,EF,AF,AF,AF,AF17930DATAAF,AF,EF,BF,BF,AF,AF,AF17940DATA97,97,97,97,97,97,97,B917950DATA97,97,97,97,97,97,B9,B917960DATA97,97,97,97,97,97,B9,B917970DATA27,27,27,27,27,27,27,2717980DATA27,27,27,27,27,27,97,9717990DATA72,72,72,72,72,72,72,7218000DATA72,72,72,72,72,72,97,9718010DATA97,F7,F7,F7,EF,7F,7F,7F18020DATA7F,7F,7F,EF,EF,7F,7F,7F18030DATA7F,7F,7F,7F,7F,7F,7F,7F18040DATA7F,7F,7F,7F,EF,7F,7F,7F18050DATA7F,7F,7F,7F,7F,7F,7F,7F18060DATA91,91,91,91,91,91,91,9118070DATA51,51,51,51,51,51,51,5118080DATA71,71,71,71,71,71,71,7118090DATA61,61,61,61,61,61,61,6118100DATAE1,E1,E1,E1,E1,E1,E1,E118110DATA21,21,23,23,23,23,23,2318120DATA91,91,9E,9E,9E,9E,9E,9E18130DATAE1,51,E1,51,E1,51,E1,5118140DATAE1,51,E1,51,E1,51,E1,5118150DATAB1,8B,8B,8B,8B,8B,8B,8B18160DATAFB,FB,FB,7F,7F,7F,7F,7F18170DATAFB,EB,EB,EB,EB,F1,F1,F118180DATAEB,BF,BF,7F,7F,7F,7F,7F18190DATA51,51,E5,E5,E5,E5,E5,E518200DATAE5,E5,45,E5,E5,F5,E5,E518210DATAE5,E5,E5,E5,E5,E5,E5,E518220DATA11,31,31,31,31,31,31,3118230DATA31,31,31,31,31,31,31,3118240DATA31,31,31,31,31,31,31,3118250DATA31,31,31,31,31,31,31,3118260DATA31,31,31,31,31,31,31,3118270DATA31,31,31,31,31,31,31,3118280DATA31,21,31,31,31,31,31,3118290DATA31,31,31,31,31,31,31,3118300DATA31,31,31,31,31,31,31,3118310DATA31,31,31,31,31,31,31,3118320DATA31,31,31,31,31,31,31,3118330DATA31,31,31,31,31,31,31,3118340DATA31,31,31,31,31,31,31,3118350DATA31,31,31,31,31,31,31,3118360DATA31,31,31,31,31,31,31,3118370DATA31,31,31,31,31,31,31,3118380DATAB1,B1,B1,B1,B1,B1,B1,B118390DATA31,31,31,31,31,31,31,3118400DATAE1,E1,E1,E1,E1,E1,E1,E118410DATAE1,E1,E1,E1,E1,E1,E1,E118420DATAE1,E1,F1,E1,E1,E1,E1,E118430DATAE1,E1,E1,E1,E1,B1,E1,E118440DATAE1,E1,B1,E1,E1,E1,F1,F118450DATAF1,61,61,61,21,21,21,E218460DATA61,61,A1,61,26,26,21,2118470DATAA1,61,61,61,61,A1,61,6118480DATAA1,A1,A1,A1,61,61,61,6118490DATAB1,A1,A1,A1,81,81,81,8118500DATA81,31,31,31,31,31,31,3118510DATA31,31,31,31,31,31,31,3118520DATA31,31,31,31,31,31,31,3118530DATA31,31,31,31,31,31,31,3118540DATA31,31,31,31,31,31,31,3118550DATA31,21,31,31,31,31,31,3118560DATA31,31,31,31,31,31,31,3118570DATA31,31,31,31,31,31,31,3118580DATA31,31,31,31,31,31,31,3118590DATA31,31,31,31,31,31,31,3118600DATA31,31,31,31,31,31,31,3118610DATA31,31,31,31,31,31,31,3118620DATA31,31,31,31,31,31,31,3118630DATA31,31,31,31,31,31,31,3118640DATA31,31,31,31,31,31,31,3118650DATA31,31,31,31,31,31,31,3118660DATA31,31,31,31,31,31,31,3118670DATA31,31,31,31,31,31,31,3118680DATA31,31,31,31,31,31,31,3118690DATA31,31,31,31,31,31,31,3118999return19000FORt=6144TO(6144+768)-9719010vpoket,25519020nextt19090return​
Cartridge 1: XBasic
Drive A
Drive B
Hard Drive
Cartridge 1
Cartridge 2
Cassette
CAPS
Swipe up/down on the Screen
to hide the browser bars!
or press Ctrl + Alt + R
Hello World?