PD ExtraPenPlus$SCRIPT FSMILE FJUPITERFHELP ?NUMERO FINFANT FHOLIDAYFFLEUR FROMANS DBROADWYFBACKUP T!Boot $ 2Hh1+ ̈́0/0/$_0/0/$:0/0/$&0/0/$0/0/$0/0/$0/0/$Z,,(20/0/$ S*BASIC CHAIN"PenPlus" THIS IS HOLIDAY.DA #18:PHA LDA #1:STA co+0:STA co+1 LDA ram+0:STA temp+0 LDA ram+1:STA temp+1 ""LDA #255:STA sing:PLA:JMP oldv , .quad 6 LDA co+0:SEC:SBC #1:STA co+0 @LDA co+1:SBC #0:STA co+1 JBMI stopit T0LDA flag:CLC:ADC #1: #1:STA flag:BNE skip03 ^PLA:STA &9A h TYA:PHA rLDA &9A:LDY #0:STA (temp),Y | PLA:TAY JSR inctemp "LDA temp+1:CMP #&0B:BNE skip02 "LDA temp+0:CMP #&02:BNE skip02 ASL &B00:ROL &B01  LDA &B00:CLC:ADC #2:STA co+0 LDA &B01:ADC #0:STA co+1  .skip02 RTS .skip03 PLA:RTS  .stopit LDA &B00:STA &2A LDA &B01:STA &2B LSR &2B:ROR &2A  LDA &2B:CLC:ADC #&0B:STA &2B LDY #2:LDA #0:STA (&2A),Y JSR printline &JSR printline 0 LDY #22 : .pploop2 DLDA #13:JSR pp NDEY:BNE pploop2 XLDA #0:STA sing bLDA #27:JSR pp lLDA #"3":JSR pp vLDA #15:JSR pp .skip01 PLA:RTS  .setnlq LDA #27:JSR pp LDA #"x":JSR pp LDA #01:JSR pp LDA #27:JSR pp LDA #"G":JSR pp RTS  .sing BRK  .flag BRK .count BRK .co BRK:BRK .ram BRK:BRK:BRK:BRK  .inctemp  $LDA temp+0:CLC:ADC #1:STA temp+0  LDA temp+1:ADC #0:STA temp+1  RTS *.printline 4/LDA #27:JSR pp:LDA #51:JSR pp:LDA #0:JSR pp >LDA #480 256:STA co+0 HLDA #480 256:STA co+1 RLDA #27:JSR pp \LDA #"Z":JSR pp fLDA ram+0:STA temp+0 pLDA ram+1:STA temp+1 zLDA #(1920 256):JSR pp LDA #(1920 256):JSR pp  .pploop  LDY #2 ,LDA (temp),Y:JSR pp:JSR pp:JSR pp:JSR pp JSR inctemp  LDA co+0:SEC:SBC #1:STA co+0 LDA co+1:SBC #0:STA co+1 BPL pploop /LDA #27:JSR pp:LDA #51:JSR pp:LDA #1:JSR pp LDA #13:JSR pp RTS (.pp PHA:LDA #1:JSR oldv:PLA:JMP oldv  .setup LDA #printer 256:STA &20E LDA #printer 256:STA &20F RTS $ .break .BCC nothing 8PHA:TXA:PHA:TYA:PHA B$LDA #253:LDX #0:LDY #0:JSR &FFF4 LCPX #0:BNE finshed V JSR setup `SEC j.rts t$PLA:TAY:PLA:TAX:PLA:.nothing RTS ~ .finshed LDA #0:STA &287 $LDA #200:LDX #3:LDY #0:JSR &FFF4 JMP (&FFFC) ]   !ram=&B00  setup P%=&287:[OPT 0:JMP break:] *PD *Basic CHAIN"PenPlus" 0KATSF` @` @``@ @0NPQRO1253679:;E<=K>4?@BMCFGLHIDxxxx~````````0000 ? ```08 0p````000 p<< 00`???``````````000 ?p<< 00`????``````````000 ? 00`````````````````````````````````````````````???``````````000 ?`< 00` 80`` 80`~?~???``````000 >x000000```???``````````000 ?p< < 0 ``````000 >x`08>px~|x?xxx???~??????oga```````000 p0 `00 ~~~~~~ 0000????`?||```````~~~~~~???``````````000 ?p<< 00`???``````000 ?>x 00``>>~~???``````000 ?>x001cg 000``67wpGΠwifU3030//35203-24/-421-.-4apse ?,-aqueduct |/L,arch /e3architect c,c,architecture /t,basilica +0,baths .,capital P4,church 3,circus O0,colonnade 2,Colosseum ,,column ,,concrete 5,dome 4,drains 0,fort 4,forum -3-fountain --fresco -gymnasia --hypocaust ;-insulae G-latrine I5S-marble n1^-Mithraeum #4l-mosaic w-palace 3-Pantheon 1-peristyle 1-podium 1-portico 3-road :4-roof -stadium o/-stucco 4-temple 2-vault 4-villa /46,amphitheatre 6?,cloak ..palla ?.!.stola 4+.toga 34.tunica ?.pallium -K.sinus o5U.umbo A3^.dalmatica . .army 0z3auxiliaries .barracks t,.battering ram ..boss 6.catapults C0.centurion ..century 2.decurion 4.cornicen .cohort ,.aquilifer L,/eagle-bearer 2/fatigues z3&/garrison 13/granary 1?/legion J/J/legionary 01X/legate ?/c/mattock 1o/standard 2|/aquila ./testudo +./tortoise O2/onager /caltrop :0/siege tower 35/siege machines //scorpion =6/eagle //armour l./archer U,0arrow 00artillery e30baggage 3+0bath-house ,:0camp ,C0cavalry .O0citizen [0[0citizenship 5k0diploma ,w0dagger ^.0pugio 0sword 0gladius 40spatha X50drill 00drill-ground 50javelin 50pilum -0guard 00guards -0guard-house 01gate 1 1gate-house 51porta -%1helmet F101lorica segmentata F1holidays S1S1hospitals --a1infantry 5n1marching {1{1marching-camp 31medical 11medicines 41pickaxe G61groma 01engineer 21pay -1salary 31treasury {51veteran Y31grant 12colony , 2enlist 22enlistment %2recruit 1212recruitment F4A2promotion 0O2train Y2Y2training 1f2rations %2r2ring-mail -2chain-mail 52mail S-2empire 12emperor 22imperator 22imperial a12shield /2standard-bearer 32tent 22tent-party /3tools / 3spade 03scutum 5 3palisade .-3fossa -73agger 5A3uniform M3weapons l.viaduct -U,atrium v6Y3galea &/u.focale ,3cingulum militare ,3bracae >53caliga /3balteus .p3steelyard !.3pottery A23kiln 3samian ware \63Mars c/3Apollo 6,4Jupiter 4Juno 44Venus 5#4Mithras l-/4Vulcan :4Romulus -F4Remus r2P4Capitol \4\4Carthage .i4quern s4corn .|4grain 3/4wax tablet M34stylus 04strigil -4Diana k04Fortuna ,4Minerva ^-4Neptune 4glass *54gladiators 04drainage ,5sewers 2 5ingots ;-5lead X/5copper s4*5gold |435silver K.>5bronze I5lavatories 5X5sponges -d5slaves 3o5slavery d5{5triumph 4.5chariot ,5Druids 5Gaul 45Julius Caesar 45Claudius .5Vespasian 15Agricola l65Hadrian *65Constantius 55Antoninus 3 6Boudicca 36Antonine Wall 5*6Hadrian's Wall %1=6Scots 3G6Picts 0Q6Saxons /\6Saxon Shore Q6l6Alban -v6Augustine u.3 0KATSF @` @@`` @`046QR719:;<=>?@5BICD2E3FGHKLMNOP~~?????????????????????????????????????`qq`????????????????~@`|xxxx|????<<<????<<<<>>???????ÁÁ??????|xxxx|`@<<<??<<<>>|xxxx|`@<<<?????????ÁÁ??`qq`??????????`qq`??????????`qq`?~x`????????~????????????@`|xxxx|?????<<<???????~>???|xxxx|`@<<<??<<<>>?`qq`?????????? 11~~~~?`qq`?????????`x~?`qq`?~x`????????x?`qq`?x????????`x~?`qq`?~x`????????~~`x~?`qq`?~x`????????@@``ppxx||~~?`qq`8`??????>8`|x~~>>???????????????? <~|xp`@Ã?<<<?? 0KA`NSF@ `@`` @@02KLE;DMFIG7964B5?  6$f?' 0p`Ȁ`  D$??$D000@  6$g?'!1qaɁaxxxD$??$Dxx000@ x  6$g?'!1qaɁaD$??$D000@  6$g?' 0p`Ȁ`x  xxD$??$Dxx000@ x`p8  8p`r>vƆ666F&  x6$f?'xx 0p`Ȁ`xx  zD$??$D000@ `p8  8p`p87'g??9pp8|nώp9p8#8pD$??t|8p000@ p8 8p`6$g?'ܸpȀ`p8! D$??$D000V 000````dfggailooogcgol`````0006$g?' 0p`Ȁ`  D$??$D8 666F , 8``````````dfggailooogcgol`````0006$g?' 0p`Ȁ`  D$??$D666F , 8000````dfggailooogcgol`````0006$g?' 0p`Ȁ`  D$??$D8 666F.>000````dfggailooogcgol`````0006$g?'|!1qaɁa`p>D$??$D8 666F , 8000````dfggailooogcgol`````0006$g?' 0p`Ɂa D$??$D8 666F , 8``````````dfggailooogcgol`````0006$g?'!1qaɁa|`p>D$??$D000@ ``````````dfggailooogcgol`````0006$g?'!1qaɁa|`p>D$??$D666F , 8000````dfggailooogcgol`````0006$g?' 0p`Ȁ`  D$??$D8 666F , 8``````````dfggailooogcgol`````0006$g?'!1qaɁa|D$??$D000@ @@5"$5"+"!""ӝDt+K  " 0KA USF` @` ` @@@ `0ONRPQ;5<:>G=3@BH?12679IMF4DLCEK??>>>>Ϗ??>~??~?~~?8xx8?xxxxx?x|>>|x<xx8xxxxxxxxppq|??xxxxx?? 0KATSF@ ``@` @ `@ 0DCB@?>=>>??????????????????????????????????????????????????????????????????????>>>B@1L2M6I7ECGHF??????:rҒr:??????:rҒr:~>??????:rҒr:??????:rҒ??????:rҒ??????:rҒ???r:?Ғ~|xp`a1 ??r2??22@@@@@@@ACGO_~|xp` 1a 1a??`px|~~|xp` 1aa1 ????`px|~~|xp`??s~|xpa1???>~ 0`???>~ 0`?~> 000``````````000 80000```xxxxx~x 000``````000 ??<<?6@79:BCD3FGE;HIK 0p 000``````````000 `00  00```0000 p8x0xx0v> 8p 000``````````000 000``````000|0xx0~x0 `p88p>>p0  0pp~oa``````````````````````````````````````ao~p???80000```xx~````````````````````````````````````p8 Ã````````````````````````````````````p8 Ã`````````````````````````````````````````````````````````p8 p88pp88p1xx0p88p0xx1p8  8p8`````````````````p8p80xx0v>`````````````````000 | 8p<>`````````````````000 |  8p 000``````````000 1og%=og%-1:cc%?og%=32:K% `K%=136og%>1og%=og%-1:8 j'(K%=137K%=9)og%1I%=og%-11-1:8:  K%=27K%=42cc$=lg$cc$=ah cc$;(mg%-(cc$));: pg:og%32)dc%cc$=cc$+(cc%?I%)  :=cc$ "'" _________";:8,8,8,8,8,8,8,8,8,11:id("",9):kh$=cc$:''"Creating """kh$""" Viewdata base file"'14;:fc%=4"on drive "ch$; Ҁ''" This will take a few minutes."''"Why not make yourself a cup of tea; themachine will call you when it is readyKASSF `@`@ `@ @`@`` ``@ @@`@ @ `@ ``@ 0HKLQMSKLLPIHIHMF?@@BAC>D?=;BA@CBCOROO;P131224349::9857573:9667846RNRK'_3 3?A" 4 !"DDPp0/G@ 0<0/< 2A~80`@@0 @@@p@ #| !!AA !A  |   | <  |!!AB  ~| <   |<!!CN|>  @< @AN00@ 8`  @<<!!CN| ABL0~@&E? ABL0~D  @?<~  @?<   @?<  | <  @< 8 `d !AB8p |?@ | 0`   @~<      0??>  @< @AN00@8@<@?!!CF\ ABL0~@0  @?|>8 B  BD```gp```@@@@@ <@@@@@@@@@@@@@@@@@@@@@@@@?p@~?80`@@0 @@@p@ #| @@x 8 "$,8p0 0``p@ $h9)5I@< !A8p`Ĉ@`!   <? 1`0  @ ? @   BD```gp```@@@@@ 1 2 88p;@@@Lpq0  "F8< p8KY1"< p8 )#& 0(p8 n# <|"BAA! 8come & see see & hear  PenPlus Version 2.0b 23;8202;0;0;0; $2,1,27,1,"x",1,1,1,27,1,"G",3 ( temp=&90 2oldv=!&20E &FFFF < PASS=0 2 2 F P%=&8C0 P [OPT PASS Z .printer dCPHA:LDA &D0: #1:BNE printer_on:LDA #0:STA oldbyte:PLA:JMP oldv n.printer_on xLDA sing:BMI quad PLA:PHA:CMP #1:BEQ skipit !CMP #27:BNE escno:STA oldbyte .escno #PLA:PHA:CMP #"L":BEQ condenced !PLA:PHA:CMP #"K":BEQ startit PLA:PHA:STA sing .skipit PLA:JMP oldv .condenced "LDA oldbyte:CMP #27:BNE skipit LDA #&FE:STA sing:JMP start2 .startit "LDA oldbyte:CMP #27:BNE skipit LDA #255:STA sing  .start2  TYA:PHA LDY #0:STY flag " .clrloop ,LDA #0:STA &B00,Y 6STA &C00,Y:INY:BNE clrloop @ PLA:TAY JPLA:LDA #18:PHA TLDA #1:STA co+0:STA co+1 ^LDA ram+0:STA temp+0 hLDA ram+1:STA temp+1 rPLA:JMP oldv | .quad  LDA co+0:SEC:SBC #1:STA co+0 LDA co+1:SBC #0:STA co+1 BMI stopit %LDA flag: #1:STA flag:BNE skip03 PLA:STA &9A  TYA:PHA LDA &9A:LDY #0:STA (temp),Y  PLA:TAY JSR inctemp "LDA temp+1:CMP #&0B:BNE skip02 "LDA temp+0:CMP #&02:BNE skip02 ASL &B00:ROL &B01  LDA &B00:CLC:ADC #0:STA co+0 LDA &B01:ADC #0:STA co+1  .skip02 RTS &.skip03 PLA:RTS 0 .stopit :LDA &B00:STA &2A DLDA &B01:STA &2B NLSR &2B:ROR &2A X LDA &2B:CLC:ADC #&0B:STA &2B bLDY #2:LDA #0:STA (&2A),Y lJSR printline vJSR printline LDA #0:JSR pp:JSR pp:JSR pp LDA #0:STA sing LDA #27:JSR pp LDA #49:JSR pp .skip01 PLA:RTS  .sing BRK  .flag BRK .count BRK .co BRK:BRK .ram BRK:BRK:BRK:BRK  .inctemp $LDA temp+0:CLC:ADC #1:STA temp+0  LDA temp+1:ADC #0:STA temp+1 RTS  .condq  LDA sing:CMP #&FF:BEQ nocond  LDA #(960 256):JSR pp *LDA #(960 256):JMP pp 4 .nocond >LDA #(1920 256):JSR pp HLDA #(1920 256):JSR pp RRTS \.printline f0LDA #27:JSR pp:LDA #51:JSR pp:LDA #0:JSR pp pLDA #480 256:STA co+0 zLDA #480 256:STA co+1 LDA #27:JSR pp LDA #"Z":JSR pp LDA ram+0:STA temp+0 LDA ram+1:STA temp+1  JSR condq  .pploop  LDY #2 =LDA (temp),Y:JSR pp:JSR pp:LDX sing:CPX #&FE:BEQ condhalf JSR pp:JSR pp:.condhalf JSR inctemp  LDA co+0:SEC:SBC #1:STA co+0 LDA co+1:SBC #0:STA co+1 BPL pploop 3LDA #27:JSR pp:LDA #51:JSR pp:LDA #1:JSR pp LDA #13:JSR pp RTS $(.pp PHA:LDA #1:JSR oldv:PLA:JMP oldv . .setup 8LDA #printer 256:STA &20E BLDA #printer 256:STA &20F LLDA #0:STA sing VLDA #&B00 256:STA ram+0 `LDA #&B00 256:STA ram+1 jRTS t .break ~BCC nothing PHA:TXA:PHA:TYA:PHA $LDA #253:LDX #0:LDY #0:JSR &FFF4 CPX #0:BNE finshed  JSR setup SEC .rts $PLA:TAY:PLA:TAX:PLA:.nothing RTS  .finshed LDA #0:STA &287 $LDA #200:LDX #3:LDY #0:JSR &FFF4 JMP (&FFFC) .oldbyte EQUB 0 ]    setup P%=&287:[OPT 0:JMP break:] (*PD