OX. Posted March 31, 2012 Share Posted March 31, 2012 Mechatronics Extended Basic II Plus? Or alternatively convert this to work with Extended Basic - 10 ! *********************** 11 ! 12 ! America's Agent 13 ! 14 ! (c) 1987/1997 by 15 ! 16 ! Carsten Ziepke 17 ! 18 ! MC Code for load/save 19 ! long prgs on tape is 20 ! (c) 85 by M. Kotulla 21 ! 22 ! Original America's 23 ! Agent was a Apple II 24 ! prg (c) 84 by C.Frey 25 ! Used with kind per- 26 ! mission 27 ! 28 ! It is FREEWARE now ! 29 ! Feel free to spread it 30 ! If you like it, send me 31 ! an email, a postcard or 32 ! something else :-) 33 ! 34 ! You need: 35 ! TI99/4A 36 ! Mechatronic Extended 37 ! Basic II plus 38 ! 32KRam 39 ! opt. Speech Synthesizer 40 ! 41 ! cziepke@ki.comcity.de 42 ! 43 ! Westring 268 44 ! D-24116 Kiel 45 ! Germany 46 ! 47 ! HINT: 48 ! Use GEHE TREPPE in 49 ! front of the house ! 50 ! 51 ! *********************** 52 ! 100 CALL CLEAR :: CALL SCREEN(5) :: FOR I=0 TO 14 :: CALL COLOR(I,16,5) :: NEXT I 105 CALL PEEK(-28672,SP) :: IF SP=0 THEN 220 110 CALL SAY("PLEASE+WAIT") :: RESTORE 120 :: FOR LOOP=1 TO 2 :: READ A,B,C :: SPE$(LOOP)=CHR$(A)&CHR$(B)&CHR$(C) :: FOR I=1 TO C :: READ D :: SPE$(LOOP)=SPE$(LOOP)&CHR$(D) :: NEXT I :: NEXT LOOP 120 DATA 96,0,87,0,192,128,96,89,8,16,61,183,0,98,100,61,76,74,158,102 130 DATA 218,246,50,151,57,76,118,218,237,146,117,51,131,138,168,171,2,178,116,162 140 DATA 19,131,112,198,47,12,243,109,106,179,77,16,165,70,140,87,87,41,72,34 150 DATA 79,147,75,39,39,241,81,105,152,157,148,204,251,184,152,185,86,50,47,147 160 DATA 170,226,70,200,82,87,102,43,140,7 170 DATA 96,0,98,129,191,171,144,193,212,25,96,71,134,198,236,226,194,108,217,23 180 DATA 19,178,169,104,53,185,204,102,54,179,152,20,76,60,170,197,100,38,51,216 190 DATA 154,156,45,162,113,103,7,83,189,163,134,215,74,172,182,88,77,109,199,178 200 DATA 150,53,44,183,82,35,161,216,178,154,21,44,49,25,225,17,59,113,63,17 210 DATA 155,136,122,3,28,14,100,128,239,148,28,240,61,171,1,190,102,101,64,230,65 220 CALL CHAR(64,"3C4299A1A199423C") :: CALL MAGNIFY(2) :: CALL SPRITE(#1,65,16,25,91) :: DISPLAY AT(5,12):"MERICA'S" 230 CALL SPRITE(#2,65,16,49,107) :: DISPLAY AT(8,14):"GENT" :: DISPLAY AT(23,5):"@ 87 BY CARSTEN ZIEPKE" 235 DISPLAY AT(16,1):" ADAPTATION EINES APPLE II PROGRAMMES (C) CARSTEN FREY" 240 CALL MUSIK :: CALL SOUND(1,110,30) :: CALL CLEAR :: CALL DELSPRITE(ALL) 250 DISPLAY AT(1,1):"DIE CENTRAL INTELLEGENCE": :"AGENCY (CIA) VERMUTET EBEN": :"SO WIE DAS FEDERAL BUREAU OF": :"INVESTIGATION (FBI) DAS IN" 260 DISPLAY AT(9,1):"DEM HAUS,BOND STREET NR.13," :: CALL SAY(,SPE$(1),,SPE$(2)) :: DISPLAY AT(11,1):"EIN VOR EIN PAAR TAGEN GE-" 270 DISPLAY AT(13,1):"STOHLENER MIKROFILM (GEHEIM-": :"MATERIAL: RAKETENSTATIONIE-": :"RUNG) VON EINEM RUSSISCHEN" :: DISPLAY AT(19,1)BEEP:"AGENTEN VERSTECKT WURDE..." 280 CALL WAIT(1000) :: CALL CLEAR :: DISPLAY AT(1,1):"DEINE AUFGABE IST ES NUN, SO": :"SCHNELL WIE ES GEHT FESTZU-": :"STELLEN,OB DER GESTOHLENE" 290 DISPLAY AT(7,1):"MIKROFILM WIRKLICH IN DEM": :"HAUS VERSTECKT WURDE..." :: CALL WAIT(500) :: GOSUB 1000 300 CALL SCREEN(5) :: FOR I=0 TO 14 :: CALL COLOR(I,16,5) :: NEXT I :: CALL CLEAR 310 DISPLAY AT(1,10):"HINWEISE": : :"1.'CALL LINK('LDLONG')'": :"2.'CALL APESOFT'": :"3.'CALL LOAD(-31952,164,164,":" 168,239)::CALL LOAD(-25,0)": :"4.'RUN'" 320 CALL HCHAR(9,31,39) :: CALL INIT :: CALL LONG :: CALL LOAD(-31888,63,255) :: CALL NEW 1000 CALL LINK("GRAFIC",1) :: CALL LINK("WINDOW",3,9) :: CALL LINK("SETCOL",16,5) :: CALL LINK("CENTRE",1,1) 1010 CALL S(44,-10) :: CALL LINK("MOVETO",66,-10,107,-27,97,-27,97,-23,97,-45,104,-53,42,-53) 1020 CALL LINK("MOVETO",34,-45,97,-45) :: CALL S(44,-10) :: CALL LINK("MOVETO",13,-25,25,-28,66,-10) 1030 CALL S(34,-24) :: CALL LINK("MOVETO",34,-70) :: CALL S(47,-62) :: CALL LINK("MOVETO",34,-62) 1040 CALL LINK("MOVETO",34,-70,42,-74,42,-66,65,-66,65,-74,42,-74) :: CALL S(47,-53) :: CALL LINK("MOVETO",47,-66) 1050 CALL S(50,-53) :: CALL LINK("MOVETO",50,-66) :: CALL S(98,-53) :: CALL LINK("MOVETO",98,-66) 1060 CALL S(97,-53) :: CALL LINK("MOVETO",97,-66) :: CALL S(42,-66) :: CALL LINK("MOVETO",34,-62) 1070 CALL S(80,-66) :: CALL LINK("MOVETO",103,-66,103,-74) :: CALL S(103,-66) :: CALL LINK("MOVETO",98,-63) 1080 CALL S(43,-40) :: CALL LINK("MOVETO",55,-40,55,-34,43,-34,43,-40) :: CALL S(49,-40) :: CALL LINK("MOVETO",49,-34) 1090 CALL S(83,-34) :: CALL LINK("MOVETO",93,-34,93,-40,83,-40,83,-34) :: CALL S(88,-34) :: CALL LINK("MOVETO",88,-40) 1100 CALL S(62,-21) :: CALL LINK("MOVETO",74,-21,74,-26,62,-26,62,-21) :: CALL S(68,-21) :: CALL LINK("MOVETO",68,-26) 1110 CALL S(19,-32) :: CALL LINK("MOVETO",27,-33,27,-40,19,-39,19,-32) :: CALL S(23,-33) :: CALL LINK("MOVETO",23,-39) 1120 CALL S(55,-56) :: CALL LINK("MOVETO",65,-56,65,-59,55,-59,55,-56) :: CALL S(60,-56) 1130 CALL LINK("MOVETO",60,-59) :: CALL S(83,-56) :: CALL LINK("MOVETO",93,-56,93,-59,83,-59,83,-56) :: CALL S(88,-56) 1140 CALL LINK("MOVETO",88,-59) :: CALL S(50,-62) :: CALL LINK("MOVETO",69,-62,69,-55,77,-55,77,-62,97,-62) 1150 CALL S(64,-40) :: CALL LINK("MOVETO",75,-40,75,-35,64,-35,64,-40) :: CALL S(70,-40) :: CALL LINK("MOVETO",70,-35) 1160 CALL S(80,-66) :: CALL LINK("MOVETO",80,-70) :: CALL S(85,-74) :: CALL LINK("MOVETO",103,-74) 1170 CALL S(69,-62) :: CALL LINK("MOVETO",69,-67) :: CALL S(77,-62) :: CALL LINK("MOVETO",77,-67) 1180 CALL S(71,-62) :: CALL LINK("MOVETO",72,-62) :: CALL S(72,-61) :: CALL S(15,-26) 1190 CALL LINK("MOVETO",15,-61,34,-70) :: CALL S(65,-71) :: CALL LINK("MOVETO",82,-71,85,-72,69,-72,65,-71,65,-75,72,-79) 1200 CALL LINK("MOVETO",72,-76,69,-74,69,-72) :: CALL S(69,-74) :: CALL LINK("MOVETO",85,-74,85,-72) 1210 CALL S(85,-74) :: CALL LINK("MOVETO",89,-77,89,-79,72,-79,72,-76,89,-76) :: CALL S(65,-67) 1220 CALL LINK("MOVETO",80,-67) :: CALL S(19,-47) :: CALL LINK("MOVETO",27,-48,27,-55,19,-54,19,-47) :: CALL S(23,-48) 1230 CALL LINK("MOVETO",23,-54) :: CALL S(1,-47) :: CALL LINK("MOVETO",13,-47) :: CALL S(100,-47) :: CALL LINK("MOVETO",128,-47) 1240 CALL CL :: CALL D(18,"DU STEHST VOR EINEM TYPISCHEN,") :: CALL D(19,"GROSSEN IM ALTENGLISCHEN STIL") :: CALL D(20,"GEBAUTEN HAUS IN DER BOND STR") 1250 CALL D(21,"WAS WILLST DU TUN ?") 1260 CALL LINK("ACCEPT",24,2,31,KO$) :: KO=POS(KO$,CHR$(225),1) :: KO$=SEG$(KO$,1,KO-1) 1270 IF KO$="SCHAUE" THEN CALL CL :: CALL D(18,"ES IST NICHTS WICHTIGES ZU") :: CALL D(19,"ERKENNEN.") :: GOTO 1260 1280 IF KO$="GEHE TREPPE" THEN CALL MUSIK :: CALL LINK("BYEBYE") :: RETURN 1290 IF SEG$(KO$,1,7)="SCHLAGE" THEN CALL CL :: CALL D(18,"WILLST DU DIE NACHBARN WECKEN?") :: GOTO 1260 1300 IF SEG$(KO$,1,6)="STEIGE" THEN CALL CL :: CALL D(18,"WILLST DU FUER EINEN EIN-") :: CALL D(19,"BRECHER GEHALTEN WERDEN ?") :: GOTO 1260 1310 IF KO$="HILFE" THEN CALL CL :: CALL D(18,"VERSUCHE IN DAS HAUS ZU") :: CALL D(19,"KOMMEN.") :: GOTO 1260 1320 CALL CL :: CALL D(18,"DAS FUNKTIONIERT JETZT NICHT.") :: GOTO 1260 32000 SUB MUSIK :: RESTORE 32010 32010 DATA 7,391,1,440,7,466,1,369,3,391,1,440,3,466,1,622,3,587,1,391,3,466,1,587 32020 DATA 12,554,1,446,1,391,1,349,16,391,1 32030 FOR L=1 TO 17 :: READ TI,FR :: CALL SOUND(TI*100,FR*2,1,FR,9,FR/2,15) :: NEXT L :: SUBEND 32040 SUB D(Z,A$) :: CALL LINK("DSPLAY",Z,2,LEN(A$),A$) :: SUBEND :: SUB CL :: FOR I=18 TO 24 :: CALL D(I,RPT$(" ",30)) :: NEXT I :: SUBEND 32050 SUB S(X,Y) :: CALL LINK("SETTO",X,Y) :: SUBEND 32500 SUB LONG 32501 RESTORE 32506 :: ADR=9460 :: CALL INIT 32502 READ A :: IF A<>-1 THEN CALL LOAD(ADR,A) :: ADR=ADR+1 :: GOTO 32502 32503 CALL CLEAR :: FOR I=0 TO 30 :: CALL SOUND(-200,110,30-I,220,I,440,I) :: NEXT I 32504 CALL LOAD(8194,36,244,63,240) 32505 CALL LOAD(16368,76,68,76,79,78,71,37,222,83,86,76,79,78,71,37,112) 32506 DATA 005,006,000,000,000,000,000,000,000,000,000,000,203,020,203,053 32507 DATA 203,078,203,231,204,071,204,150,204,228,205,029,205,075,205,096 32508 DATA 033,131,035,253,038,184,040,183,041,182,042,195,043,193,044,179 32509 DATA 045,194,047,196,058,181,059,180,060,191,061,190,062,192,094,197 32510 DATA 255,058,058,130,065,084,240,071,079,133,073,070,132,079,078,155 32511 DATA 079,082,186,080,073,221,084,079,177,255,065,066,083,203,065,076 32512 DATA 000,000,000,003,004,000,008,000,000,058,207,208,006,012,009,196 32513 DATA 080,080,000,000,096,003,067,083,049,000,255,255,002,224,036,246 32514 DATA 136,032,131,048,037,094,026,004,002,000,030,000,004,032,032,052 32515 DATA 216,032,036,245,037,096,006,160,038,146,002,000,009,196,002,001 32516 DATA 131,048,002,002,000,004,004,032,032,036,002,000,009,200,002,001 32517 DATA 208,000,002,002,048,000,004,032,032,036,200,002,037,102,006,160 32518 DATA 038,092,006,160,038,182,002,000,009,196,192,096,131,048,002,002 32519 DATA 207,255,096,129,004,032,032,036,200,002,037,102,006,160,038,092 32520 DATA 006,160,038,182,006,160,038,164,016,053,002,224,036,246,216,032 32521 DATA 036,244,037,096,006,160,038,146,002,002,048,000,200,002,037,102 32522 DATA 006,160,038,092,006,160,038,182,002,000,009,196,002,001,131,048 32523 DATA 002,002,000,004,004,032,032,044,200,032,131,048,131,134,006,032 32524 DATA 131,134,002,000,009,200,002,001,208,000,002,002,048,000,004,032 32525 DATA 032,044,200,002,037,102,006,160,038,092,006,160,038,182,002,000 32526 DATA 009,196,192,096,131,048,002,002,207,255,096,129,004,032,032,044 32527 DATA 006,160,038,164,216,032,037,084,131,124,004,032,038,220,000,052 32528 DATA 002,224,131,224,004,096,000,112,002,000,003,208,002,001,037,096 32529 DATA 002,002,000,018,004,032,032,036,200,032,037,106,131,074,200,032 32530 DATA 037,108,131,076,002,000,003,221,200,000,131,086,200,032,037,086 32531 DATA 131,084,004,224,131,208,216,032,037,090,131,109,004,091,002,000 32532 DATA 033,242,002,001,039,216,002,002,023,212,004,032,032,044,004,091 32533 DATA 002,000,033,242,002,001,039,216,002,002,023,212,004,032,032,036 32534 DATA 004,091,216,032,037,084,131,124,004,032,038,220,000,061,002,000 32535 DATA 003,209,004,032,032,040,009,209,022,001,004,091,006,160,038,164 32536 DATA 002,000,036,000,004,032,032,052,037,022,038,224,216,032,152,002 32537 DATA 037,082,216,032,152,002,037,083,006,032,037,082,216,062,156,002 32538 DATA 216,062,156,002,002,224,131,224,002,000,131,230,002,001,037,054 32539 DATA 002,002,000,013,204,112,006,002,022,253,184,032,037,088,131,115 32540 DATA 208,160,131,115,009,130,002,034,130,254,002,000,039,046,006,064 32541 DATA 204,128,196,160,037,092,004,096,000,112,006,096,131,115,216,032 32542 DATA 037,082,156,002,216,032,037,083,156,002,002,000,131,230,002,001 32543 DATA 037,054,002,002,000,013,204,049,006,002,022,253,002,224,037,022 32544 DATA 003,128,0,0,0,0,0,0,0,0,0,0,0,0,0,-1 32545 SUBEND Quote Link to comment Share on other sites More sharing options...
rocky007 Posted March 31, 2012 Share Posted March 31, 2012 it's very difficult to convert in Extended Basic because this program call the special high resolution graphics routines. but you can you the Mechatronics Extended Basic II Plus disk version to test your program. Quote Link to comment Share on other sites More sharing options...
OX. Posted March 31, 2012 Author Share Posted March 31, 2012 I've found the Ex Basic II plus roms but could use a translation of the german bits. Quote Link to comment Share on other sites More sharing options...
TEXAS_JOE Posted April 1, 2012 Share Posted April 1, 2012 Type Google Translate into .... google ..... translates whatever you want without the adware and popups! 1 Quote Link to comment Share on other sites More sharing options...
rocky007 Posted April 1, 2012 Share Posted April 1, 2012 (edited) so these images : 1st image is normally the Ex Basic II plus on disk... 2nd image is some graphic subroutines for XB in case you decide to rewrite this game... DISKS.zip Edited April 1, 2012 by rocky007 1 Quote Link to comment Share on other sites More sharing options...
OX. Posted April 1, 2012 Author Share Posted April 1, 2012 Thanks Rocky Quote Link to comment Share on other sites More sharing options...
+Ksarul Posted April 1, 2012 Share Posted April 1, 2012 The extra graphics routines in XB-II+ were originally sold on disk by APESoft (Alma Peschetz Software). Her husband wrote the programs but used her name because she had a Doctorate and he didn't and they figured that would lend greater legitimacy to their products. There were two versions of the APESoft Expanded Grafic BASIC disks. I think I have originals of both of them. The routines were later sold in the US as Amerisoft Expanded Graphics BASIC, with an English manual. The routines didn't change. Mechatronics later included them in the XB-II+ cartridge, as they were pretty popular extensions to Extended BASIC in the German-speaking portion of the TI world. 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.