amigojapan

the think tank 

there were 4 fish and a frog in a fish tank. 
they spent their days swimming around and 
looking at the blurry images on the walls 
of the fish tank…


one day the fish started to talk about 
what could possibly be outside of the 

amigojapan

server$ = "irc.libera.chat"
nick$ = "quickbasicIRC"
channel$ = "##anime"
client = _OpenClient("TCP/IP:6667:" + server$)
line$ = "nick " + nick$ + Chr$(10) + Chr$(13) + "user a a a a" + Chr$(10) + Chr$(13)
Put #client, , line$: Sleep 2
line$ = "join " + channel$ + Chr$(10) + Chr$(13)
Put #client, , line$: Sleep 2

Do

amigojapan

our Father(shu no inori) in romaji


ten ni orareru watashitachi no chichi yo,

mina ga sei to saremasu you ni.

mikuni ga kimasu you ni.

mikokoro ga ten ni okonawareru toori chi ni mo okonawaremasu you ni.

amigojapan

1 REM PASSWORD GENERATOR FOR SHARP PC-G801 BY AMIGOJAPAN
2 RANDOMIZE
10 PRINT "ENTER LENGTH OF PASSWORD:";
20 INPUT L
30 FOR C=1 TO L
39 REM FOLLOWING GENERATES A RANDOM NUMBER BETWEEN 33 AND 126
40 R=INT((126-33+1)*RND(1)+33)
50 IF CHR$(R)="¥" THEN GOSUB 500
90 PRINT CHR$ (R);
100 NEXT C

amigojapan

1 REM CHARACHTER DUMP BY AMMIGOJAPAN FOR SHARP PC-G801
10 FOR A=0 TO 255
20 WAIT 10
30 PRINT CHR$ (A);
40 NEXT A

amigojapan

1 REM FOR SHARP PC-G801 BY AMIGOJAPAN
10 RANDOMIZE
20 A=RND 100
30 PRINT "I HAVE PICKED A NUMBER FROM 1 TO 100"
40 PRINT "GUESS MY NUMBER"
50 INPUT X
60 IF X<A GOTO 130
70 IF X>A GOTO 150
80 PRINT "CORRECT!"
90 END

amigojapan

1 RANDOMIZE
10 PRINT "MEMORIZATION GAME BY AMIGOJAPAN FOR SHARP PC-G801"
20 LONG=0
30 COMPMEM$=""
40 LONG=LONG+1
50 FOR CHARS=1 TO LONG
60 COMPMEM$=COMPMEM$+STR$(INT((9*RND(1))+1))
70 NEXT CHARS
80 PRINT "MEMORIZE THIS:";COMPMEM$
85 FOR SLEEP=1 TO 2000

amigojapan

1 REM FOR SHARP PC-G801
2 REM DELETE LINE 14 AND IGNROE ERROR TO RUN ON https://yohan.es/swbasic/
3 REM NO ERROR ON POCKET COMPUTER
10 FOR N = 1 TO 100
14 WAIT 10
15 IF  N>100 THEN 500
20 D=N-(3*INT(N/3))
30 C=N-(5*INT(N/5))
35 IF D=0 AND C=0 THEN 300
40 IF D = 0 THEN 100

amigojapan

import "ecere"

class Form1 : Window
{
   caption = $"Form1";
   background = formColor;
   borderStyle = sizable;
   hasMaximize = true;
   hasMinimize = true;
   hasClose = true;

amigojapan

import "ecere"


class Form1 : Window
{
   caption = $"Form1";
   background = formColor;
   borderStyle = sizable;
   hasMaximize = true;
   hasMinimize = true;