Started by ozidual, April 29, 2021, 08:27:46 am
Quote from: P on April 30, 2021, 01:44:30 pmFantastic! Thanks for doing this, and so thoroughly done! I also started to type in programs long ago and save in text files (so that they can be pasted in emulators) but never got very far.
Quote from: P on April 30, 2021, 01:44:30 pmHow did you make the ROMs?
Quote from: ozidual on April 30, 2021, 04:31:49 pmQuote from: P on April 30, 2021, 01:44:30 pmI also started to type in programs long ago and save in text files (so that they can be pasted in emulators) but never got very far.Do you still have any of those text files around? If so, please send them along with sources for them if you still have the sources. Even cell phone or camera shots are good for sources as long as they are legible.
Quote from: P on April 30, 2021, 01:44:30 pmI also started to type in programs long ago and save in text files (so that they can be pasted in emulators) but never got very far.
1 'SAMPLE FROM THE MANUAL: MERISAN NO HITSUJI5 CLS6 LOCATE 8,12:PRINT "メリーサン ノ ヒツジ"10 PLAY"M1Y2V7T3:M1Y1V5T3:M1T3"20 PLAY"O2A6G3F5G:O2R3FCEDCEC:O1F7C"30 PLAY"A5AA7:RFCFRCO1AO2C:FC"40 PLAY"G5GG7:RECERCO1GO2C:O2CO1G"50 PLAY"A5O3CC7:RF5AO3C3AG:FC"60 PLAY"O2A6G3F5G:O2RFRERDRC:FC"70 PLAY"AAA7:RFFFRCCC:FC"80 PLAY"G5#AA6G3:RERGRERC:O2CO1G"90 PLAY"F9:FCFAO3F7:F5CF7"
'BIG CHR90 CLEAR&H6CFF100 FORI=&H6D15TO&H6D1D110 READA$120 POKEI,VAL("&H"+A$)130 NEXT140 XX=0YY=0CLS:GOTO300190 DATA A9,05,85,63,A5,63,D0,FC,60300 FORI=33TO200305 FORJ=0TO7310 A=&H1000+I*16+J320 B=A MOD256A=A/256330 POKE&H4A,B,A340 CALL&H6D15360 A=PEEK(&H73)B=128365 LOCATEXX,YY+J:PRINT" "370 FORK=0TO7380 IFA>=B A=A-B:LOCATEK+XX,J+YY:PRINTCHR$(I)385 B=B/2390 NEXT400 NEXT410 XX=XX+8420 IFXX=24 XX=0YY=YY+8430 IFYY=16 YY=0440 NEXT
'LIST ALL TOKENS IN FAMILY BASIC V310 REM20 FOR I=&H80 TO 25530 POKE &H6009,I40 PRINT HEX$(I);":":LIST 1050 IF (I MOD 11>0) THEN 7060 INPUT"PRESS RETURN TO CONTINUE";A70 NEXT
'SMB SELECT WORLD10 FOR I=&H7D3 TO &H7DC:POKE I,0:NEXT20 POKE &H7FF,&HA530 INPUT "WORLD=";A40 POKE &H7FD,A+255AND255
'XEVIOUS BGM10 DIM A(7):POKE &H4015,15:FOR I=0 TO 7:READ A(I):NEXT20 RESTORE 50:FOR I=1 TO 4:FOR J=0 TO 7:POKE &H4000,&H89,&HF,A(J),8:25 FOR K=0 TO 192:NEXT:NEXT30 READ A(2):A(6)=A(2):NEXT:GOTO 2040 DATA 212,105,112,105,83,105,112,10550 DATA 118,126,133,112
Quote from: Sho on May 03, 2021, 05:19:07 pmWoah this is amazing! Thank you for your work and effort in doing this!
Quote from: ozidual on July 24, 2021, 08:43:19 pmI scanned in the book `Shogakukan Encyclopedia 191: You Can Make It Too!! Family Computer Games` and then typed up the programs in it.
Quote from: ozidual on July 24, 2021, 08:43:19 pmI'll be honest, I have no clue how the 5th game works. It appears to be one of those love tests.
Quote from: UglyJoe on July 25, 2021, 06:51:42 pmLooks like it asks for two ages and then runs some algorithm? My Japanese isn't good enough to know what the results are, haha. And it makes you type in ザ to finish entering your age (instead of pressing enter or whatever). Pretty weird.FYI, with that one in particular your txt file has a syntax error:Code Select Expand310 D$=M1D$(DA$,2,1)The "M1D" there should be "MID".Thanks so much for doing these scans, I really appreciate the time and effort it must take.
Quote from: ozidual on July 27, 2021, 06:03:47 pmThanks for checking through that! I updated archive to fix the txt file and the recording because that was pulled directly from the game. Usually I type up the code, run the program (trying all paths in the program) and also double check line by line against the original. I only did the line by line for this one.
Quote from: ozidual on July 27, 2021, 06:03:47 pmShogakukan 191 uses TR as a variable which I changed to T, but I noticed the Perfect Book also uses TR at one point. My guess is FBv2.1 and below may be fine with that.