Jump to content
IGNORED

Anyone know where I can get hold of ROM images of


OX.

Recommended Posts

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

Link to comment
Share on other sites

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.

  • Like 1
Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...