Tokugawa Corporate Forums

Retro Japanese Computing
It is currently March 28th, 2024, 2:39 pm

All times are UTC




Post new topic Reply to topic  [ 8 posts ] 
Author Message
 Post subject: PC-6001 type-in program
PostPosted: April 15th, 2016, 4:17 am 
Offline

Joined: June 25th, 2015, 6:32 am
Posts: 84
Just found a type-in program from "Monthly Issue RAM October 1982". This game was released as a commercial software by Fujionkyo RAM. (http://pc-6001.net/p6/soft/ma.html)
I took some pictures of these pages (sorry I don't have a scanner)
I wish someone could make it run with emulator and upload the file. Thanks in advance!
https://mega.nz/#!69MkUCwS!M4Vh5TJvcf9JPlPxccuDUZc50k-w0xYI_KxMICcYqYs


Top
 Profile  
 
PostPosted: April 16th, 2016, 10:53 am 
Offline

Joined: June 25th, 2015, 6:32 am
Posts: 84
Program list:

Code:
0 REM       Mad Balloon
1 REM
2 REM   Written by K.Nakajima
3 REM       1982.20.July
10 CLEAR50,&HED20
13 INPUT"Do you have a Joy stick          [Yes=1 or No=0]";D
14 IFD>1THEND=0
18 OUT&H93,2:FORA=&HDE20TO&HDFF3:READB:POKEA,B:NEXT:OUT&H93,3
19 POKE&HDE7A,D
20 POKE&HFAEB,&H20:POKE&HFAEC,&HDE
30 SCREEN 3,2,2:CONSOLE0,16,,0:COLOR 2,3,1:CLS:A=2^INT(RND(1)*3)
40 LINE(32,0)-(175,15),A:LINE-(175,0),A:PAINT(160,8),2^INT(RND(1)*3),A
56 A=2^INT(RND(1)*3):LINE(64,8)-(103,47),A:LINE-(127,16),A
80 LINE-(64,8),A:PAINT(95,27),2^INT(RND(1)*3),A:A=2^INT(RND(1)*3)
100 LINE(104,103)-(15,32),A:LINE-(0,32),A:LINE-(104,103),A
130 LINE-(143,64),A:LINE-(135,103)A:LINE-(104,103),A
160 PAINT(16,37),2^INT(RND(1)*3),A:PAINT(128,96),2^INT(RND(1)*3),A
180 LINE(152,48)-(207,55),2^INT(RND(1)*3),BF
190 LINE(216,48)-(223,111),2^INT(RND(1)*3),BF
200 LINE(176,88)-(183,119),2^INT(RND(1)*3),BF
210 LINE(32,104)-(41,111),2^INT(RND(1)*3),BF
220 LINE(32,128)-(95,135),2^INT(RND(1)*3),BF
230 LINE(112,136)-(135,143),2^INT(RND(1)*3),BF:A=2^INT(RND(1)*3)
240 LINE(255,136)-(144,136),A:LINE-(255,159),A
260 PAINT(240,155),2^INT(RND(1)*3),A:A=2^INT(RND(1)*3)
270 LINE(144,191)-(144,176),A:LINE-(223-191),A
290 PRINT(152,184),2^INT(RND(1)*3),A:LOCATE11,0:PAINT "_MAD_"
310 LOCATE0,15:PRINT "_BALLOON_";:SOUND8,16:SOUND11,106:SOUND12,13
316 SOUND13,14:IFUSR(6000)GOTO 339
330 SOUND6,10:SOUND7,&HEF:SOUND9,31:SOUND12,10:SOUND13,0
331 IFPEEK(&HDED9)+PEEK(&HDEDA)*256<>1GOTO 340
333 LINE(80,48)-(184,58),3,BF:LOCATE4,4:PRINT "TIME UP!":GOTO 340
339 PLAY"v15o3cgo4ceo6c"
340 LINE(48,72)-(191,82),3,BF:LINE(64,96)-(218,106),3,BF
360 LINE(128,120)-(255,130),3,BF:LOCATE3,6:PRINT "GAME OVER
380 PRINT:PRINT"    TRY AGAIN?
390 PRINT:PRINT  "        [Y or N]
400 IFINKEY$<>""GOTO 400
410 I$=INKEY$:IFI$="N"THENSCREEN,1,1:CONSOLE,,1,1:PRINTCHR$(7):END
420 IFI$="Y"THENPRINTCHR$(7);CHR$(7):GOTO 30
430 GOTO 410
48672 DATA 205, 65, 7, 237, 83, 207, 222, 33, 0, 2
48682 DATA 34, 217, 222, 33, 191, 223, 78, 44, 94, 44
48692 DATA 86, 229, 235, 17, 39, 223, 205, 249, 222, 225
48702 DATA 13, 32, 240, 33, 29, 247, 34, 72, 222, 33
48712 DATA 0, 0, 17, 1, 226, 231, 200, 151, 92, 203
48722 DATA 35, 203, 35, 203, 35, 205, 197, 27, 229, 17
48732 DATA 175, 223, 213, 205, 244, 222, 45, 209, 213, 205
48742 DATA 244, 222, 209, 62, 0, 245, 254, 3, 32, 2
48752 DATA 62, 1, 133, 214, 2, 111, 205, 244, 222, 62
48762 DATA 0, 205, 57, 34, 205, 65, 7, 225, 227, 123
48772 DATA 254, 1, 32, 1, 37, 254, 3, 32, 1, 44
48782 DATA 254, 5, 32, 1, 36, 254, 7, 32, 1, 45
48792 DATA 241, 8, 34, 72, 222, 253, 33, 0, 0, 17
48802 DATA 47, 223, 205, 244, 222, 253, 33, 0, 0, 17
48812 DATA 106, 222, 254, 3, 32, 2, 62, 1, 79, 135
48822 DATA 135, 135, 135, 245, 131, 95, 45, 205, 244, 222
48832 DATA 17, 111, 223, 241, 131, 95, 45, 205, 244, 222
48842 DATA 111, 205, 244, 222, 33, 0, 0, 17, 0, 0
48852 DATA 43, 231, 32, 249, 33, 0, 0, 43, 231, 40
48862 DATA 9, 34, 217, 222, 27, 253, 25, 210, 71, 222
48872 DATA 33, 0, 0, 205, 155, 57, 42, 72, 222, 17
48882 DATA 159, 223, 205, 249, 222, 44, 37, 62, 119, 50
48892 DATA 28, 223, 124, 254, 226, 56, 9, 254, 250, 48
48902 DATA 5, 125, 230, 224, 40, 6, 151, 50, 28, 223
48912 DATA 253, 35, 6, 8, 126, 254, 170, 40, 2, 253
48922 DATA 35, 26, 119, 213, 17, 32, 0, 25, 209, 28
48932 DATA 16, 238, 201, 174, 190, 183, 223, 247, 222, 190
48942 DATA 186, 170, 165, 149, 85, 85, 85, 149, 165, 170
48952 DATA 106, 90, 86, 86, 86, 90, 106, 169, 169, 165
48962 DATA 166, 150, 154, 90, 106, 170, 170, 170, 170, 170
48972 DATA 170, 170, 170, 169, 169, 169, 169, 169, 169, 169
48982 DATA 169, 170, 170, 170, 170, 170, 170, 170, 170, 169
48992 DATA 169, 170, 170, 170, 170, 170, 170, 170, 106, 90
49002 DATA 154, 150, 166, 165, 169, 169, 169, 165, 166, 0
49012 DATA 0, 0, 0, 106, 170, 170, 170, 42, 42, 42
49022 DATA 42, 169, 169, 169, 169, 128, 128, 128, 128, 170
49032 DATA 170, 170, 170, 10, 10, 10, 10, 169, 170, 170
49042 DATA 170, 168, 168, 168, 168, 106, 106, 90, 154, 0
49052 DATA 0, 0, 0, 170, 105, 153, 175, 87, 175, 153
49062 DATA 105, 170, 166, 154, 234, 86, 234, 154, 166, 170
49072 DATA 170, 170, 170, 170, 170, 170, 170, 170, 170, 170
49082 DATA 170, 170, 170, 170, 170, 26, 24, 228, 30, 228
49092 DATA 1, 229, 20, 231, 27, 231, 13, 232, 25, 233
49102 DATA 8, 234, 31, 234, 8, 236, 18, 236, 22, 236
49112 DATA 17, 238, 28, 238, 3, 239, 14, 239, 23, 239
49122 DATA 19, 242, 24, 242, 30, 242, 8, 243, 22, 244
49132 DATA 27, 245, 0, 246, 4, 247, 11, 247


Top
 Profile  
 
PostPosted: April 17th, 2016, 9:42 pm 
Offline

Joined: April 15th, 2008, 2:23 pm
Posts: 80
Hi missumj,

Interesting scans. You type this?
Anyway thank you for your contribution.

Mad Baloon


Top
 Profile  
 
PostPosted: April 18th, 2016, 11:11 am 
Offline

Joined: June 25th, 2015, 6:32 am
Posts: 84
Hello TurboZII
Many thanks for your help.
I don't think this is the released version. The texts in type-in version is different from the released one.
And... It has a weird starting...


Top
 Profile  
 
PostPosted: April 18th, 2016, 10:42 pm 
Offline

Joined: April 15th, 2008, 2:23 pm
Posts: 80
Hi missumj,

In the codes you uploaded, the characters "_" in lines 290 and 310 are different from the original.
As you know, colors of objects are changed randomly every time.

And if you don't use Mode 1, statement "PAINT" in line 290 tries to paint full screen, and machine languages may not work correctly.


Top
 Profile  
 
PostPosted: April 19th, 2016, 3:49 am 
Offline

Joined: June 25th, 2015, 6:32 am
Posts: 84
Hello TurboZII
Maybe that is right.
See: twitter.com/akikawa134/status/585765362265759744
This guy has also ran this program and he got same situation.
By the way, Can I ask how to make a PC-6001(or PC-8001) paperware run with emulator?


Top
 Profile  
 
PostPosted: April 19th, 2016, 10:16 pm 
Offline

Joined: April 15th, 2008, 2:23 pm
Posts: 80
Quote:
By the way, Can I ask how to make a PC-6001(or PC-8001) paperware run with emulator?


Try "TXT2BAS" for PC-6001 series.
http://retropc.net/isio/mysoft/

I don't know for PC-8001. Sorry!


Top
 Profile  
 
PostPosted: April 20th, 2016, 1:42 am 
Offline

Joined: June 25th, 2015, 6:32 am
Posts: 84
Thanks!


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 8 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group